| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1354 |
BLMIX |
integer i, kn, ki, kl |
|
./pkg/kpp/kpp_routines.F |
1397 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1404 |
BLMIX |
delhat = 0.5*hwide(kn) - zgrid(kn) - hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1405 |
BLMIX |
R = 1.0 - delhat / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1406 |
BLMIX |
dvdzup = (diffus(i,kn-1,1) - diffus(i,kn ,1)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1407 |
BLMIX |
dvdzdn = (diffus(i,kn ,1) - diffus(i,kn+1,1)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1411 |
BLMIX |
dvdzup = (diffus(i,kn-1,2) - diffus(i,kn ,2)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1412 |
BLMIX |
dvdzdn = (diffus(i,kn ,2) - diffus(i,kn+1,2)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1416 |
BLMIX |
dvdzup = (diffus(i,kn-1,3) - diffus(i,kn ,3)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1417 |
BLMIX |
dvdzdn = (diffus(i,kn ,3) - diffus(i,kn+1,3)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1421 |
BLMIX |
visch = diffus(i,kn,1) + viscp * delhat |
|
./pkg/kpp/kpp_routines.F |
1422 |
BLMIX |
difsh = diffus(i,kn,2) + difsp * delhat |
|
./pkg/kpp/kpp_routines.F |
1423 |
BLMIX |
difth = diffus(i,kn,3) + diftp * delhat |