| Symbol | Description | Uses |
| viscA4_ZLth | 7 |
| File | Line number | Procedure | Code |
| ./pkg/mom_common/mom_calc_visc.F | 135 | MOM_CALC_VISC |
_RL viscA4_ZLth(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
| ./pkg/mom_common/mom_calc_visc.F | 242 | MOM_CALC_VISC |
viscA4_ZLth(i,j) = 0. _d 0 |
| ./pkg/mom_common/mom_calc_visc.F | 477 | MOM_CALC_VISC |
viscA4_ZLth(i,j)= |
| ./pkg/mom_common/mom_calc_visc.F | 495 | MOM_CALC_VISC |
viscA4_ZLth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
| ./pkg/mom_common/mom_calc_visc.F | 500 | MOM_CALC_VISC |
viscA4_ZLth(i,j)=0. _d 0 |
| ./pkg/mom_common/mom_calc_visc.F | 528 | MOM_CALC_VISC |
& +viscA4_ZLth(i,j)+viscA4_ZSmg(i,j) |
| ./pkg/mom_common/mom_calc_visc.F | 611 | MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid) |