Symbol Description Uses
leithD2fac 12


File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 114 MOM_CALC_VISC 
      _RL leithD2fac, leithD4fac
./pkg/mom_common/mom_calc_visc.F 240 MOM_CALC_VISC 
         leithD2fac=(viscC2leithD/pi)**6
./pkg/mom_common/mom_calc_visc.F 245 MOM_CALC_VISC 
         leithD2fac=(viscC2leithD/pi)**3
./pkg/mom_common/mom_calc_visc.F 252 MOM_CALC_VISC 
        leithD2fac=0. _d 0
./pkg/mom_common/mom_calc_visc.F 400 MOM_CALC_VISC 
     &     SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3
./pkg/mom_common/mom_calc_visc.F 404 MOM_CALC_VISC 
     &     SQRT(leithD2fac*grdDiv)*L3
./pkg/mom_common/mom_calc_visc.F 419 MOM_CALC_VISC 
          viscAh_Dlth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3
./pkg/mom_common/mom_calc_visc.F 421 MOM_CALC_VISC 
          viscAh_DlthD(i,j)=((leithD2fac*grdDiv))*L3
./pkg/mom_common/mom_calc_visc.F 536 MOM_CALC_VISC 
     &     SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3
./pkg/mom_common/mom_calc_visc.F 540 MOM_CALC_VISC 
     &     SQRT(leithD2fac*grdDiv)*L3
./pkg/mom_common/mom_calc_visc.F 554 MOM_CALC_VISC 
          viscAh_ZLth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3
./pkg/mom_common/mom_calc_visc.F 556 MOM_CALC_VISC 
          viscAh_ZLthD(i,j)=(leithD2fac*grdDiv)*L3