| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_radiation.F |
50 |
EXF_RADIATION |
INTEGER ks, kl |
|
./pkg/exf/exf_radiation.F |
65 |
EXF_RADIATION |
kl = 2 |
|
./pkg/exf/exf_radiation.F |
77 |
EXF_RADIATION |
& *( theta(i,j,ks,bi,bj)-theta(i,j,kl,bi,bj) ) |
|
./pkg/exf/exf_radiation.F |
78 |
EXF_RADIATION |
& * maskC(i,j,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
17 |
FLT_BILINEAR |
I kl, nu, bi, bj, myThid ) |
|
./pkg/flt/flt_interp_linear.F |
36 |
FLT_BILINEAR |
INTEGER kl, nu, bi, bj, myThid |
|
./pkg/flt/flt_interp_linear.F |
52 |
FLT_BILINEAR |
IF ( kl.LT.1 .OR. kl.GT.Nr ) THEN |
|
./pkg/flt/flt_interp_linear.F |
84 |
FLT_BILINEAR |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
85 |
FLT_BILINEAR |
& + ddx * ddy *var(i2,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
86 |
FLT_BILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
87 |
FLT_BILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
89 |
FLT_BILINEAR |
klp = MIN(kl+1,Nr) |
|
./pkg/flt/flt_interp_linear.F |
90 |
FLT_BILINEAR |
u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
91 |
FLT_BILINEAR |
u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
92 |
FLT_BILINEAR |
u22 = ( var(i2,j2,kl,bi,bj)+var(i2,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
93 |
FLT_BILINEAR |
u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_biharm_r.F |
49 |
GAD_BIHARM_R |
INTEGER kl, km, kp |
|
./pkg/generic_advdiff/gad_biharm_r.F |
60 |
GAD_BIHARM_R |
kl = k+n-2 |
|
./pkg/generic_advdiff/gad_biharm_r.F |
61 |
GAD_BIHARM_R |
IF ( km.LT.1 .OR. kl.GT.Nr ) THEN |
|
./pkg/generic_advdiff/gad_biharm_r.F |
68 |
GAD_BIHARM_R |
tmpFac = recip_drC(kl)*deepFac2F(kl)*rhoFacF(kl) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
71 |
GAD_BIHARM_R |
gradR(i,j,n) = ( tracer(i,j,kl)-tracer(i,j,km) ) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
72 |
GAD_BIHARM_R |
& *tmpFac*maskC(i,j,kl,bi,bj)*maskC(i,j,km,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
80 |
GAD_BIHARM_R |
kl = k+n-2 |
|
./pkg/generic_advdiff/gad_biharm_r.F |
82 |
GAD_BIHARM_R |
tmpFac = recip_drF(kl)*recip_deepFac2C(kl)*recip_rhoFacC(kl) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
86 |
GAD_BIHARM_R |
& *_recip_hFacC(i,j,kl,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
1354 |
BLMIX |
integer i, kn, ki, kl |
|
./pkg/kpp/kpp_routines.F |
1522 |
BLMIX |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
1523 |
BLMIX |
sig = -zgrid(kl-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1544 |
BLMIX |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
1545 |
BLMIX |
sig = -zgrid(kl-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
404 |
BLDEPTH |
integer i, kl |
|
./pkg/kpp/kpp_routines.F |
439 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
440 |
BLDEPTH |
hbl(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
444 |
BLDEPTH |
do kl = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
446 |
BLDEPTH |
KPPBFSFC(i,kl) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
447 |
BLDEPTH |
KPPRi(i,kl) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
452 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
455 |
BLDEPTH |
kkppkey = (ikppkey-1)*Nr + kl |
|
./pkg/kpp/kpp_routines.F |
461 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
478 |
BLDEPTH |
casea(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
490 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
521 |
BLDEPTH |
KPPBFSFC(i,kl) = bfsfc(i) |
|
./pkg/kpp/kpp_routines.F |
548 |
BLDEPTH |
1 ( dbloc(i,kl-1) / (zgrid(kl-1)-zgrid(kl ))+ |
|
./pkg/kpp/kpp_routines.F |
549 |
BLDEPTH |
2 dbloc(i,kl ) / (zgrid(kl )-zgrid(kl+1))) |
|
./pkg/kpp/kpp_routines.F |
554 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
569 |
BLDEPTH |
tempVar1 = dvsq(i,kl) + vtsq |
|
./pkg/kpp/kpp_routines.F |
571 |
BLDEPTH |
Rib(i,kl) = Ritop(i,kl) / tempVar2 |
|
./pkg/kpp/kpp_routines.F |
573 |
BLDEPTH |
KPPRi(i,kl) = Rib(i,kl) |
|
./pkg/kpp/kpp_routines.F |
596 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
598 |
BLDEPTH |
if (kbl(i).eq.kmtj(i) .and. Rib(i,kl).gt.Ricr) kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
609 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
611 |
BLDEPTH |
if (kl.gt.1 .and. kl.lt.kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
612 |
BLDEPTH |
tempVar1 = (Rib(i,kl)-Rib(i,kl-1)) |
|
./pkg/kpp/kpp_routines.F |
613 |
BLDEPTH |
hbl(i) = -zgrid(kl-1) + (zgrid(kl-1)-zgrid(kl)) * |
|
./pkg/kpp/kpp_routines.F |
614 |
BLDEPTH |
1 (Ricr - Rib(i,kl-1)) / tempVar1 |
|
./pkg/kpp/kpp_routines.F |
739 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
741 |
BLDEPTH |
if ( kbl(i).eq.kmtj(i) .and. (-zgrid(kl)).gt.hbl(i) ) then |
|
./pkg/kpp/kpp_routines.F |
742 |
BLDEPTH |
kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
819 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
821 |
BLDEPTH |
1 sign(p5, -zgrid(kl) - p5*hwide(kl) - hbl(i)) |
|
./pkg/layers/layers_fluxcalc.F |
751 |
LAYERS_LOCATE |
INTEGER kl(sNx+1,sNy+1), ku(sNx+1,sNy+1) |
|
./pkg/layers/layers_fluxcalc.F |
757 |
LAYERS_LOCATE |
kl(i,j)=1 |
|
./pkg/layers/layers_fluxcalc.F |
764 |
LAYERS_LOCATE |
IF (ku(i,j)-kl(i,j).GT.1) THEN |
|
./pkg/layers/layers_fluxcalc.F |
765 |
LAYERS_LOCATE |
km=(ku(i,j)+kl(i,j))/2 |
|
./pkg/layers/layers_fluxcalc.F |
769 |
LAYERS_LOCATE |
kl(i,j)=km |
|
./pkg/layers/layers_fluxcalc.F |
784 |
LAYERS_LOCATE |
k(i,j)=kl(i,j) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
110 |
MOM_CALC_SMAG_3D |
S13(i,j,n) = str13(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
111 |
MOM_CALC_SMAG_3D |
S23(i,j,n) = str23(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
121 |
MOM_CALC_SMAG_3D |
kl = k |
|
./pkg/mom_common/mom_calc_smag_3d.F |
123 |
MOM_CALC_SMAG_3D |
tmpFac = smag3D_coeff*twoRL*SQRT(twoRL)*drF(kl)**twoThird |
|
./pkg/mom_common/mom_calc_smag_3d.F |
129 |
MOM_CALC_SMAG_3D |
viscAh3d_00(i,j,kl) = |
|
./pkg/mom_common/mom_calc_smag_3d.F |
146 |
MOM_CALC_SMAG_3D |
viscAh3d_12(i,j,kl) = |
|
./pkg/mom_common/mom_calc_smag_3d.F |
173 |
MOM_CALC_SMAG_3D |
kl = k+1 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
175 |
MOM_CALC_SMAG_3D |
tmpFac = smag3D_coeff*twoRL*SQRT(twoRL)*drC(kl)**twoThird |
|
./pkg/mom_common/mom_calc_smag_3d.F |
181 |
MOM_CALC_SMAG_3D |
viscAh3d_13(i,j,kl) = |
|
./pkg/mom_common/mom_calc_smag_3d.F |
198 |
MOM_CALC_SMAG_3D |
viscAh3d_23(i,j,kl) = |
|
./pkg/mom_common/mom_calc_smag_3d.F |
78 |
MOM_CALC_SMAG_3D |
INTEGER kl, n |
|
./pkg/mom_common/mom_calc_smag_3d.F |
90 |
MOM_CALC_SMAG_3D |
kl = k + n - 1 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
91 |
MOM_CALC_SMAG_3D |
IF ( kl.LE.Nr ) THEN |
|
./pkg/mom_common/mom_calc_smag_3d.F |
94 |
MOM_CALC_SMAG_3D |
S66(i,j,n) = str11(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
95 |
MOM_CALC_SMAG_3D |
& + str22(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
96 |
MOM_CALC_SMAG_3D |
& + str33(i,j,kl)**2 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
97 |
MOM_CALC_SMAG_3D |
S12(i,j,n) = str12(i,j,kl)**2 |
|
./pkg/obcs/obcs_apply_ptracer.F |
106 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
107 |
OBCS_APPLY_PTRACER |
pFld(Iobc,j,kl) = OBEptr(j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
121 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
122 |
OBCS_APPLY_PTRACER |
pFld(Iobc,j,kl) = OBWptr(j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
53 |
OBCS_APPLY_PTRACER |
INTEGER kl, kMx |
|
./pkg/obcs/obcs_apply_ptracer.F |
75 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
76 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBNptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
90 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
91 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBSptr(i,k,bi,bj,iTracer) |
|
./pkg/thsice/thsice_output.F |
168 |
THSICE_OUTPUT |
kl = 10 |
|
./pkg/thsice/thsice_output.F |
169 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_salFx_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
171 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
172 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_flxAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
173 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
174 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_frwAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
177 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
178 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_tMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
179 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
180 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_sMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
52 |
THSICE_OUTPUT |
INTEGER bi, bj, kl |
|
./pkg/bbl/bbl_calc_rho.F |
66 |
BBL_CALC_RHO |
INTEGER i,j,kl |
|
./pkg/bbl/bbl_calc_rho.F |
79 |
BBL_CALC_RHO |
kl = MAX(k-1,1) |
|
./pkg/bbl/bbl_calc_rho.F |
81 |
BBL_CALC_RHO |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, kl, |
|
./pkg/bbl/bbl_calc_rho.F |
85 |
BBL_CALC_RHO |
I kl, bi, bj, myThid ) |
|
./pkg/bbl/bbl_calc_rhs.F |
137 |
BBL_CALC_RHS |
kl = MAX(kLowC1,kLowC2) + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
141 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
144 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
149 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
152 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
239 |
BBL_CALC_RHS |
kl = MAX(kLowC1,kLowC2) + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
243 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
246 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
251 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
254 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
342 |
BBL_CALC_RHS |
kl = MAX(kLowC1,kLowC2) + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
346 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
349 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
354 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
357 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
444 |
BBL_CALC_RHS |
kl = MAX(kLowC1,kLowC2) + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
448 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
451 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
456 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
459 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
66 |
BBL_CALC_RHS |
INTEGER i, j, d, r, kBot, kLowC1, kLowC2, kl |
|
./pkg/diagnostics/diagnostics_clear.F |
81 |
DIAGNOSTICS_CLRDIAG |
INTEGER kl |
|
./pkg/diagnostics/diagnostics_clear.F |
90 |
DIAGNOSTICS_CLRDIAG |
kl = ipt+k-1 |
|
./pkg/diagnostics/diagnostics_clear.F |
91 |
DIAGNOSTICS_CLRDIAG |
ndiag(kl,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_clear.F |
94 |
DIAGNOSTICS_CLRDIAG |
qdiag(i,j,kl,bi,bj) = 0.0 |
|
./pkg/diagnostics/diagnostics_utils.F |
102 |
DIAGNOSTICS_GET_DIAG |
I kl, undefRL, |
|
./pkg/diagnostics/diagnostics_utils.F |
126 |
DIAGNOSTICS_GET_DIAG |
INTEGER kl |
|
./pkg/diagnostics/diagnostics_utils.F |
143 |
DIAGNOSTICS_GET_DIAG |
IF ( kl.GE.1 .AND. kl.LE.kLev ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
145 |
DIAGNOSTICS_GET_DIAG |
ELSEIF ( kl.NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
151 |
DIAGNOSTICS_GET_DIAG |
IF ( kl.GE.1 ) kd = kl |
|
./pkg/diagnostics/diagstats_others_calc.F |
108 |
DIAGSTATS_LM_CALC |
I dpphys(1-OLx,1-OLy,kl,bi,bj), arrArea, |
|
./pkg/diagnostics/diagstats_others_calc.F |
114 |
DIAGSTATS_LM_CALC |
tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj) |
|
./pkg/diagnostics/diagstats_others_calc.F |
208 |
DIAGSTATS_G_CALC |
INTEGER kl |
|
./pkg/diagnostics/diagstats_others_calc.F |
214 |
DIAGSTATS_G_CALC |
kl = MIN(k,land_nLev) |
|
./pkg/diagnostics/diagstats_others_calc.F |
215 |
DIAGSTATS_G_CALC |
drLoc = land_dzF(kl) |
|
./pkg/diagnostics/diagstats_others_calc.F |
83 |
DIAGSTATS_LM_CALC |
INTEGER kl |
|
./pkg/diagnostics/diagstats_others_calc.F |
93 |
DIAGSTATS_LM_CALC |
kl = 1 + Nrphys - k |
|
./pkg/diagnostics/diagstats_others_calc.F |
96 |
DIAGSTATS_LM_CALC |
kl = 1 |
|
./pkg/down_slope/dwnslp_calc_rho.F |
58 |
DWNSLP_CALC_RHO |
INTEGER i,j,kl |
|
./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_calc_rho.F |
72 |
DWNSLP_CALC_RHO |
tLoc(i,j) = tFld(i,j,kl,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
73 |
DWNSLP_CALC_RHO |
sLoc(i,j) = sFld(i,j,kl,bi,bj) |