| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_init_fixed.F |
141 |
KPP_INIT_FIXED |
usta = deltau*j + umin |
|
./pkg/kpp/kpp_init_fixed.F |
142 |
KPP_INIT_FIXED |
zeta = zehat / max(phepsi,usta**3) |
|
./pkg/kpp/kpp_init_fixed.F |
144 |
KPP_INIT_FIXED |
wmt(i,j) = vonk*usta/(1. + conc1*zeta) |
|
./pkg/kpp/kpp_init_fixed.F |
148 |
KPP_INIT_FIXED |
wmt(i,j) = vonk*usta*(1. - conc2*zeta)**p25 |
|
./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 |
153 |
KPP_INIT_FIXED |
wst(i,j) = vonk*usta*SQRT(1. _d 0 - conc3*zeta) |
|
./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 |
42 |
KPP_INIT_FIXED |
_RL usta |