diff --git a/src/parameterizations/lateral/MOM_Zanna_Bolton.F90 b/src/parameterizations/lateral/MOM_Zanna_Bolton.F90 index b2d0c359bf..4817298a11 100644 --- 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, &