| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
100 |
NO PROCEDURE |
_RL tend(max_npart_tile,nSx,nSy) |
|
./pkg/flt/FLT.h |
109 |
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 |
109 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
112 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
127 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_EAST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
138 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
141 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
156 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_WEST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
202 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
224 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
227 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
242 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_NORTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
258 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
261 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
276 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_SOUTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
329 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
403 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
432 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
461 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
490 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exchg.F |
117 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
163 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
212 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
241 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
304 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
333 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
384 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
433 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
462 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
93 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_init_varia.F |
145 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
205 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = tmp(9) |
|
./pkg/flt/flt_runga2.F |
221 |
FLT_RUNGA2 |
tend(ip,bi,bj) = myTime - flt_deltaT |
|
./pkg/flt/flt_runga2.F |
78 |
FLT_RUNGA2 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
84 |
FLT_RUNGA2 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
328 |
FLT_RUNGA4 |
tend(ip,bi,bj) = myTime - flt_deltaT |
|
./pkg/flt/flt_runga4.F |
78 |
FLT_RUNGA4 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
84 |
FLT_RUNGA4 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
131 |
FLT_TRAJ |
& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
103 |
FLT_UP |
& (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
115 |
FLT_UP |
IF ( tend(ip,bi,bj).NE.-1..AND.myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
& (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_write_pickup.F |
88 |
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 |