Symbol Description Uses
viscC2leithD Modified Leith non-dimensional viscosity factor (grad(div)) 13


File Line number Procedure Code
./model/src/config_summary.F 114 CONFIG_SUMMARY 
      CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',
./model/src/ini_parms.F 143 INI_PARMS 
     & viscC2leithD, viscC4leithD, viscC2Smag,
./model/inc/PARAMS.h 579 NO PROCEDURE 
     & viscC2leith, viscC2leithD,
./model/inc/PARAMS.h 648 NO PROCEDURE 
      _RL viscC2leithD
./pkg/mom_vecinv/mom_vecinv.F 228 MOM_VECINV 
     &    .OR. viscC2leithD.NE.0. .OR. viscC4leithD.NE.0.
./pkg/mom_vecinv/mom_vi_hdissip.F 108 MOM_VI_HDISSIP 
           IF ( (viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)
./pkg/mom_vecinv/mom_vi_hdissip.F 110 MOM_VI_HDISSIP 
            Alth2=sqrt(viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)*L3
./pkg/mom_vecinv/mom_vi_hdissip.F 140 MOM_VI_HDISSIP 
           Alth2=(viscC2leith*grdVrt+(viscC2leithD*grdDiv))*L3
./pkg/mom_vecinv/mom_vi_hdissip.F 203 MOM_VI_HDISSIP 
           IF ( (viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)
./pkg/mom_vecinv/mom_vi_hdissip.F 205 MOM_VI_HDISSIP 
            Alth2=sqrt(viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)*L3
./pkg/mom_vecinv/mom_vi_hdissip.F 234 MOM_VI_HDISSIP 
           Alth2=(viscC2leith*grdVrt+(viscC2leithD*grdDiv))*L3
./pkg/mom_vecinv/mom_vi_hdissip.F 57 MOM_VI_HDISSIP 
     &  .OR.(viscC2leithD.NE.0.)
./model/src/set_defaults.F 98 SET_DEFAULTS 
      viscC2leithD        = 0.D0