| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1153 |
BLMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
1189 |
BLMIX |
integer kbl(imt) |
|
./pkg/kpp/kpp_routines.F |
1248 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1249 |
BLMIX |
$ (1 - int(caseA(i)+phepsi)) * kbl(i) |
|
./pkg/kpp/kpp_routines.F |
131 |
KPPMIX |
integer kbl(imt ) |
|
./pkg/kpp/kpp_routines.F |
1369 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1386 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1406 |
ENHANCE |
I dkm1, hbl, kbl, diffus, casea |
|
./pkg/kpp/kpp_routines.F |
1428 |
ENHANCE |
integer kbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1449 |
ENHANCE |
ki = kbl(i)-1 |
|
./pkg/kpp/kpp_routines.F |
196 |
KPPMIX |
O , hbl, bfsfc, stable, casea, kbl, Rib, sigma |
|
./pkg/kpp/kpp_routines.F |
207 |
KPPMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
222 |
KPPMIX |
I dkm1, hbl, kbl, diffus, casea |
|
./pkg/kpp/kpp_routines.F |
240 |
KPPMIX |
if (k .lt. kbl(i)) then |
|
./pkg/kpp/kpp_routines.F |
275 |
BLDEPTH |
O , hbl, bfsfc, stable, casea, kbl, Rib, sigma |
|
./pkg/kpp/kpp_routines.F |
357 |
BLDEPTH |
integer kbl(imt) |
|
./pkg/kpp/kpp_routines.F |
398 |
BLDEPTH |
kbl(i) = max(kmtj(i),1) |
|
./pkg/kpp/kpp_routines.F |
399 |
BLDEPTH |
hbl(i) = -zgrid(kbl(i)) |
|
./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 |
538 |
BLDEPTH |
kl = kbl(i) |
|
./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 |
642 |
BLDEPTH |
kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
699 |
BLDEPTH |
1 sign(p5, -zgrid(kbl(i)) - p5*hwide(kbl(i)) - hbl(i)) |