File |
Line number |
Procedure |
Code |
./pkg/flt/FLT.h |
63 |
NO PROCEDURE |
_RL tend(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 |
240 |
FLT_INIT |
tend(npart_tile(bi,bj),bi,bj) = tmp(9) |
./pkg/flt/flt_down.F |
50 |
FLT_DOWN |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(ip,bi,bj)) |
./pkg/flt/flt_runga2.F |
81 |
FLT_RUNGA2 |
& (tend(ip,bi,bj).ne.-1. .and. myCurrentTime.gt. tend(ip,bi,bj))) |
./pkg/flt/flt_runga2.F |
90 |
FLT_RUNGA2 |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(ip,bi,bj)) |
./pkg/flt/flt_exchg.F |
104 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
114 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
./pkg/flt/flt_exchg.F |
134 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
144 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
./pkg/flt/flt_exchg.F |
190 |
FLT_EXCHG |
tend(npart_tile(bi,bj),bi,bj) = |
./pkg/flt/flt_exchg.F |
222 |
FLT_EXCHG |
tend(npart_tile(bi,bj),bi,bj) = |
./pkg/flt/flt_exchg.F |
275 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
285 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
./pkg/flt/flt_exchg.F |
304 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
314 |
FLT_EXCHG |
tend(ip,bi,bj) = tend(npart_tile(bi,bj),bi,bj) |
./pkg/flt/flt_exchg.F |
361 |
FLT_EXCHG |
tend(npart_tile(bi,bj),bi,bj) = |
./pkg/flt/flt_exchg.F |
391 |
FLT_EXCHG |
tend(npart_tile(bi,bj),bi,bj) = |
./pkg/flt/flt_restart.F |
73 |
FLT_RESTART |
tmp(9) = tend(ip,bi,bj) |
./pkg/flt/flt_up.F |
123 |
FLT_UP |
& (tend(ip,bi,bj).eq.-1..or.myCurrentTime.le.tend(ip,bi,bj)) |
./pkg/flt/flt_up.F |
143 |
FLT_UP |
& (tend(ip,bi,bj).ne.-1..and.myCurrentTime.gt.tend(ip,bi,bj)) |
./pkg/flt/flt_up.F |
164 |
FLT_UP |
& (tend(ip,bi,bj).eq.-1..or.myCurrentTime.le.tend(ip,bi,bj)) |
./pkg/flt/flt_traj.F |
130 |
FLT_TRAJ |
& ( tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le. tend(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 |
116 |
NO PROCEDURE |
tend = -1. |
./verification/flt_example/extra/write_float.F |
118 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
./verification/flt_example/extra/write_float.F |
123 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
./verification/flt_example/extra/write_float.F |
143 |
NO PROCEDURE |
tend = 518400. |
./verification/flt_example/extra/write_float.F |
145 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
./verification/flt_example/extra/write_float.F |
150 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
./verification/flt_example/extra/write_float.F |
169 |
NO PROCEDURE |
tend = -1. |
./verification/flt_example/extra/write_float.F |
171 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
./verification/flt_example/extra/write_float.F |
176 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
./verification/flt_example/extra/write_float.F |
191 |
NO PROCEDURE |
tend = -1. |
./verification/flt_example/extra/write_float.F |
193 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
./verification/flt_example/extra/write_float.F |
196 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
./verification/flt_example/extra/write_float.F |
213 |
NO PROCEDURE |
tend = -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 |
65 |
NO PROCEDURE |
tend = -1. |
./verification/flt_example/extra/write_float.F |
67 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
./verification/flt_example/extra/write_float.F |
94 |
NO PROCEDURE |
tend = -1. |
./verification/flt_example/extra/write_float.F |
96 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |