| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
65 |
NO PROCEDURE |
_RL ypart(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 |
235 |
FLT_INIT |
ypart(npart_tile(bi,bj),bi,bj) = tmp(4) |
|
./pkg/flt/flt_runga2.F |
102 |
FLT_RUNGA2 |
yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_runga2.F |
206 |
FLT_RUNGA2 |
ypart(ip,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
109 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
129 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
139 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
180 |
FLT_EXCHG |
ypart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
210 |
FLT_EXCHG |
ypart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
261 |
FLT_EXCHG |
if (ypart(ip,bi,bj) .ge. yhi) then |
|
./pkg/flt/flt_exchg.F |
270 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
280 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
290 |
FLT_EXCHG |
if (ypart(ip,bi,bj) .le. ylo) then |
|
./pkg/flt/flt_exchg.F |
299 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
309 |
FLT_EXCHG |
ypart(ip,bi,bj) = ypart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
351 |
FLT_EXCHG |
ypart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
381 |
FLT_EXCHG |
ypart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
99 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
68 |
FLT_RESTART |
tmp(4) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
153 |
FLT_UP |
yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_up.F |
158 |
FLT_UP |
tmp(4) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
119 |
FLT_TRAJ |
yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid) |
|
./pkg/flt/flt_traj.F |
124 |
FLT_TRAJ |
tmp(4) = ypart(ip,bi,bj) |
|
./verification/flt_example/extra/write_float.F |
111 |
NO PROCEDURE |
ypart = yc(j) |
|
./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 |
138 |
NO PROCEDURE |
ypart = yc(j) |
|
./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 |
164 |
NO PROCEDURE |
ypart = yc(j) |
|
./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 |
186 |
NO PROCEDURE |
ypart = yc(j) |
|
./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 |
208 |
NO PROCEDURE |
ypart = 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 |
60 |
NO PROCEDURE |
ypart = 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 |
89 |
NO PROCEDURE |
ypart = yc(j) |
|
./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 |
183 |
NO PROCEDURE |
allocate (ypart(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
198 |
NO PROCEDURE |
ypart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
281 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4)) |
|
./verification/flt_example/extra/cvprofiles.F |
284 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4))/1000. |
|
./verification/flt_example/extra/cvprofiles.F |
525 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, ypart, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
66 |
NO PROCEDURE |
real, dimension(:,:), allocatable :: xpart,ypart,kpart,zeta |
|
./verification/flt_example/extra/cvfloat.F |
174 |
NO PROCEDURE |
allocate (ypart(npart,icount)) |
|
./verification/flt_example/extra/cvfloat.F |
187 |
NO PROCEDURE |
ypart(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
246 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4)) |
|
./verification/flt_example/extra/cvfloat.F |
249 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4))/1000. |
|
./verification/flt_example/extra/cvfloat.F |
436 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, ypart, iret) |
|
./verification/flt_example/extra/cvfloat.F |
63 |
NO PROCEDURE |
real, dimension(:,:), allocatable :: xpart,ypart,kpart |