| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
190 |
KPP_CALC |
_RL hbl ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_calc.F |
518 |
KPP_CALC |
O , hbl |
|
./pkg/kpp/kpp_calc.F |
542 |
KPP_CALC |
KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
1153 |
BLMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
117 |
KPPMIX |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1185 |
BLMIX |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1234 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
1255 |
BLMIX |
delhat = 0.5*hwide(kn) - zgrid(kn) - hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1278 |
BLMIX |
gat1m(i) = visch / hbl(i) / wm(i) |
|
./pkg/kpp/kpp_routines.F |
1281 |
BLMIX |
gat1s(i) = difsh / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1284 |
BLMIX |
gat1t(i) = difth / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1318 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1327 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
1337 |
BLMIX |
sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1350 |
BLMIX |
blmc(i,ki,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm) |
|
./pkg/kpp/kpp_routines.F |
1351 |
BLMIX |
blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1352 |
BLMIX |
blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
1358 |
BLMIX |
tempVar = ws(i) * hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1369 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1380 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
1386 |
BLMIX |
sig = -zgrid(kbl(i)-1) / hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1393 |
BLMIX |
dkm1(i,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm) |
|
./pkg/kpp/kpp_routines.F |
1394 |
BLMIX |
dkm1(i,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1395 |
BLMIX |
dkm1(i,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
1406 |
ENHANCE |
I dkm1, hbl, kbl, diffus, casea |
|
./pkg/kpp/kpp_routines.F |
1427 |
ENHANCE |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1451 |
ENHANCE |
delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+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 |
275 |
BLDEPTH |
O , hbl, bfsfc, stable, casea, kbl, Rib, sigma |
|
./pkg/kpp/kpp_routines.F |
34 |
KPPMIX |
O , hbl |
|
./pkg/kpp/kpp_routines.F |
353 |
BLDEPTH |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
399 |
BLDEPTH |
hbl(i) = -zgrid(kbl(i)) |
|
./pkg/kpp/kpp_routines.F |
542 |
BLDEPTH |
hbl(i) = -zgrid(kl-1) + (zgrid(kl-1)-zgrid(kl)) * |
|
./pkg/kpp/kpp_routines.F |
556 |
BLDEPTH |
worka(i) = hbl(i) |
|
./pkg/kpp/kpp_routines.F |
576 |
BLDEPTH |
worka(i) = hbl(i) |
|
./pkg/kpp/kpp_routines.F |
617 |
BLDEPTH |
hbl(i) = min(hbl(i),hlimit) |
|
./pkg/kpp/kpp_routines.F |
627 |
BLDEPTH |
hbl(i) = max(hbl(i),minKPPhbl) |
|
./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 |
652 |
BLDEPTH |
worka(i) = hbl(i) |
|
./pkg/kpp/kpp_routines.F |
672 |
BLDEPTH |
worka(i) = hbl(i) |
|
./pkg/kpp/kpp_routines.F |
699 |
BLDEPTH |
1 sign(p5, -zgrid(kbl(i)) - p5*hwide(kbl(i)) - hbl(i)) |
|
./pkg/kpp/kpp_routines.F |
710 |
WSCALE |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
736 |
WSCALE |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
762 |
WSCALE |
zehat = vonk*sigma(i)*hbl(i)*bfsfc(i) |