File |
Line number |
Procedure |
Code |
./pkg/flt/FLT.h |
112 |
NO PROCEDURE |
_RL tend(max_npart_tile,nSx,nSy) |
./pkg/flt/FLT.h |
121 |
NO PROCEDURE |
& npart, tstart, tend, |
./pkg/flt/flt_down.F |
43 |
FLT_DOWN |
& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE. tend(ip,bi,bj)) |
./pkg/flt/flt_exch2.F |
103 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
./pkg/flt/flt_exch2.F |
106 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
./pkg/flt/flt_exch2.F |
125 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_EAST) = tend(ip,bi,bj) |
./pkg/flt/flt_exch2.F |
136 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
./pkg/flt/flt_exch2.F |
139 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
./pkg/flt/flt_exch2.F |
158 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_WEST) = tend(ip,bi,bj) |
./pkg/flt/flt_exch2.F |
204 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
./pkg/flt/flt_exch2.F |
228 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
./pkg/flt/flt_exch2.F |
231 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
./pkg/flt/flt_exch2.F |
250 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_NORTH) = tend(ip,bi,bj) |
./pkg/flt/flt_exch2.F |
266 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
./pkg/flt/flt_exch2.F |
269 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
./pkg/flt/flt_exch2.F |
288 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_SOUTH) = tend(ip,bi,bj) |
./pkg/flt/flt_exch2.F |
341 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
./pkg/flt/flt_exch2.F |
404 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_EAST) |
./pkg/flt/flt_exch2.F |
433 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_WEST) |
./pkg/flt/flt_exch2.F |
462 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_NORTH) |
./pkg/flt/flt_exch2.F |
491 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_SOUTH) |
./pkg/flt/flt_exchg.F |
100 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
./pkg/flt/flt_exchg.F |
103 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
./pkg/flt/flt_exchg.F |
121 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
133 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
./pkg/flt/flt_exchg.F |
136 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
./pkg/flt/flt_exchg.F |
154 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
200 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
./pkg/flt/flt_exchg.F |
249 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
./pkg/flt/flt_exchg.F |
333 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
./pkg/flt/flt_exchg.F |
336 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
./pkg/flt/flt_exchg.F |
354 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
371 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
./pkg/flt/flt_exchg.F |
374 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
./pkg/flt/flt_exchg.F |
392 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
443 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
./pkg/flt/flt_exchg.F |
492 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
./pkg/flt/flt_exchg.F |
521 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
./pkg/flt/flt_init_varia.F |
166 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
./pkg/flt/flt_init_varia.F |
210 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = -1. _d 0 |
./pkg/flt/flt_init_varia.F |
252 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = tmp(9) |
./pkg/flt/flt_runga2.F |
226 |
FLT_RUNGA2 |
tend(ip,bi,bj) = myTime - flt_deltaT |
./pkg/flt/flt_runga2.F |
83 |
FLT_RUNGA2 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
./pkg/flt/flt_runga2.F |
89 |
FLT_RUNGA2 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
./pkg/flt/flt_runga4.F |
333 |
FLT_RUNGA4 |
tend(ip,bi,bj) = myTime - flt_deltaT |
./pkg/flt/flt_runga4.F |
83 |
FLT_RUNGA4 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
./pkg/flt/flt_runga4.F |
89 |
FLT_RUNGA4 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
./pkg/flt/flt_traj.F |
121 |
FLT_TRAJ |
& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE.tend(ip,bi,bj)) |
./pkg/flt/flt_up.F |
106 |
FLT_UP |
IF ( tend(ip,bi,bj).NE.-1..AND.myTime.GT.tend(ip,bi,bj) |
./pkg/flt/flt_up.F |
131 |
FLT_UP |
& ( tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj) ) |
./pkg/flt/flt_up.F |
94 |
FLT_UP |
& (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj)) |
./pkg/flt/flt_write_pickup.F |
89 |
FLT_WRITE_PICKUP |
tmp(9) = 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 |