| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
62 |
NO PROCEDURE |
_RL tstart(max_npart_tile,nSx,nSy) |
|
./pkg/flt/FLT.h |
71 |
NO PROCEDURE |
common /flt_v/ npart,tstart,tend,xpart,ypart,kpart,kfloat,iup,itop |
|
./pkg/flt/flt_init.F |
233 |
FLT_INIT |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_down.F |
48 |
FLT_DOWN |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
88 |
FLT_RUNGA2 |
& (tstart(ip,bi,bj).eq.-1. .or. myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_exchg.F |
107 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
127 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
137 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
176 |
FLT_EXCHG |
tstart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
206 |
FLT_EXCHG |
tstart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
268 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
297 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
307 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
347 |
FLT_EXCHG |
tstart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
377 |
FLT_EXCHG |
tstart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
97 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
66 |
FLT_RESTART |
tmp(2) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
121 |
FLT_UP |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
162 |
FLT_UP |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
128 |
FLT_TRAJ |
& ( myCurrentTime.ge.tstart(ip,bi,bj)) |
|
./verification/flt_example/extra/write_float.F |
101 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
109 |
NO PROCEDURE |
tstart = -1. |
|
./verification/flt_example/extra/write_float.F |
117 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
123 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
136 |
NO PROCEDURE |
tstart = 172800. |
|
./verification/flt_example/extra/write_float.F |
144 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
150 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
162 |
NO PROCEDURE |
tstart = 432000. |
|
./verification/flt_example/extra/write_float.F |
170 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
176 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
184 |
NO PROCEDURE |
tstart = -1. |
|
./verification/flt_example/extra/write_float.F |
192 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
196 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
206 |
NO PROCEDURE |
tstart = -1. |
|
./verification/flt_example/extra/write_float.F |
215 |
NO PROCEDURE |
& write(1,rec=1) npart,tstart,xpart,ypart,kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
4 |
NO PROCEDURE |
& ,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
58 |
NO PROCEDURE |
tstart = -1. |
|
./verification/flt_example/extra/write_float.F |
66 |
NO PROCEDURE |
if (flag) write(1,rec=1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
87 |
NO PROCEDURE |
tstart = -1. |
|
./verification/flt_example/extra/write_float.F |
95 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |