| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
109 |
NO PROCEDURE |
& npart, tstart, tend, |
|
./pkg/flt/FLT.h |
98 |
NO PROCEDURE |
_RL npart(max_npart_tile,nSx,nSy) |
|
./pkg/flt/flt_exch2.F |
119 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_EAST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
132 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
148 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_WEST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
161 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
190 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
194 |
FLT_EXCH2 |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
221 |
FLT_EXCH2 |
IF ( npart(ip,bi,bj).NE.0 ) THEN |
|
./pkg/flt/flt_exch2.F |
234 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_NORTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
247 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
268 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_SOUTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
281 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
317 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
321 |
FLT_EXCH2 |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
395 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
424 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
453 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
482 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exchg.F |
109 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
122 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
151 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
155 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
204 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
233 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
296 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
309 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
325 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
338 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
372 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
376 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
425 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
454 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
85 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
98 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_init_varia.F |
137 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
197 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = tmp(1) |
|
./pkg/flt/flt_traj.F |
121 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
127 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
80 |
FLT_WRITE_PICKUP |
tmp(1) = npart(ip,bi,bj) |
|
./verification/flt_example/extra/cvprofiles.F |
164 |
NO PROCEDURE |
npart = INT(tmp(6)) |
|
./verification/flt_example/extra/cvprofiles.F |
166 |
NO PROCEDURE |
print*, 'npart = ',npart |
|
./verification/flt_example/extra/cvprofiles.F |
177 |
NO PROCEDURE |
allocate (pnum(npart)) |
|
./verification/flt_example/extra/cvprofiles.F |
182 |
NO PROCEDURE |
allocate (xpart(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
183 |
NO PROCEDURE |
allocate (ypart(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
184 |
NO PROCEDURE |
allocate (kpart(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
185 |
NO PROCEDURE |
allocate (temp(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
187 |
NO PROCEDURE |
allocate (uvel(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
188 |
NO PROCEDURE |
allocate (vvel(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
189 |
NO PROCEDURE |
allocate (salt(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
191 |
NO PROCEDURE |
allocate (zeta(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
195 |
NO PROCEDURE |
do m=1,npart |
|
./verification/flt_example/extra/cvprofiles.F |
22 |
NO PROCEDURE |
integer narg, npart |
|
./verification/flt_example/extra/cvprofiles.F |
242 |
NO PROCEDURE |
do ip=1,npart |
|
./verification/flt_example/extra/cvprofiles.F |
272 |
NO PROCEDURE |
if (ip .gt. npart) then |
|
./verification/flt_example/extra/cvprofiles.F |
273 |
NO PROCEDURE |
print*,'ip out of order: ',ip,npart |
|
./verification/flt_example/extra/cvprofiles.F |
312 |
NO PROCEDURE |
print*,icount,' x ',npart,' = ',icount*npart,' records expected,', |
|
./verification/flt_example/extra/cvprofiles.F |
314 |
NO PROCEDURE |
print*,'==> ',icount*npart-itotalrecord,' float records missing' |
|
./verification/flt_example/extra/cvprofiles.F |
333 |
NO PROCEDURE |
partdim = ncddef(ncid, 'Particles', npart, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
497 |
NO PROCEDURE |
edges(1) = npart |
|
./verification/flt_example/extra/cvprofiles.F |
520 |
NO PROCEDURE |
edges(1) = npart |
|
./verification/flt_example/extra/cvprofiles.F |
534 |
NO PROCEDURE |
edges(1) = npart |
|
./verification/flt_example/extra/cvprofiles.F |
76 |
NO PROCEDURE |
data npart /10/ |
|
./verification/flt_example/extra/write_float.F |
108 |
NO PROCEDURE |
npart = REAL(ip) |
|
./verification/flt_example/extra/write_float.F |
117 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
135 |
NO PROCEDURE |
npart = REAL(ip) |
|
./verification/flt_example/extra/write_float.F |
144 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
161 |
NO PROCEDURE |
npart = REAL(ip) |
|
./verification/flt_example/extra/write_float.F |
170 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
183 |
NO PROCEDURE |
npart = REAL(ip) |
|
./verification/flt_example/extra/write_float.F |
192 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
205 |
NO PROCEDURE |
npart = DBLE(ip) |
|
./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 |
57 |
NO PROCEDURE |
npart = 0. |
|
./verification/flt_example/extra/write_float.F |
66 |
NO PROCEDURE |
if (flag) write(1,rec=1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
86 |
NO PROCEDURE |
npart = REAL(ip) |
|
./verification/flt_example/extra/write_float.F |
95 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |