fix: check that module variables are allocated before deallocating in…

… astronomy_end (#1629)
NOAA-GFDL · Jan 2, 2025 · 95c0233 · 95c0233
1 parent 137de82
commit 95c0233
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)