| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
520 |
NO PROCEDURE |
& kLowC |
|
./model/inc/GRID.h |
524 |
NO PROCEDURE |
INTEGER kLowC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
652 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
227 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
314 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
354 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
387 |
GGL90_IDEMIX |
k = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
416 |
GGL90_IDEMIX |
k = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
181 |
GMREDI_CALC_TENSOR |
kLow_W(i,j) = MIN(kLowC(i-1,j,bi,bj),kLowC(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
198 |
GMREDI_CALC_TENSOR |
kLow_S(i,j) = MIN(kLowC(i,j-1,bi,bj),kLowC(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
346 |
GMREDI_CALC_TENSOR |
integrDepth = -rC( kLowC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
429 |
GMREDI_CALC_TENSOR |
I kLowC(1-OLx,1-OLy,bi,bj), |
|
./pkg/gmredi/gmredi_calc_urms.F |
60 |
GMREDI_CALC_URMS |
k = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_urms.F |
73 |
GMREDI_CALC_URMS |
IF (k.LT.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_calc_urms.F |
86 |
GMREDI_CALC_URMS |
if (kLowC(i,j,bi,bj).EQ.0) urms(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
1007 |
GMREDI_K3D |
IF (kLowC(i,j,bi,bj).GT.0) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
223 |
GMREDI_K3D |
kLow_C(i,j) = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
645 |
GMREDI_K3D |
IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
662 |
APPLY_FORCING_T |
IF ( k.EQ.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
253 |
CALC_3D_DIFFUSIVITY |
& k.LE.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
278 |
CALC_3D_DIFFUSIVITY |
IF ( k.EQ.kLowC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
326 |
CALC_3D_DIFFUSIVITY |
& km.LT.kLowC(i,j,bi,bj) ) THEN |
|
./pkg/kpp/kpp_init_varia.F |
45 |
KPP_INIT_VARIA |
nzmax(i,j,bi,bj) = kLowC(I,J,bi,bj) |
|
./model/src/calc_viscosity.F |
135 |
CALC_VISCOSITY |
& k.LE.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
145 |
CALC_VISCOSITY |
& k.LE.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
171 |
CALC_VISCOSITY |
IF ( k.EQ.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
214 |
CALC_VISCOSITY |
IF ( k.EQ.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
262 |
CALC_VISCOSITY |
& km.LT.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
306 |
CALC_VISCOSITY |
& km.LT.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
108 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
88 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./pkg/opps/opps_interface.F |
141 |
OPPS_INTERFACE |
kMax = kLowC(I,J,bi,bj) |
|
./model/src/do_oceanic_phys.F |
1117 |
DO_OCEANIC_PHYS |
I bi, bj, kLowC, rhoInSitu, |
|
./pkg/ptracers/ptracers_integrate.F |
402 |
PTRACERS_INTEGRATE |
I GAD_TR, bi, bj, kLowC, |
|
./model/src/ini_masks_etc.F |
184 |
INI_MASKS_ETC |
kLowC (i,j,bi,bj) = 0 |
|
./model/src/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kLowC(i,j,bi,bj) = k |
|
./model/src/ini_sigma_hfac.F |
87 |
INI_SIGMA_HFAC |
kLowC (i,j,bi,bj) = Nr |
|
./model/src/ini_sigma_hfac.F |
92 |
INI_SIGMA_HFAC |
kLowC (i,j,bi,bj) = 0 |
|
./model/src/salt_integrate.F |
457 |
SALT_INTEGRATE |
I GAD_SALINITY, bi, bj, kLowC, |
|
./model/src/temp_integrate.F |
465 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, bi, bj, kLowC, |
|
./pkg/bbl/bbl_calc_rho.F |
90 |
BBL_CALC_RHO |
IF ( k .GT. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
110 |
BBL_CALC_RHS |
kBot = kLowC(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
130 |
BBL_CALC_RHS |
kLowC1 = kLowC(i,j ,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
131 |
BBL_CALC_RHS |
kLowC2 = kLowC(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
170 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
171 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
178 |
BBL_CALC_RHS |
thk_r = drF(kLowC(i,r,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
179 |
BBL_CALC_RHS |
& hFacC(i,r,kLowC(i,r,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
232 |
BBL_CALC_RHS |
kLowC1 = kLowC(i,j ,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
233 |
BBL_CALC_RHS |
kLowC2 = kLowC(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
272 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
273 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
280 |
BBL_CALC_RHS |
thk_r = drF(kLowC(i,r,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
281 |
BBL_CALC_RHS |
& hFacC(i,r,kLowC(i,r,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
335 |
BBL_CALC_RHS |
kLowC1 = kLowC(i ,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
336 |
BBL_CALC_RHS |
kLowC2 = kLowC(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
375 |
BBL_CALC_RHS |
thk_d = drF(kLowC(d,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
376 |
BBL_CALC_RHS |
& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
383 |
BBL_CALC_RHS |
thk_r = drF(kLowC(r,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
384 |
BBL_CALC_RHS |
& hFacC(r,j,kLowC(r,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
437 |
BBL_CALC_RHS |
kLowC1 = kLowC(i ,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
438 |
BBL_CALC_RHS |
kLowC2 = kLowC(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
477 |
BBL_CALC_RHS |
thk_d = drF(kLowC(d,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
478 |
BBL_CALC_RHS |
& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
485 |
BBL_CALC_RHS |
thk_r = drF(kLowC(r,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
486 |
BBL_CALC_RHS |
& hFacC(r,j,kLowC(r,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
89 |
BBL_CALC_RHS |
kBot = max(1,kLowC(i,j,bi,bj)) |
|
./pkg/bbl/bbl_init_varia.F |
41 |
BBL_INIT_VARIA |
kBot = max(1,kLowC(i,j,bi,bj)) |
|
./pkg/bbl/bbl_tendency_apply.F |
107 |
BBL_TENDENCY_APPLY_S |
IF ( k .EQ. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_tendency_apply.F |
54 |
BBL_TENDENCY_APPLY_T |
IF ( k .EQ. kLowC(i,j,bi,bj) ) |
|
./pkg/dic/dic_biotic_forcing.F |
319 |
DIC_BIOTIC_FORCING |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
71 |
DWNSLP_CALC_RHO |
kl = MIN( MAX(k,kSurfC(i,j,bi,bj)), MAX(kLowC(i,j,bi,bj),1) ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
141 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).GT.kLowC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
150 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).LT.kLowC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
169 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).GT.kLowC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
178 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).LT.kLowC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
223 |
DWNSLP_INIT_FIXED |
kdeep = kLowC (ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
224 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
319 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
320 |
DWNSLP_INIT_FIXED |
dkMx = kLowC (ideep,jdeep,bi,bj) - kshelf |