| File |
Line number |
Procedure |
Code |
|
./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/kpp/kpp_routines.F |
369 |
BLDEPTH |
integer i, kl |
|
./pkg/kpp/kpp_routines.F |
403 |
BLDEPTH |
do kl = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
405 |
BLDEPTH |
KPPBFSFC(i,kl) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
406 |
BLDEPTH |
KPPRi(i,kl) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
411 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
414 |
BLDEPTH |
kkppkey = (ikppkey-1)*Nr + kl |
|
./pkg/kpp/kpp_routines.F |
420 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
433 |
BLDEPTH |
casea(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
444 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
458 |
BLDEPTH |
KPPBFSFC(i,kl) = bfsfc(i) |
|
./pkg/kpp/kpp_routines.F |
483 |
BLDEPTH |
1 ( dbloc(i,kl-1) / (zgrid(kl-1)-zgrid(kl ))+ |
|
./pkg/kpp/kpp_routines.F |
484 |
BLDEPTH |
2 dbloc(i,kl ) / (zgrid(kl )-zgrid(kl+1))) |
|
./pkg/kpp/kpp_routines.F |
489 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
504 |
BLDEPTH |
tempVar1 = dvsq(i,kl) + vtsq |
|
./pkg/kpp/kpp_routines.F |
506 |
BLDEPTH |
Rib(i,kl) = Ritop(i,kl) / tempVar2 |
|
./pkg/kpp/kpp_routines.F |
508 |
BLDEPTH |
KPPRi(i,kl) = Rib(i,kl) |
|
./pkg/kpp/kpp_routines.F |
527 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
529 |
BLDEPTH |
if (kbl(i).eq.kmtj(i) .and. Rib(i,kl).gt.Ricr) kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
538 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
540 |
BLDEPTH |
if (kl.gt.1 .and. kl.lt.kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
541 |
BLDEPTH |
tempVar1 = (Rib(i,kl)-Rib(i,kl-1)) |
|
./pkg/kpp/kpp_routines.F |
542 |
BLDEPTH |
hbl(i) = -zgrid(kl-1) + (zgrid(kl-1)-zgrid(kl)) * |
|
./pkg/kpp/kpp_routines.F |
543 |
BLDEPTH |
1 (Ricr - Rib(i,kl-1)) / tempVar1 |
|
./pkg/kpp/kpp_routines.F |
639 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
641 |
BLDEPTH |
if ( kbl(i).eq.kmtj(i) .and. (-zgrid(kl)).gt.hbl(i) ) then |
|
./pkg/kpp/kpp_routines.F |
642 |
BLDEPTH |
kbl(i) = kl |
|
./pkg/obcs/obcs_apply_ptracer.F |
114 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
117 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBEptr(j,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
132 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
135 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBWptr(j,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
54 |
OBCS_APPLY_PTRACER |
INTEGER kl, kMx |
|
./pkg/obcs/obcs_apply_ptracer.F |
77 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
80 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBNptr(i,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
95 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
98 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBSptr(i,k,bi,bj,iTracer)*obc_mask |
|
./pkg/thsice/thsice_output.F |
201 |
THSICE_OUTPUT |
kl = 11 |
|
./pkg/thsice/thsice_output.F |
202 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_salFx_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
204 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
205 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_flxAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
206 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
207 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_frwAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
210 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
211 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_tMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
212 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
213 |
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/diagnostics/diagnostics_clear.F |
78 |
DIAGNOSTICS_CLRDIAG |
INTEGER kl |
|
./pkg/diagnostics/diagnostics_clear.F |
87 |
DIAGNOSTICS_CLRDIAG |
kl = ipt+k-1 |
|
./pkg/diagnostics/diagnostics_clear.F |
88 |
DIAGNOSTICS_CLRDIAG |
ndiag(kl,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_clear.F |
91 |
DIAGNOSTICS_CLRDIAG |
qdiag(i,j,kl,bi,bj) = 0.0 |
|
./pkg/diagnostics/diagstats_others_calc.F |
107 |
DIAGSTATS_LM_CALC |
I dpphys(1-Olx,1-Oly,kl,bi,bj), arrArea, |
|
./pkg/diagnostics/diagstats_others_calc.F |
113 |
DIAGSTATS_LM_CALC |
tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj) |
|
./pkg/diagnostics/diagstats_others_calc.F |
206 |
DIAGSTATS_G_CALC |
INTEGER kl |
|
./pkg/diagnostics/diagstats_others_calc.F |
212 |
DIAGSTATS_G_CALC |
kl = MIN(k,land_nLev) |
|
./pkg/diagnostics/diagstats_others_calc.F |
213 |
DIAGSTATS_G_CALC |
drLoc = land_dzF(kl) |
|
./pkg/diagnostics/diagstats_others_calc.F |
82 |
DIAGSTATS_LM_CALC |
INTEGER kl |
|
./pkg/diagnostics/diagstats_others_calc.F |
92 |
DIAGSTATS_LM_CALC |
kl = 1 + Nrphys - k |
|
./pkg/diagnostics/diagstats_others_calc.F |
95 |
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) |