Fix combo of constant and lat dependent background diffusivity.

Add constant background viscosity KD to latitudinal dependent formulations, if any. Closes NCAR#238
dcherian · Mar 22, 2023 · 06d950c · 06d950c
1 parent 72e5535
commit 06d950c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/parameterizations/vertical/MOM_set_diffusivity.F90 b/src/parameterizations/vertical/MOM_set_diffusivity.F90
@@ -538,7 +538,7 @@ subroutine set_diffusivity(u, v, h, u_h, v_h, tv, fluxes, optics, visc, dt, Kd_i
 
     ! Copy the 2-d slices into the 3-d array that is exported.
     do K=1,nz+1 ; do i=is,ie
-      Kd_int(i,j,K) = Kd_int_2d(i,K)
+      Kd_int(i,j,K) = Kd_int(i,j,K) + Kd_int_2d(i,K)
     enddo ; enddo
 
     if (CS%limit_dissipation) then