| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_output.F |
211 |
THSICE_OUTPUT |
kl = 11 |
|
./pkg/thsice/thsice_output.F |
213 |
THSICE_OUTPUT |
& ice_salFx_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
215 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
217 |
THSICE_OUTPUT |
& ice_flxAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
218 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
220 |
THSICE_OUTPUT |
& ice_frwAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
223 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
225 |
THSICE_OUTPUT |
& ice_tMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
226 |
THSICE_OUTPUT |
kl = kl+1 |
|
./pkg/thsice/thsice_output.F |
228 |
THSICE_OUTPUT |
& ice_sMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
47 |
THSICE_OUTPUT |
INTEGER bi, bj, kl |
|
./pkg/kpp/kpp_routines.F |
317 |
BLDEPTH |
integer i, kl |
|
./pkg/kpp/kpp_routines.F |
341 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
344 |
BLDEPTH |
kkppkey = (ikppkey-1)*Nr + kl |
|
./pkg/kpp/kpp_routines.F |
350 |
BLDEPTH |
worka(i) = zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
364 |
BLDEPTH |
casea(i) = -zgrid(kl) |
|
./pkg/kpp/kpp_routines.F |
390 |
BLDEPTH |
1 ( dbloc(i,kl-1) / (zgrid(kl-1)-zgrid(kl ))+ |
|
./pkg/kpp/kpp_routines.F |
391 |
BLDEPTH |
2 dbloc(i,kl ) / (zgrid(kl )-zgrid(kl+1))) |
|
./pkg/kpp/kpp_routines.F |
396 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
411 |
BLDEPTH |
tempVar1 = dvsq(i,kl) + vtsq |
|
./pkg/kpp/kpp_routines.F |
413 |
BLDEPTH |
Rib(i,kl) = Ritop(i,kl) / tempVar2 |
|
./pkg/kpp/kpp_routines.F |
425 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
427 |
BLDEPTH |
if (kbl(i).eq.kmtj(i) .and. Rib(i,kl).gt.Ricr) kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
435 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
437 |
BLDEPTH |
if (kl.gt.1 .and. kl.lt.kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
438 |
BLDEPTH |
tempVar1 = (Rib(i,kl)-Rib(i,kl-1)) |
|
./pkg/kpp/kpp_routines.F |
439 |
BLDEPTH |
hbl(i) = -zgrid(kl-1) + (zgrid(kl-1)-zgrid(kl)) * |
|
./pkg/kpp/kpp_routines.F |
440 |
BLDEPTH |
1 (Ricr - Rib(i,kl-1)) / tempVar1 |
|
./pkg/kpp/kpp_routines.F |
511 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
513 |
BLDEPTH |
if ( kbl(i).eq.kmtj(i) .and. (-zgrid(kl)).gt.hbl(i) ) then |
|
./pkg/kpp/kpp_routines.F |
514 |
BLDEPTH |
kbl(i) = kl |
|
./pkg/diagnostics/diagstats_local.F |
304 |
DIAGSTATS_LM_CALC |
INTEGER kl |
|
./pkg/diagnostics/diagstats_local.F |
310 |
DIAGSTATS_LM_CALC |
kl = 1 + Nrphys - k |
|
./pkg/diagnostics/diagstats_local.F |
313 |
DIAGSTATS_LM_CALC |
kl = 1 |
|
./pkg/diagnostics/diagstats_local.F |
327 |
DIAGSTATS_LM_CALC |
I dpphys(1-Olx,1-Oly,kl,bi,bj), arrArea, |
|
./pkg/diagnostics/diagstats_local.F |
407 |
DIAGSTATS_G_CALC |
INTEGER kl |
|
./pkg/diagnostics/diagstats_local.F |
413 |
DIAGSTATS_G_CALC |
kl = MIN(k,land_nLev) |
|
./pkg/diagnostics/diagstats_local.F |
414 |
DIAGSTATS_G_CALC |
drLoc = land_dzF(kl) |