File |
Line number |
Procedure |
Code |
./pkg/flt/flt_init_varia.F |
149 |
FLT_INIT_VARIA |
CALL FLT_MAP_XY2IJLOCAL( ix, jy, |
./pkg/flt/flt_init_varia.F |
154 |
FLT_INIT_VARIA |
& jy.GE.jLo .AND. jy.LT.jHi ) THEN |
./pkg/flt/flt_init_varia.F |
161 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
./pkg/flt/flt_init_varia.F |
234 |
FLT_INIT_VARIA |
CALL FLT_MAP_XY2IJLOCAL( ix, jy, |
./pkg/flt/flt_init_varia.F |
239 |
FLT_INIT_VARIA |
jy = tmp(4) |
./pkg/flt/flt_init_varia.F |
247 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = jy |
./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 |
14 |
FLT_BILINEAR |
I ix, jy, |
./pkg/flt/flt_interp_linear.F |
160 |
FLT_TRILINEAR |
j1 = INT(jy) |
./pkg/flt/flt_interp_linear.F |
161 |
FLT_TRILINEAR |
ddy = jy - DFLOAT(j1) |
./pkg/flt/flt_interp_linear.F |
163 |
FLT_TRILINEAR |
j1 = NINT(jy) |
./pkg/flt/flt_interp_linear.F |
164 |
FLT_TRILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
./pkg/flt/flt_interp_linear.F |
202 |
FLT_BILINEAR2D |
I ix, jy, |
./pkg/flt/flt_interp_linear.F |
224 |
FLT_BILINEAR2D |
_RL ix, jy |
./pkg/flt/flt_interp_linear.F |
252 |
FLT_BILINEAR2D |
j1 = INT(jy) |
./pkg/flt/flt_interp_linear.F |
253 |
FLT_BILINEAR2D |
ddy = jy - DFLOAT(j1) |
./pkg/flt/flt_interp_linear.F |
255 |
FLT_BILINEAR2D |
j1 = NINT(jy) |
./pkg/flt/flt_interp_linear.F |
256 |
FLT_BILINEAR2D |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
./pkg/flt/flt_interp_linear.F |
33 |
FLT_BILINEAR |
_RL ix, jy |
./pkg/flt/flt_interp_linear.F |
69 |
FLT_BILINEAR |
j1 = INT(jy) |
./pkg/flt/flt_interp_linear.F |
70 |
FLT_BILINEAR |
ddy = jy - DFLOAT(j1) |
./pkg/flt/flt_interp_linear.F |
72 |
FLT_BILINEAR |
j1 = NINT(jy) |
./pkg/flt/flt_interp_linear.F |
73 |
FLT_BILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
./pkg/flt/flt_mapping.F |
115 |
FLT_MAP_IJLOCAL2XY |
_RL ix, jy |
./pkg/flt/flt_mapping.F |
132 |
FLT_MAP_IJLOCAL2XY |
j = NINT(jy) |
./pkg/flt/flt_mapping.F |
134 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
./pkg/flt/flt_mapping.F |
142 |
FLT_MAP_IJLOCAL2XY |
j = NINT(jy) |
./pkg/flt/flt_mapping.F |
144 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
./pkg/flt/flt_mapping.F |
15 |
FLT_MAP_XY2IJLOCAL |
O ix, jy, |
./pkg/flt/flt_mapping.F |
40 |
FLT_MAP_XY2IJLOCAL |
_RL ix, jy |
./pkg/flt/flt_mapping.F |
55 |
FLT_MAP_XY2IJLOCAL |
jy = -1. _d 0 |
./pkg/flt/flt_mapping.F |
70 |
FLT_MAP_XY2IJLOCAL |
IF ( jy.EQ.-1. _d 0 ) THEN |
./pkg/flt/flt_mapping.F |
74 |
FLT_MAP_XY2IJLOCAL |
jy = DFLOAT(j)+fm-0.5 _d 0 |
./pkg/flt/flt_mapping.F |
90 |
FLT_MAP_IJLOCAL2XY |
I ix, jy, bi, bj, myThid ) |
./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 |
120 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
143 |
FLT_RUNGA2 |
jty=jy+0.5*flt_deltaT*vv*scaley |
./pkg/flt/flt_runga2.F |
60 |
FLT_RUNGA2 |
_RL ix, jy, itx, jty |
./pkg/flt/flt_runga2.F |
94 |
FLT_RUNGA2 |
jy = jpart(ip,bi,bj) |
./pkg/flt/flt_runga2.F |
96 |
FLT_RUNGA2 |
jc=NINT(jy) |
./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 |
122 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
145 |
FLT_RUNGA4 |
jty1=jy+0.5*flt_deltaT*v1*scaley |
./pkg/flt/flt_runga4.F |
195 |
FLT_RUNGA4 |
jty2=jy+0.5*flt_deltaT*v2*scaley |
./pkg/flt/flt_runga4.F |
245 |
FLT_RUNGA4 |
jty3=jy+flt_deltaT*v3*scaley |
./pkg/flt/flt_runga4.F |
60 |
FLT_RUNGA4 |
_RL ix, jy, itx1, jty1, itx2, jty2, itx3, jty3 |
./pkg/flt/flt_runga4.F |
94 |
FLT_RUNGA4 |
jy = jpart(ip,bi,bj) |
./pkg/flt/flt_runga4.F |
96 |
FLT_RUNGA4 |
jc=NINT(jy) |
./pkg/flt/flt_traj.F |
105 |
FLT_TRAJ |
jy = jpart(ip,bi,bj) |
./pkg/flt/flt_traj.F |
107 |
FLT_TRAJ |
I ix, jy, bi,bj, myThid ) |
./pkg/flt/flt_traj.F |
116 |
FLT_TRAJ |
tmp(7) = jy + j0y |
./pkg/flt/flt_traj.F |
137 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
139 |
FLT_TRAJ |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN, 0,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
140 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
141 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
49 |
FLT_TRAJ |
_RL ix, jy, i0x, j0y, xx, yy, zz |
./pkg/flt/flt_up.F |
114 |
FLT_UP |
jy = jpart(ip,bi,bj) |
./pkg/flt/flt_up.F |
116 |
FLT_UP |
I ix, jy, bi,bj, myThid ) |
./pkg/flt/flt_up.F |
125 |
FLT_UP |
tmp(7) = jy + j0y |
./pkg/flt/flt_up.F |
133 |
FLT_UP |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid) |
./pkg/flt/flt_up.F |
136 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
./pkg/flt/flt_up.F |
137 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
./pkg/flt/flt_up.F |
138 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
./pkg/flt/flt_up.F |
139 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
./pkg/flt/flt_up.F |
50 |
FLT_UP |
_RL ix, jy, i0x, j0y, xx, yy, zz |
./pkg/diagnostics/diag_calc_psivel.F |
196 |
DIAG_CALC_PSIVEL |
jy = 0 |
./pkg/diagnostics/diag_calc_psivel.F |
201 |
DIAG_CALC_PSIVEL |
jy = j |
./pkg/diagnostics/diag_calc_psivel.F |
205 |
DIAG_CALC_PSIVEL |
IF ( iy.NE.0 ) dPsiY (bi,bj) = psiVel(iy,jy,bi,bj) |
./pkg/diagnostics/diag_calc_psivel.F |
210 |
DIAG_CALC_PSIVEL |
& ' ; ix,jx=', ix,jx, ' ; iy,jy=', iy,jy |
./pkg/diagnostics/diag_calc_psivel.F |
73 |
DIAG_CALC_PSIVEL |
INTEGER is, js, ix, jx, iy, jy, ijCnt |