Return call if CS is not allocated

NOAA-GFDL · Apr 18, 2018 · dc82c48 · dc82c48
1 parent dabe31b
commit dc82c48
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/parameterizations/vertical/MOM_KPP.F90 b/src/parameterizations/vertical/MOM_KPP.F90
@@ -1073,7 +1073,10 @@ end subroutine KPP_NonLocalTransport_saln
 subroutine KPP_end(CS)
   type(KPP_CS), pointer :: CS !< Control structure
 
+  if (.not.associated(CS)) return
+
   deallocate(CS)
+
 end subroutine KPP_end
 
 !> \namespace mom_kpp