Merge pull request mom-ocean#188 from gustavo-marques/fix_mem_leak_bkgnd

De-allocate Kd_bkgnd and Kv_bkgnd
gustavo-marques · May 23, 2021 · d1de7c8 · d1de7c8
2 parents 3812cf6 + 14e2334
commit d1de7c8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/parameterizations/vertical/MOM_set_diffusivity.F90 b/src/parameterizations/vertical/MOM_set_diffusivity.F90
@@ -694,6 +694,8 @@ subroutine set_diffusivity(u, v, h, u_h, v_h, tv, fluxes, optics, visc, dt, &
   if (associated(dd%KS_extra)) deallocate(dd%KS_extra)
   if (associated(dd%drho_rat)) deallocate(dd%drho_rat)
   if (associated(dd%Kd_BBL)) deallocate(dd%Kd_BBL)
+  if (associated(dd%Kd_bkgnd)) deallocate(dd%Kd_bkgnd)
+  if (associated(dd%Kv_bkgnd)) deallocate(dd%Kv_bkgnd)
 
   if (showCallTree) call callTree_leave("set_diffusivity()")