| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1229 |
BLMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
1265 |
BLMIX |
integer kbl(imt) |
|
./pkg/kpp/kpp_routines.F |
1324 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1325 |
BLMIX |
$ (1 - int(caseA(i)+phepsi)) * kbl(i) |
|
./pkg/kpp/kpp_routines.F |
140 |
KPPMIX |
integer kbl(imt ) |
|
./pkg/kpp/kpp_routines.F |
1445 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1462 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1482 |
ENHANCE |
I dkm1, hbl, kbl, diffus, casea |
|
./pkg/kpp/kpp_routines.F |
1504 |
ENHANCE |
integer kbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1525 |
ENHANCE |
ki = kbl(i)-1 |
|
./pkg/kpp/kpp_routines.F |
208 |
KPPMIX |
O , hbl, bfsfc, stable, casea, kbl, Rib, sigma |
|
./pkg/kpp/kpp_routines.F |
219 |
KPPMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
234 |
KPPMIX |
I dkm1, hbl, kbl, diffus, casea |
|
./pkg/kpp/kpp_routines.F |
252 |
KPPMIX |
if (k .lt. kbl(i)) then |
|
./pkg/kpp/kpp_routines.F |
290 |
BLDEPTH |
O , hbl, bfsfc, stable, casea, kbl, Rib, sigma |
|
./pkg/kpp/kpp_routines.F |
376 |
BLDEPTH |
integer kbl(imt) |
|
./pkg/kpp/kpp_routines.F |
421 |
BLDEPTH |
kbl(i) = max(kmtj(i),1) |
|
./pkg/kpp/kpp_routines.F |
422 |
BLDEPTH |
hbl(i) = -zgrid(kbl(i)) |
|
./pkg/kpp/kpp_routines.F |
488 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
489 |
BLDEPTH |
km1=max(1,kbl(i)) |
|
./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 |
581 |
BLDEPTH |
kl = kbl(i) |
|
./pkg/kpp/kpp_routines.F |
637 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
638 |
BLDEPTH |
km1=max(1,kbl(i)) |
|
./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 |
700 |
BLDEPTH |
kbl(i) = kl |
|
./pkg/kpp/kpp_routines.F |
748 |
BLDEPTH |
km =max(1,kbl(i)-1) |
|
./pkg/kpp/kpp_routines.F |
749 |
BLDEPTH |
km1=max(1,kbl(i)-0) |
|
./pkg/kpp/kpp_routines.F |
772 |
BLDEPTH |
1 sign(p5, -zgrid(kbl(i)) - p5*hwide(kbl(i)) - hbl(i)) |