Set visc%Kv_slow to zero in diabatic

NOAA-GFDL · Apr 16, 2018 · fd23f91 · fd23f91
1 parent d774e5f
commit fd23f91
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/parameterizations/vertical/MOM_diabatic_driver.F90 b/src/parameterizations/vertical/MOM_diabatic_driver.F90
@@ -378,6 +378,8 @@ subroutine diabatic(u, v, h, tv, Hml, fluxes, visc, ADp, CDp, dt, Time_end, G, G
   h_neglect = GV%H_subroundoff ; h_neglect2 = h_neglect*h_neglect
   Kd_heat(:,:,:) = 0.0 ; Kd_salt(:,:,:) = 0.0
 
+  ! visc%Kv_slow must be set to zero
+  visc%Kv_slow(:,:,:) = 0.0
 
   if (nz == 1) return
   showCallTree = callTree_showQuery()