Symbol Description Uses
Alth4 9


File Line number Procedure Code
./pkg/mom_vecinv/mom_vi_hdissip.F 116 MOM_VI_HDISSIP 
            Alth4=sqrt(viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv)*L5
./pkg/mom_vecinv/mom_vi_hdissip.F 118 MOM_VI_HDISSIP 
            Alth4=0. _d 0
./pkg/mom_vecinv/mom_vi_hdissip.F 141 MOM_VI_HDISSIP 
           Alth4=(viscC4leith*grdVrt+(viscC4leithD*grdDiv))*L5
./pkg/mom_vecinv/mom_vi_hdissip.F 160 MOM_VI_HDISSIP 
         Alin=viscA4D+vg4*L4+Alth4
./pkg/mom_vecinv/mom_vi_hdissip.F 211 MOM_VI_HDISSIP 
            Alth4=sqrt(viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv)*L5
./pkg/mom_vecinv/mom_vi_hdissip.F 213 MOM_VI_HDISSIP 
            Alth4=0. _d 0
./pkg/mom_vecinv/mom_vi_hdissip.F 235 MOM_VI_HDISSIP 
           Alth4=(viscC4leith*grdVrt+(viscC4leithD*grdDiv))*L5
./pkg/mom_vecinv/mom_vi_hdissip.F 254 MOM_VI_HDISSIP 
         Alin=viscA4Z+vg4*L4+Alth4
./pkg/mom_vecinv/mom_vi_hdissip.F 48 MOM_VI_HDISSIP 
      _RL Alin,AlinMin,AlinMax,Alth2,Alth4,grdVrt,grdDiv