Avoided a possible seg. fault in set_diffusivity_end

NOAA-GFDL · Apr 4, 2018 · 4dde603 · 4dde603
1 parent 36f7a06
commit 4dde603
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
@@ -2957,6 +2957,8 @@ end subroutine set_diffusivity_init
 subroutine set_diffusivity_end(CS)
   type(set_diffusivity_CS), pointer :: CS !< Control structure for this module
 
+  if (.not.associated(CS)) return
+
   call bkgnd_mixing_end(CS%bkgnd_mixing_csp)
 
   if (CS%user_change_diff) &