| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
112 |
NO PROCEDURE |
_RL npart(max_npart_tile,nSx,nSy) |
|
./pkg/flt/FLT.h |
123 |
NO PROCEDURE |
& npart, tstart, tend, |
|
./pkg/flt/flt_exchg.F |
108 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
121 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
150 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
154 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
203 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
232 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
295 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
308 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
324 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
337 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
371 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
375 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
424 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
453 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
84 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
97 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_init_varia.F |
128 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
151 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = tmp(1) |
|
./pkg/flt/flt_traj.F |
114 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
133 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
79 |
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, |