| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
155 |
KPPMIX |
I kmtj, shsq, dbloc, ghat |
|
./pkg/kpp/kpp_routines.F |
177 |
KPPMIX |
if(k.ge.kmtj(i)) diffus(i,k,md) = 0.0 |
|
./pkg/kpp/kpp_routines.F |
189 |
KPPMIX |
I kmtj |
|
./pkg/kpp/kpp_routines.F |
24 |
KPPMIX |
I kmtj, shsq, dvsq, ustar, msk |
|
./pkg/kpp/kpp_routines.F |
268 |
BLDEPTH |
I kmtj |
|
./pkg/kpp/kpp_routines.F |
330 |
BLDEPTH |
integer kmtj(imt) |
|
./pkg/kpp/kpp_routines.F |
398 |
BLDEPTH |
kbl(i) = max(kmtj(i),1) |
|
./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 |
540 |
BLDEPTH |
if (kl.gt.1 .and. kl.lt.kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
628 |
BLDEPTH |
kbl(i) = kmtj(i) |
|
./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 |
809 |
RI_IWMIX |
I kmtj, shsq, dbloc, dblocSm, |
|
./pkg/kpp/kpp_routines.F |
838 |
RI_IWMIX |
integer kmtj (imt) |
|
./pkg/kpp/kpp_routines.F |
894 |
RI_IWMIX |
if (kmtj(i) .LE. 1 ) then |
|
./pkg/kpp/kpp_routines.F |
897 |
RI_IWMIX |
elseif (ki .GE. kmtj(i)) then |
|
./pkg/kpp/kpp_routines.F |
89 |
KPPMIX |
integer kmtj (imt ) |