| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
100 |
KPPMIX |
integer kmtj (imt ) |
|
./pkg/kpp/kpp_routines.F |
1027 |
RI_IWMIX |
if (kmtj(i) .LE. 1 ) then |
|
./pkg/kpp/kpp_routines.F |
1030 |
RI_IWMIX |
elseif (ki .GE. kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
172 |
KPPMIX |
I kmtj, shsq, dbloc, ghat |
|
./pkg/kpp/kpp_routines.F |
196 |
KPPMIX |
if(k.ge.kmtj(i)) diffus(i,k,md) = 0.0 |
|
./pkg/kpp/kpp_routines.F |
208 |
KPPMIX |
I kmtj |
|
./pkg/kpp/kpp_routines.F |
296 |
BLDEPTH |
I kmtj |
|
./pkg/kpp/kpp_routines.F |
32 |
KPPMIX |
I kmtj, shsq, dvsq, ustar, msk |
|
./pkg/kpp/kpp_routines.F |
361 |
BLDEPTH |
integer kmtj(imt) |
|
./pkg/kpp/kpp_routines.F |
437 |
BLDEPTH |
if (kmtj(i).LT.1) kmtj(i) = 1 |
|
./pkg/kpp/kpp_routines.F |
438 |
BLDEPTH |
kbl(i) = kmtj(i) |
|
./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 |
611 |
BLDEPTH |
if (kl.gt.1 .and. kl.lt.kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
726 |
BLDEPTH |
kbl(i) = kmtj(i) |
|
./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 |
941 |
RI_IWMIX |
I kmtj, shsq, dbloc, dblocSm, |
|
./pkg/kpp/kpp_routines.F |
973 |
RI_IWMIX |
integer kmtj (imt) |