| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init_varia.F |
136 |
FLT_INIT_VARIA |
CALL FLT_MAP_XY2IJLOCAL( ix, jy, |
|
./pkg/flt/flt_init_varia.F |
140 |
FLT_INIT_VARIA |
IF ( ix.GE.iLo .AND. ix.LT.iHi .AND. |
|
./pkg/flt/flt_init_varia.F |
147 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
195 |
FLT_INIT_VARIA |
CALL FLT_MAP_XY2IJLOCAL( ix, jy, |
|
./pkg/flt/flt_init_varia.F |
199 |
FLT_INIT_VARIA |
ix = tmp(3) |
|
./pkg/flt/flt_init_varia.F |
207 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = ix |
|
./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 |
152 |
FLT_TRILINEAR |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
153 |
FLT_TRILINEAR |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
155 |
FLT_TRILINEAR |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
156 |
FLT_TRILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./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 |
244 |
FLT_BILINEAR2D |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
245 |
FLT_BILINEAR2D |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
247 |
FLT_BILINEAR2D |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
248 |
FLT_BILINEAR2D |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
33 |
FLT_BILINEAR |
_RL ix, jy |
|
./pkg/flt/flt_interp_linear.F |
61 |
FLT_BILINEAR |
i1 = INT(ix) |
|
./pkg/flt/flt_interp_linear.F |
62 |
FLT_BILINEAR |
ddx = ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
64 |
FLT_BILINEAR |
i1 = NINT(ix) |
|
./pkg/flt/flt_interp_linear.F |
65 |
FLT_BILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_mapping.F |
115 |
FLT_MAP_IJLOCAL2XY |
_RL ix, jy |
|
./pkg/flt/flt_mapping.F |
128 |
FLT_MAP_IJLOCAL2XY |
i = NINT(ix) |
|
./pkg/flt/flt_mapping.F |
130 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./pkg/flt/flt_mapping.F |
138 |
FLT_MAP_IJLOCAL2XY |
i = NINT(ix) |
|
./pkg/flt/flt_mapping.F |
140 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./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 |
54 |
FLT_MAP_XY2IJLOCAL |
ix = -1. _d 0 |
|
./pkg/flt/flt_mapping.F |
59 |
FLT_MAP_XY2IJLOCAL |
IF ( ix.EQ.-1. _d 0 ) THEN |
|
./pkg/flt/flt_mapping.F |
63 |
FLT_MAP_XY2IJLOCAL |
ix = DFLOAT(i)+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 |
142 |
FLT_RUNGA2 |
itx=ix+0.5*flt_deltaT*uu*scalex |
|
./pkg/flt/flt_runga2.F |
60 |
FLT_RUNGA2 |
_RL ix, jy, itx, jty |
|
./pkg/flt/flt_runga2.F |
93 |
FLT_RUNGA2 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
95 |
FLT_RUNGA2 |
ic=NINT(ix) |
|
./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 |
144 |
FLT_RUNGA4 |
itx1=ix+0.5*flt_deltaT*u1*scalex |
|
./pkg/flt/flt_runga4.F |
194 |
FLT_RUNGA4 |
itx2=ix+0.5*flt_deltaT*u2*scalex |
|
./pkg/flt/flt_runga4.F |
244 |
FLT_RUNGA4 |
itx3=ix+flt_deltaT*u3*scalex |
|
./pkg/flt/flt_runga4.F |
60 |
FLT_RUNGA4 |
_RL ix, jy, itx1, jty1, itx2, jty2, itx3, jty3 |
|
./pkg/flt/flt_runga4.F |
93 |
FLT_RUNGA4 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
95 |
FLT_RUNGA4 |
ic=NINT(ix) |
|
./pkg/flt/flt_traj.F |
104 |
FLT_TRAJ |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
107 |
FLT_TRAJ |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_traj.F |
115 |
FLT_TRAJ |
tmp(6) = ix + i0x |
|
./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 |
113 |
FLT_UP |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
116 |
FLT_UP |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_up.F |
124 |
FLT_UP |
tmp(6) = ix + i0x |
|
./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 |
184 |
DIAG_CALC_PSIVEL |
ix = 0 |
|
./pkg/diagnostics/diag_calc_psivel.F |
189 |
DIAG_CALC_PSIVEL |
ix = i |
|
./pkg/diagnostics/diag_calc_psivel.F |
194 |
DIAG_CALC_PSIVEL |
IF ( jx.NE.0 ) dPsiX (bi,bj) = psiVel(ix,jx,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 |
|
./pkg/diagnostics/diagstats_ascii_out.F |
41 |
DIAGSTATS_ASCII_OUT |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_ascii_out.F |
42 |
DIAGSTATS_ASCII_OUT |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_calc.F |
196 |
DIAGSTATS_CALC |
statArr(ix) = statArr(im) |
|
./pkg/diagnostics/diagstats_calc.F |
201 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld(i,j),statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
321 |
DIAGSTATS_CALC |
statArr(ix) = MAXVAL(tmpFld, MASK = arrMaskL0.) |
|
./pkg/diagnostics/diagstats_calc.F |
78 |
DIAGSTATS_CALC |
INTEGER im, ix |
|
./pkg/diagnostics/diagstats_calc.F |
93 |
DIAGSTATS_CALC |
ix = nStats |
|
./pkg/diagnostics/diagstats_global.F |
122 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(ix,k) |
|
./pkg/diagnostics/diagstats_global.F |
127 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = tmpMax |
|
./pkg/diagnostics/diagstats_global.F |
149 |
DIAGSTATS_GLOBAL |
qtmp1(ix,0) = MAX(qtmp1(ix,0),qtmp1(ix,k)) |
|
./pkg/diagnostics/diagstats_global.F |
47 |
DIAGSTATS_GLOBAL |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_global.F |
48 |
DIAGSTATS_GLOBAL |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_global.F |
85 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_local.F |
235 |
DIAGSTATS_LOCAL |
statFld(ix,n) = statLoc(ix) |
|
./pkg/diagnostics/diagstats_local.F |
238 |
DIAGSTATS_LOCAL |
statFld(ix,n) = MAX( statFld(ix,n), statLoc(ix) ) |
|
./pkg/diagnostics/diagstats_local.F |
87 |
DIAGSTATS_LOCAL |
INTEGER im, ix, iv |
|
./pkg/diagnostics/diagstats_local.F |
88 |
DIAGSTATS_LOCAL |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
53 |
DIAGSTATS_MNC_OUT |
INTEGER im, ix, iv, ist |
|
./pkg/diagnostics/diagstats_mnc_out.F |
54 |
DIAGSTATS_MNC_OUT |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |