Symbol Description Uses
wst 9



File Line number Procedure Code
./pkg/kpp/kpp_routines.F 637 WSCALE
            was   = fzfrac     * wst(iz,jup1) + zfrac * wst(izp1,jup1)
./pkg/kpp/kpp_routines.F 638 WSCALE
            wbs   = fzfrac     * wst(iz,ju  ) + zfrac * wst(izp1,ju  )
./pkg/kpp/kpp_init.F 60 KPP_INIT
               wst(i,j) = wmt(i,j)
./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.)
./pkg/kpp/KPP_PARAMS.h 167 NO PROCEDURE
      _KPP_RL          wmt(0:nni+1,0:nnj+1), wst(0:nni+1,0:nnj+1)
./pkg/kpp/KPP_PARAMS.h 169 NO PROCEDURE
      common /kmixcws/ wmt, wst