Return if CS is not associated

NOAA-GFDL · Apr 19, 2018 · e90fbe9 · e90fbe9
1 parent 65527d6
commit e90fbe9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/parameterizations/vertical/MOM_tidal_mixing.F90 b/src/parameterizations/vertical/MOM_tidal_mixing.F90
@@ -1317,6 +1317,8 @@ end subroutine read_tidal_energy
 subroutine tidal_mixing_end(CS)
   type(tidal_mixing_cs), pointer :: CS ! This module's control structure
 
+  if (.not.associated(CS)) return
+
   !TODO deallocate all the dynamically allocated members here ...
   if (allocated(CS%tidal_qe_2d)) deallocate(CS%tidal_qe_2d)
   deallocate(CS%dd)