Symbol Description Uses
leith2fac 8


File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 114 MOM_CALC_VISC 
      _RL leith2fac, leith4fac
./pkg/mom_common/mom_calc_visc.F 202 MOM_CALC_VISC 
         leith2fac =(viscC2leith /pi)**6
./pkg/mom_common/mom_calc_visc.F 207 MOM_CALC_VISC 
         leith2fac =(viscC2leith /pi)**3
./pkg/mom_common/mom_calc_visc.F 213 MOM_CALC_VISC 
        leith2fac=0. _d 0
./pkg/mom_common/mom_calc_visc.F 360 MOM_CALC_VISC 
     &     SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3
./pkg/mom_common/mom_calc_visc.F 378 MOM_CALC_VISC 
          viscAh_Dlth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3
./pkg/mom_common/mom_calc_visc.F 471 MOM_CALC_VISC 
     &     SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3
./pkg/mom_common/mom_calc_visc.F 489 MOM_CALC_VISC 
          viscAh_ZLth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3