| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
164 |
KPPMIX |
I kmtj, shsq, dbloc, ghat |
|
./pkg/kpp/kpp_routines.F |
186 |
KPPMIX |
if(k.ge.kmtj(i)) diffus(i,k,md) = 0.0 |
|
./pkg/kpp/kpp_routines.F |
198 |
KPPMIX |
I kmtj |
|
./pkg/kpp/kpp_routines.F |
26 |
KPPMIX |
I kmtj, shsq, dvsq, ustar, msk |
|
./pkg/kpp/kpp_routines.F |
280 |
BLDEPTH |
I kmtj |
|
./pkg/kpp/kpp_routines.F |
345 |
BLDEPTH |
integer kmtj(imt) |
|
./pkg/kpp/kpp_routines.F |
421 |
BLDEPTH |
kbl(i) = max(kmtj(i),1) |
|
./pkg/kpp/kpp_routines.F |
572 |
BLDEPTH |
if (kbl(i).eq.kmtj(i) .and. Rib(i,kl).gt.Ricr) kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
583 |
BLDEPTH |
if (kl.gt.1 .and. kl.lt.kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
686 |
BLDEPTH |
kbl(i) = kmtj(i) |
|
./pkg/kpp/kpp_routines.F |
699 |
BLDEPTH |
if ( kbl(i).eq.kmtj(i) .and. (-zgrid(kl)).gt.hbl(i) ) then |
|
./pkg/kpp/kpp_routines.F |
882 |
RI_IWMIX |
I kmtj, shsq, dbloc, dblocSm, |
|
./pkg/kpp/kpp_routines.F |
912 |
RI_IWMIX |
integer kmtj (imt) |
|
./pkg/kpp/kpp_routines.F |
94 |
KPPMIX |
integer kmtj (imt ) |
|
./pkg/kpp/kpp_routines.F |
967 |
RI_IWMIX |
if (kmtj(i) .LE. 1 ) then |
|
./pkg/kpp/kpp_routines.F |
970 |
RI_IWMIX |
elseif (ki .GE. kmtj(i)) then |