| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
105 |
NO PROCEDURE |
_RL iup(max_npart_tile,nSx,nSy) |
|
./pkg/flt/FLT.h |
111 |
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 |
125 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_EAST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
154 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_WEST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
200 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
240 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_NORTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
274 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_SOUTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
327 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
401 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
430 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
459 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
488 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exchg.F |
115 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
161 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
210 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
239 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
302 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
331 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
382 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
431 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
460 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
91 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_init_varia.F |
143 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
203 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = tmp(7) |
|
./pkg/flt/flt_runga2.F |
100 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga2.F |
126 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
143 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
156 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga2.F |
162 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
173 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
190 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
202 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
85 |
FLT_RUNGA2 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
|
./pkg/flt/flt_runga4.F |
102 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga4.F |
128 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
145 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
163 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga4.F |
169 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
180 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
195 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
213 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga4.F |
219 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
230 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
245 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
263 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga4.F |
269 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
280 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
297 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
309 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
85 |
FLT_RUNGA4 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
|
./pkg/flt/flt_up.F |
106 |
FLT_UP |
& iup(ip,bi,bj).GT.0. |
|
./pkg/flt/flt_up.F |
109 |
FLT_UP |
IF ( MOD(myTime,iup(ip,bi,bj)).EQ.0.) |
|
./pkg/flt/flt_write_pickup.F |
86 |
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 |