File |
Line number |
Procedure |
Code |
./pkg/flt/flt_init_varia.F |
151 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
./pkg/flt/flt_init_varia.F |
162 |
FLT_INIT_VARIA |
kpart( npart_tile(bi,bj),bi,bj) = kz |
./pkg/flt/flt_init_varia.F |
236 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
./pkg/flt/flt_init_varia.F |
240 |
FLT_INIT_VARIA |
kz = tmp(5) |
./pkg/flt/flt_init_varia.F |
248 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = kz |
./pkg/flt/flt_init_varia.F |
53 |
FLT_INIT_VARIA |
_RL ix, jy, kz |
./pkg/flt/flt_interp_linear.F |
107 |
FLT_TRILINEAR |
I ix, jy, kz, |
./pkg/flt/flt_interp_linear.F |
132 |
FLT_TRILINEAR |
_RL ix, jy, kz |
./pkg/flt/flt_interp_linear.F |
168 |
FLT_TRILINEAR |
k1 = INT(kz) |
./pkg/flt/flt_interp_linear.F |
169 |
FLT_TRILINEAR |
ddz = kz - DFLOAT(k1) |
./pkg/flt/flt_interp_linear.F |
171 |
FLT_TRILINEAR |
k1 = NINT(kz) |
./pkg/flt/flt_interp_linear.F |
172 |
FLT_TRILINEAR |
ddz = 0.5 _d 0 + kz - DFLOAT(k1) |
./pkg/flt/flt_runga2.F |
112 |
FLT_RUNGA2 |
kz=kpart(ip,bi,bj) |
./pkg/flt/flt_runga2.F |
113 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
114 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
149 |
FLT_RUNGA2 |
ktz=kz+0.5*flt_deltaT*ww*scalez |
./pkg/flt/flt_runga2.F |
57 |
FLT_RUNGA2 |
_RL ww, w1, ktz, kz, scalez |
./pkg/flt/flt_runga4.F |
114 |
FLT_RUNGA4 |
kz=kpart(ip,bi,bj) |
./pkg/flt/flt_runga4.F |
115 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
116 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
151 |
FLT_RUNGA4 |
ktz1=kz+0.5*flt_deltaT*w1*scalez |
./pkg/flt/flt_runga4.F |
201 |
FLT_RUNGA4 |
ktz2=kz+0.5*flt_deltaT*w2*scalez |
./pkg/flt/flt_runga4.F |
251 |
FLT_RUNGA4 |
ktz3=kz+0.5*flt_deltaT*w2*scalez |
./pkg/flt/flt_runga4.F |
57 |
FLT_RUNGA4 |
_RL w1, w2, w3, w4, ktz1, ktz2, ktz3, kz, scalez |