| Symbol | Description | Uses |
| viscA4_ZLth | 7 |
| File | Line number | Procedure | Code |
| ./pkg/mom_common/mom_calc_visc.F | 133 | MOM_CALC_VISC |
_RL viscA4_ZLth(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
| ./pkg/mom_common/mom_calc_visc.F | 280 | MOM_CALC_VISC |
viscA4_ZLth(i,j) = 0. _d 0 |
| ./pkg/mom_common/mom_calc_visc.F | 537 | MOM_CALC_VISC |
viscA4_ZLth(i,j)= |
| ./pkg/mom_common/mom_calc_visc.F | 555 | MOM_CALC_VISC |
viscA4_ZLth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
| ./pkg/mom_common/mom_calc_visc.F | 560 | MOM_CALC_VISC |
viscA4_ZLth(i,j)=0. _d 0 |
| ./pkg/mom_common/mom_calc_visc.F | 588 | MOM_CALC_VISC |
& +viscA4_ZLth(i,j)+viscA4_ZSmg(i,j) |
| ./pkg/mom_common/mom_calc_visc.F | 634 | MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid) |