| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
68 |
NO PROCEDURE |
_RL iup(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 |
238 |
FLT_INIT |
iup(npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_down.F |
54 |
FLT_DOWN |
& (iup(ip,bi,bj) .gt. 0.) |
|
./pkg/flt/flt_down.F |
65 |
FLT_DOWN |
if(mod(myCurrentTime,iup(ip,bi,bj)).eq.itop(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
112 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
135 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).ne.-2.) then |
|
./pkg/flt/flt_runga2.F |
140 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
158 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
170 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).ne.-2.) then |
|
./pkg/flt/flt_runga2.F |
176 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
187 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
209 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
217 |
FLT_RUNGA2 |
if (iup(ip,bi,bj).eq.-1.) then |
|
./pkg/flt/flt_runga2.F |
92 |
FLT_RUNGA2 |
& ( iup(ip,bi,bj).ne. -3.) |
|
./pkg/flt/flt_exchg.F |
102 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
112 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
132 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
142 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
186 |
FLT_EXCHG |
iup(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
216 |
FLT_EXCHG |
iup(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
273 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
283 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
302 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
312 |
FLT_EXCHG |
iup(ip,bi,bj) = iup(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
357 |
FLT_EXCHG |
iup(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
387 |
FLT_EXCHG |
iup(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_restart.F |
71 |
FLT_RESTART |
tmp(7) = iup(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
127 |
FLT_UP |
& (iup(ip,bi,bj) .gt. 0.) |
|
./pkg/flt/flt_up.F |
135 |
FLT_UP |
if(mod(myCurrentTime,iup(ip,bi,bj)).eq.0.) |
|
./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 |