| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
66 |
NO PROCEDURE |
_RL kpart(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 |
236 |
FLT_INIT |
kpart(npart_tile(bi,bj),bi,bj) = tmp(5) |
|
./pkg/flt/flt_down.F |
52 |
FLT_DOWN |
& (kpart(ip,bi,bj) .le. flt_surf) |
|
./pkg/flt/flt_down.F |
66 |
FLT_DOWN |
& kpart(ip,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
103 |
FLT_RUNGA2 |
kp=INT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
119 |
FLT_RUNGA2 |
zz=kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
210 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
219 |
FLT_RUNGA2 |
if(kpart(ip,bi,bj).lt.1.0) |
|
./pkg/flt/flt_runga2.F |
220 |
FLT_RUNGA2 |
& kpart(ip,bi,bj)=1.0 |
|
./pkg/flt/flt_runga2.F |
221 |
FLT_RUNGA2 |
& +abs(1.0-kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
223 |
FLT_RUNGA2 |
if(kpart(ip,bi,bj).gt.Nr) |
|
./pkg/flt/flt_runga2.F |
224 |
FLT_RUNGA2 |
& kpart(ip,bi,bj)=Nr |
|
./pkg/flt/flt_runga2.F |
83 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
100 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
110 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
130 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
140 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
182 |
FLT_EXCHG |
kpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
212 |
FLT_EXCHG |
kpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
271 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
281 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
300 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
310 |
FLT_EXCHG |
kpart(ip,bi,bj) = kpart(npart_tile(bi,bj),bi,bj) |
|
./pkg/flt/flt_exchg.F |
353 |
FLT_EXCHG |
kpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_exchg.F |
383 |
FLT_EXCHG |
kpart(npart_tile(bi,bj),bi,bj) = |
|
./pkg/flt/flt_restart.F |
69 |
FLT_RESTART |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
125 |
FLT_UP |
& (kpart(ip,bi,bj) .eq. kfloat(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
& kpart(ip,bi,bj) = flt_surf |
|
./pkg/flt/flt_up.F |
146 |
FLT_UP |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_up.F |
159 |
FLT_UP |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
120 |
FLT_TRAJ |
kp=INT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
125 |
FLT_TRAJ |
tmp(5) = kpart(ip,bi,bj) |
|
./verification/flt_example/extra/write_float.F |
101 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tstart,tend |
|
./verification/flt_example/extra/write_float.F |
112 |
NO PROCEDURE |
kpart = 5. |
|
./verification/flt_example/extra/write_float.F |
113 |
NO PROCEDURE |
kfloat = kpart |
|
./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 |
139 |
NO PROCEDURE |
kpart = 0. |
|
./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 |
165 |
NO PROCEDURE |
kpart = 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 |
187 |
NO PROCEDURE |
kpart = 0. |
|
./verification/flt_example/extra/write_float.F |
188 |
NO PROCEDURE |
kfloat = kpart |
|
./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 |
209 |
NO PROCEDURE |
kpart = 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 |
61 |
NO PROCEDURE |
kpart = 0. |
|
./verification/flt_example/extra/write_float.F |
67 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
90 |
NO PROCEDURE |
kpart = 5. |
|
./verification/flt_example/extra/write_float.F |
91 |
NO PROCEDURE |
kfloat = kpart |
|
./verification/flt_example/extra/write_float.F |
96 |
NO PROCEDURE |
& kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/cvprofiles.F |
184 |
NO PROCEDURE |
allocate (kpart(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
199 |
NO PROCEDURE |
kpart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
286 |
NO PROCEDURE |
kpart(ip,np) = SNGL(tmp(5)) |
|
./verification/flt_example/extra/cvprofiles.F |
527 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, kpart, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
66 |
NO PROCEDURE |
real, dimension(:,:), allocatable :: xpart,ypart,kpart,zeta |
|
./verification/flt_example/extra/cvfloat.F |
175 |
NO PROCEDURE |
allocate (kpart(npart,icount)) |
|
./verification/flt_example/extra/cvfloat.F |
188 |
NO PROCEDURE |
kpart(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
251 |
NO PROCEDURE |
kpart(ip,np) = SNGL(tmp(5)) |
|
./verification/flt_example/extra/cvfloat.F |
438 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, kpart, iret) |
|
./verification/flt_example/extra/cvfloat.F |
63 |
NO PROCEDURE |
real, dimension(:,:), allocatable :: xpart,ypart,kpart |