File |
Line number |
Procedure |
Code |
./pkg/flt/FLT.h |
117 |
NO PROCEDURE |
_RL iup(max_npart_tile,nSx,nSy) |
./pkg/flt/FLT.h |
123 |
NO PROCEDURE |
& kfloat, iup, itop |
./pkg/flt/flt_down.F |
47 |
FLT_DOWN |
& (iup(ip,bi,bj) .GT. 0.) |
./pkg/flt/flt_down.F |
58 |
FLT_DOWN |
IF (mod(myTime,iup(ip,bi,bj)).EQ.itop(ip,bi,bj)) |
./pkg/flt/flt_exch2.F |
123 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_EAST) = iup(ip,bi,bj) |
./pkg/flt/flt_exch2.F |
156 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_WEST) = iup(ip,bi,bj) |
./pkg/flt/flt_exch2.F |
202 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
./pkg/flt/flt_exch2.F |
248 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_NORTH) = iup(ip,bi,bj) |
./pkg/flt/flt_exch2.F |
286 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_SOUTH) = iup(ip,bi,bj) |
./pkg/flt/flt_exch2.F |
339 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
./pkg/flt/flt_exch2.F |
402 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_EAST) |
./pkg/flt/flt_exch2.F |
431 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_WEST) |
./pkg/flt/flt_exch2.F |
460 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_NORTH) |
./pkg/flt/flt_exch2.F |
489 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_SOUTH) |
./pkg/flt/flt_exchg.F |
119 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
152 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
198 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
./pkg/flt/flt_exchg.F |
247 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
./pkg/flt/flt_exchg.F |
276 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
./pkg/flt/flt_exchg.F |
352 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
390 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
./pkg/flt/flt_exchg.F |
441 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
./pkg/flt/flt_exchg.F |
490 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
./pkg/flt/flt_exchg.F |
519 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
./pkg/flt/flt_init_varia.F |
164 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
./pkg/flt/flt_init_varia.F |
208 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = 0. _d 0 |
./pkg/flt/flt_init_varia.F |
250 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = tmp(7) |
./pkg/flt/flt_runga2.F |
105 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga2.F |
126 |
FLT_RUNGA2 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
./pkg/flt/flt_runga2.F |
131 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga2.F |
148 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga2.F |
161 |
FLT_RUNGA2 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
./pkg/flt/flt_runga2.F |
167 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga2.F |
178 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga2.F |
195 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga2.F |
207 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga2.F |
90 |
FLT_RUNGA2 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
./pkg/flt/flt_runga4.F |
107 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
128 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
./pkg/flt/flt_runga4.F |
133 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
150 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
168 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
./pkg/flt/flt_runga4.F |
174 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
185 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
200 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
218 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
./pkg/flt/flt_runga4.F |
224 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
235 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
250 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
268 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
./pkg/flt/flt_runga4.F |
274 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
285 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
302 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
314 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
./pkg/flt/flt_runga4.F |
90 |
FLT_RUNGA4 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
./pkg/flt/flt_up.F |
100 |
FLT_UP |
IF ( MOD(myTime,iup(ip,bi,bj)).EQ.0.) |
./pkg/flt/flt_up.F |
97 |
FLT_UP |
& iup(ip,bi,bj).GT.0. |
./pkg/flt/flt_write_pickup.F |
87 |
FLT_WRITE_PICKUP |
tmp(7) = iup(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 |
114 |
NO PROCEDURE |
iup = 432000. |
./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 |
141 |
NO PROCEDURE |
iup = 86400. |
./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 |
167 |
NO PROCEDURE |
iup = 0. |
./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 |
189 |
NO PROCEDURE |
iup = -3. |
./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 |
211 |
NO PROCEDURE |
iup = 0. |
./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 |
3 |
NO PROCEDURE |
double precision npart,xpart,ypart,kpart,kfloat,iup,itop |
./verification/flt_example/extra/write_float.F |
63 |
NO PROCEDURE |
iup = 0. |
./verification/flt_example/extra/write_float.F |
67 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
./verification/flt_example/extra/write_float.F |
92 |
NO PROCEDURE |
iup = 432000. |
./verification/flt_example/extra/write_float.F |
96 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |