Declare local variables NoSt and ShSt (normal stress and shear stress)

NOAA-GFDL · Aug 10, 2020 · 1978854 · 1978854
1 parent b62ad1b
commit 1978854
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/parameterizations/lateral/MOM_hor_visc.F90 b/src/parameterizations/lateral/MOM_hor_visc.F90
@@ -218,6 +218,12 @@ subroutine horizontal_viscosity(u, v, h, diffu, diffv, MEKE, VarMix, G, GV, US,
   real, dimension(SZIB_(G),SZJ_(G),SZK_(G)), &
                                  intent(out) :: diffu  !< Zonal acceleration due to convergence of
                                                        !! along-coordinate stress tensor [L T-2 ~> m s-2]
+  real, dimension(SZIB_(G),SZJB_(G),SZK_(G)) :: &
+                                 intent(out) :: NoSt   !< Normal stress [T-1 ~> s-1].
+
+  real, dimension(SZIB_(G),SZJB_(G),SZK_(G)) :: &
+                                 intent(out) :: ShSt   !< Shear stress [T-1 ~> s-1].
+
   real, dimension(SZI_(G),SZJB_(G),SZK_(G)), &
                                  intent(out) :: diffv  !< Meridional acceleration due to convergence
                                                        !! of along-coordinate stress tensor [L T-2 ~> m s-2].