add check that module variables are allocated before deallocating in …

…astronomy_end
NOAA-GFDL · Jan 2, 2025 · a88f16a · a88f16a
1 parent 9256dfd
commit a88f16a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/astronomy/astronomy.F90 b/astronomy/astronomy.F90
@@ -768,7 +768,7 @@ subroutine astronomy_end
     !----------------------------------------------------------------------
     !>    deallocate module variables.
     !----------------------------------------------------------------------
-    deallocate (orb_angle)
+    if (allocated(orb_angle)) deallocate (orb_angle)
     if (allocated(cosz_ann) ) then
         deallocate (cosz_ann)
         deallocate (fracday_ann)