Symbol Description Uses
zeta 17



File Line number Procedure Code
./pkg/kpp/kpp_init.F 36 KPP_INIT
      _KPP_RL zeta
./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 62 KPP_INIT
               if (zeta .gt. zetam) then
./pkg/kpp/kpp_init.F 63 KPP_INIT
                  wmt(i,j) = vonk*usta*(1. - conc2*zeta)**(1./4.)
./pkg/kpp/kpp_init.F 67 KPP_INIT
               if (zeta .gt. zetas) then
./pkg/kpp/kpp_init.F 68 KPP_INIT
                  wst(i,j) = vonk*usta*(1. - conc3*zeta)**(1./2.)