IBM Release 1.93 manual periodstep+=2 i=periodstep%4 if i!=0 periodstep=periodstep+4-i

Models: Release 1.93

1 93
Download 93 pages 50.46 Kb
Page 54
Image 54

TEMPEST uses the following code for choosing the time step (MAXDIMENSION is 3):

dt=(dx/(C/min_index*sqrt((DOUBLE)(MAXDIMENSION)))) ; period_step=ceil((DOUBLE)((2.0*PI)/(omega*dt))) ;

period_step+=2; i=period_step%4;

if (i!=0) period_step=(period_step+4-i) ;

dt=((2.0*PI)/(omega*(FLOAT)(period_step))) ;

printf("time step after adjustment: %e\n",dt);fflush(stdout);

fprintf(stderr,"period_step: %d\n",period_step);

50

Page 54
Image 54
IBM Release 1.93 manual periodstep+=2 i=periodstep%4 if i!=0 periodstep=periodstep+4-i, dt=2.0*PI/omega*FLOATperiodstep