First memory, then spatially filter

NoraLoose · Apr 10, 2024 · f58eb02 · f58eb02
1 parent c1d5fc5
commit f58eb02
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/parameterizations/lateral/MOM_Zanna_Bolton.F90 b/src/parameterizations/lateral/MOM_Zanna_Bolton.F90
@@ -678,12 +678,13 @@ subroutine Zanna_Bolton_2020(u, v, h, diffu, diffv, G, GV, CS, &
     call compute_stress_ANN_3x3(G, GV, CS)
   endif
 
-  ! Smooth the stress tensor if specified
-  call filter_stress(G, GV, CS)
 
   if (CS%ZB_memory_location == 1 .OR. CS%ZB_memory_location == 3) then
     if (CS%ZB_memory_type > 0) call step_forward_ZB_memory(u, v, h, G, GV, CS, eddy=.true.)
   endif
+
+  ! Smooth the stress tensor if specified
+  call filter_stress(G, GV, CS)
 
   ! Compute acceleration from a given stress tensor
   call compute_stress_divergence(h, ZB2020u, ZB2020v,    &