| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init_varia.F |
128 |
FLT_INIT_VARIA |
CALL FLT_MAP_XY2IJLOCAL( ix, jy, |
|
./pkg/flt/flt_init_varia.F |
133 |
FLT_INIT_VARIA |
& jy.GE.jLo .AND. jy.LT.jHi ) THEN |
|
./pkg/flt/flt_init_varia.F |
140 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
187 |
FLT_INIT_VARIA |
CALL FLT_MAP_XY2IJLOCAL( ix, jy, |
|
./pkg/flt/flt_init_varia.F |
192 |
FLT_INIT_VARIA |
jy = tmp(4) |
|
./pkg/flt/flt_init_varia.F |
200 |
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 |
129 |
FLT_MAP_IJLOCAL2XY |
j = NINT(jy) |
|
./pkg/flt/flt_mapping.F |
131 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./pkg/flt/flt_mapping.F |
139 |
FLT_MAP_IJLOCAL2XY |
j = NINT(jy) |
|
./pkg/flt/flt_mapping.F |
141 |
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 |
108 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
109 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
110 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
116 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
138 |
FLT_RUNGA2 |
jty=jy+0.5*flt_deltaT*vv*scaley |
|
./pkg/flt/flt_runga2.F |
50 |
FLT_RUNGA2 |
_RL ix, jy, itx, jty |
|
./pkg/flt/flt_runga2.F |
89 |
FLT_RUNGA2 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
91 |
FLT_RUNGA2 |
jc=NINT(jy) |
|
./pkg/flt/flt_runga4.F |
110 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
111 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
112 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
118 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
140 |
FLT_RUNGA4 |
jty1=jy+0.5*flt_deltaT*v1*scaley |
|
./pkg/flt/flt_runga4.F |
190 |
FLT_RUNGA4 |
jty2=jy+0.5*flt_deltaT*v2*scaley |
|
./pkg/flt/flt_runga4.F |
240 |
FLT_RUNGA4 |
jty3=jy+flt_deltaT*v3*scaley |
|
./pkg/flt/flt_runga4.F |
50 |
FLT_RUNGA4 |
_RL ix, jy, itx1, jty1, itx2, jty2, itx3, jty3 |
|
./pkg/flt/flt_runga4.F |
89 |
FLT_RUNGA4 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
91 |
FLT_RUNGA4 |
jc=NINT(jy) |
|
./pkg/flt/flt_traj.F |
116 |
FLT_TRAJ |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
118 |
FLT_TRAJ |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_traj.F |
127 |
FLT_TRAJ |
tmp(7) = jy + j0y |
|
./pkg/flt/flt_traj.F |
149 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
150 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
151 |
FLT_TRAJ |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN, 0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
152 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
153 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
44 |
FLT_TRAJ |
_RL ix, jy, i0x, j0y, xx, yy, zz |
|
./pkg/flt/flt_up.F |
122 |
FLT_UP |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
124 |
FLT_UP |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_up.F |
133 |
FLT_UP |
tmp(7) = jy + j0y |
|
./pkg/flt/flt_up.F |
140 |
FLT_UP |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
144 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
145 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
146 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
42 |
FLT_UP |
_RL ix, jy, i0x, j0y, xx, yy, zz |