| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1119 |
BLMIX |
integer i, kn, ki |
|
./pkg/kpp/kpp_routines.F |
1153 |
BLMIX |
kn = int(caseA(i)+phepsi) *(kbl(i) -1) + |
|
./pkg/kpp/kpp_routines.F |
1160 |
BLMIX |
delhat = 0.5*hwide(kn) - zgrid(kn) - hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1161 |
BLMIX |
R = 1.0 - delhat / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1162 |
BLMIX |
dvdzup = (diffus(i,kn-1,1) - diffus(i,kn ,1)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1163 |
BLMIX |
dvdzdn = (diffus(i,kn ,1) - diffus(i,kn+1,1)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1167 |
BLMIX |
dvdzup = (diffus(i,kn-1,2) - diffus(i,kn ,2)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1168 |
BLMIX |
dvdzdn = (diffus(i,kn ,2) - diffus(i,kn+1,2)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1172 |
BLMIX |
dvdzup = (diffus(i,kn-1,3) - diffus(i,kn ,3)) / hwide(kn) |
|
./pkg/kpp/kpp_routines.F |
1173 |
BLMIX |
dvdzdn = (diffus(i,kn ,3) - diffus(i,kn+1,3)) / hwide(kn+1) |
|
./pkg/kpp/kpp_routines.F |
1177 |
BLMIX |
visch = diffus(i,kn,1) + viscp * delhat |
|
./pkg/kpp/kpp_routines.F |
1178 |
BLMIX |
difsh = diffus(i,kn,2) + difsp * delhat |
|
./pkg/kpp/kpp_routines.F |
1179 |
BLMIX |
difth = diffus(i,kn,3) + diftp * delhat |