| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_init.F |
37 |
KPP_INIT |
_KPP_RL usta |
|
./pkg/kpp/kpp_init.F |
56 |
KPP_INIT |
usta = deltau*j + umin |
|
./pkg/kpp/kpp_init.F |
57 |
KPP_INIT |
zeta = zehat / max(phepsi,usta**3) |
|
./pkg/kpp/kpp_init.F |
59 |
KPP_INIT |
wmt(i,j) = vonk*usta/(1. + conc1*zeta) |
|
./pkg/kpp/kpp_init.F |
63 |
KPP_INIT |
wmt(i,j) = vonk*usta*(1. - conc2*zeta)**(1./4.) |
|
./pkg/kpp/kpp_init.F |
65 |
KPP_INIT |
wmt(i,j) = vonk*(conam*usta**3 - concm*zehat)**(1./3.) |
|
./pkg/kpp/kpp_init.F |
68 |
KPP_INIT |
wst(i,j) = vonk*usta*(1. - conc3*zeta)**(1./2.) |
|
./pkg/kpp/kpp_init.F |
70 |
KPP_INIT |
wst(i,j) = vonk*(conas*usta**3 - concs*zehat)**(1./3.) |