Symbol Description Uses
viscC2leith Leith non-dimensional viscosity factor (grad(vort)) 14


File Line number Procedure Code
./model/src/config_summary.F 112 CONFIG_SUMMARY 
      CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',
./model/src/ini_parms.F 141 INI_PARMS 
     & viscC2leith, viscC4leith,
./model/inc/PARAMS.h 579 NO PROCEDURE 
     & viscC2leith, viscC2leithD,
./model/inc/PARAMS.h 647 NO PROCEDURE 
      _RL viscC2leith
./pkg/mom_vecinv/mom_vecinv.F 227 MOM_VECINV 
     &    .OR. viscC2leith.NE.0. .OR. viscC4leith.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 281 MOM_VI_HDISSIP 
      IF ( viscC2leith.NE.0. .OR. viscAhGrid.NE.0.
./pkg/mom_vecinv/mom_vi_hdissip.F 56 MOM_VI_HDISSIP 
     &  .OR.(viscC2leith.NE.0.)
./model/src/set_defaults.F 97 SET_DEFAULTS 
      viscC2leith         = 0.D0