| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1287 |
BLMIX |
integer i, kn, ki |
|
./pkg/kpp/kpp_routines.F |
1324 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1331 |
BLMIX |
delhat = 0.5*hwide(kn) - zgrid(kn) - hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1332 |
BLMIX |
R = 1.0 - delhat / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1333 |
BLMIX |
dvdzup = (diffus(i,kn-1,1) - diffus(i,kn ,1)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1334 |
BLMIX |
dvdzdn = (diffus(i,kn ,1) - diffus(i,kn+1,1)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1338 |
BLMIX |
dvdzup = (diffus(i,kn-1,2) - diffus(i,kn ,2)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1339 |
BLMIX |
dvdzdn = (diffus(i,kn ,2) - diffus(i,kn+1,2)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1343 |
BLMIX |
dvdzup = (diffus(i,kn-1,3) - diffus(i,kn ,3)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1344 |
BLMIX |
dvdzdn = (diffus(i,kn ,3) - diffus(i,kn+1,3)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1348 |
BLMIX |
visch = diffus(i,kn,1) + viscp * delhat |
|
./pkg/kpp/kpp_routines.F |
1349 |
BLMIX |
difsh = diffus(i,kn,2) + difsp * delhat |
|
./pkg/kpp/kpp_routines.F |
1350 |
BLMIX |
difth = diffus(i,kn,3) + diftp * delhat |