| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1066 |
BLMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
1097 |
BLMIX |
integer kbl(imt) |
|
./pkg/kpp/kpp_routines.F |
110 |
KPPMIX |
integer kbl (imt ) |
|
./pkg/kpp/kpp_routines.F |
1153 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1154 |
BLMIX |
$ (1 - int(caseA(i)+phepsi)) * kbl(i) |
|
./pkg/kpp/kpp_routines.F |
1274 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1291 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1311 |
ENHANCE |
I dkm1, hbl, kbl, diffus, casea |
|
./pkg/kpp/kpp_routines.F |
1331 |
ENHANCE |
integer kbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1352 |
ENHANCE |
ki = kbl(i)-1 |
|
./pkg/kpp/kpp_routines.F |
171 |
KPPMIX |
O , hbl, bfsfc, stable, casea, kbl, Rib, sigma |
|
./pkg/kpp/kpp_routines.F |
181 |
KPPMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
194 |
KPPMIX |
I dkm1, hbl, kbl, diffus, casea |
|
./pkg/kpp/kpp_routines.F |
211 |
KPPMIX |
if (k .lt. kbl(i)) then |
|
./pkg/kpp/kpp_routines.F |
233 |
BLDEPTH |
O , hbl, bfsfc, stable, casea, kbl, Rib, sigma |
|
./pkg/kpp/kpp_routines.F |
304 |
BLDEPTH |
integer kbl (imt) |
|
./pkg/kpp/kpp_routines.F |
337 |
BLDEPTH |
kbl(i) = max(kmtj(i),1) |
|
./pkg/kpp/kpp_routines.F |
338 |
BLDEPTH |
hbl(i) = -zgrid(kbl(i)) |
|
./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 |
501 |
BLDEPTH |
kbl(i) = kmtj(i) |
|
./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/kpp/kpp_routines.F |
553 |
BLDEPTH |
1 sign(p5, -zgrid(kbl(i)) - p5*hwide(kbl(i)) - hbl(i)) |