| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
64 |
NO PROCEDURE |
_RL xpart(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 |
234 |
FLT_INIT |
xpart(npart_tile(bi,bj),bi,bj) = tmp(3) |
|
./pkg/flt/flt_runga2.F |
101 |
FLT_RUNGA2 |
xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_runga2.F |
204 |
FLT_RUNGA2 |
xpart(ip,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
108 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
120 |
FLT_EXCHG |
if (xpart(ip,bi,bj) .le. xlo) then |
|
./pkg/flt/flt_exchg.F |
128 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
138 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
178 |
FLT_EXCHG |
xpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
208 |
FLT_EXCHG |
xpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
269 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
279 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
298 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
308 |
FLT_EXCHG |
xpart(ip,bi,bj) = xpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
349 |
FLT_EXCHG |
xpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
379 |
FLT_EXCHG |
xpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
90 |
FLT_EXCHG |
if (xpart(ip,bi,bj) .ge. xhi) then |
|
./pkg/flt/flt_exchg.F |
98 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
67 |
FLT_RESTART |
tmp(3) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
152 |
FLT_UP |
xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_up.F |
157 |
FLT_UP |
tmp(3) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
118 |
FLT_TRAJ |
xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_traj.F |
123 |
FLT_TRAJ |
tmp(3) = xpart(ip,bi,bj) |
|
./verification/flt_example/extra/write_float.F |
110 |
NO PROCEDURE |
xpart = xc(i) |
|
./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 |
137 |
NO PROCEDURE |
xpart = xc(i) |
|
./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 |
163 |
NO PROCEDURE |
xpart = xc(i) |
|
./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 |
185 |
NO PROCEDURE |
xpart = xc(i) |
|
./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 |
207 |
NO PROCEDURE |
xpart = 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 |
59 |
NO PROCEDURE |
xpart = 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 |
88 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
95 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/cvprofiles.F |
182 |
NO PROCEDURE |
allocate (xpart(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
197 |
NO PROCEDURE |
xpart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
280 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3)) |
|
./verification/flt_example/extra/cvprofiles.F |
283 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3))/1000. |
|
./verification/flt_example/extra/cvprofiles.F |
523 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, xpart, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
66 |
NO PROCEDURE |
real, dimension(:,:), allocatable :: xpart,ypart,kpart,zeta |
|
./verification/flt_example/extra/cvfloat.F |
173 |
NO PROCEDURE |
allocate (xpart(npart,icount)) |
|
./verification/flt_example/extra/cvfloat.F |
186 |
NO PROCEDURE |
xpart(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
245 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3)) |
|
./verification/flt_example/extra/cvfloat.F |
248 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3))/1000. |
|
./verification/flt_example/extra/cvfloat.F |
434 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, xpart, iret) |
|
./verification/flt_example/extra/cvfloat.F |
63 |
NO PROCEDURE |
real, dimension(:,:), allocatable :: xpart,ypart,kpart |