Symbol Description Uses
beta2 6


File Line number Procedure Code
./pkg/my82/my82_init.F 40 MY82_INIT 
      beta2  = A1*(B1*(gam1-C1) + 6.*A1 + 3.*A2)
./pkg/my82/MY82.h 46 NO PROCEDURE 
      _RL    beta1, beta2, beta3, beta4
./pkg/my82/MY82.h 52 NO PROCEDURE 
     &     alpha1, alpha2, beta1, beta2, beta3, beta4,
./pkg/my82/my82_calc.F 109 MY82_CALC 
         RiFlux = ( btmp - SQRT(btmp*btmp - 4.*beta2*beta3*RiTmp) )
./pkg/my82/my82_calc.F 110 MY82_CALC 
     &        /(2.*beta2)
./pkg/my82/my82_calc.F 114 MY82_CALC 
         SM(I,J,K)   = SHtmp*(beta1-beta2*RiFlux)/(beta3-beta4*RiFlux)