| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_init_fixed.F |
139 |
KPP_INIT_FIXED |
zehat = deltaz*i + zmin |
|
./pkg/kpp/kpp_init_fixed.F |
142 |
KPP_INIT_FIXED |
zeta = zehat / max(phepsi,usta**3) |
|
./pkg/kpp/kpp_init_fixed.F |
143 |
KPP_INIT_FIXED |
IF (zehat .GE. 0.) THEN |
|
./pkg/kpp/kpp_init_fixed.F |
150 |
KPP_INIT_FIXED |
wmt(i,j) = vonk*(conam*usta**3 - concm*zehat)**p33 |
|
./pkg/kpp/kpp_init_fixed.F |
155 |
KPP_INIT_FIXED |
wst(i,j) = vonk*(conas*usta**3 - concs*zehat)**p33 |
|
./pkg/kpp/kpp_init_fixed.F |
40 |
KPP_INIT_FIXED |
_RL zehat |
|
./pkg/kpp/kpp_routines.F |
750 |
WSCALE |
_RL zehat |
|
./pkg/kpp/kpp_routines.F |
762 |
WSCALE |
zehat = vonk*sigma(i)*hbl(i)*bfsfc(i) |
|
./pkg/kpp/kpp_routines.F |
764 |
WSCALE |
if (zehat .le. zmax) then |
|
./pkg/kpp/kpp_routines.F |
766 |
WSCALE |
zdiff = zehat - zmin |
|
./pkg/kpp/kpp_routines.F |
793 |
WSCALE |
tempVar = u3 + conc1 * zehat |