From 49837896c925c422d0267b957b7a55e0e10801db Mon Sep 17 00:00:00 2001
From: Dusan Jovic <48258889+DusanJovic-NOAA@users.noreply.github.com>
Date: Wed, 3 Aug 2022 20:36:38 -0400
Subject: [PATCH] Deallocate all allocated arrays (#538)

---
 sorc/ncep_post.fd/DEALLOCATE.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sorc/ncep_post.fd/DEALLOCATE.f b/sorc/ncep_post.fd/DEALLOCATE.f
index ac9d5c648..ba5b57944 100644
--- a/sorc/ncep_post.fd/DEALLOCATE.f
+++ b/sorc/ncep_post.fd/DEALLOCATE.f
@@ -53,6 +53,7 @@ SUBROUTINE DE_ALLOCATE
 !      deallocate(rainw(im,jsta_2l:jend_2u,lm))
       deallocate(q2)
       deallocate(omga)
+      deallocate(dpres)
       deallocate(T_ADJ)
       deallocate(ttnd)
       deallocate(rswtt)
@@ -354,6 +355,7 @@ SUBROUTINE DE_ALLOCATE
       deallocate(avgetrans)
       deallocate(avgesnow)
       deallocate(avgpotevp)
+      deallocate(aod550)
       deallocate(ti)
       deallocate(du_aod550)
       deallocate(ss_aod550)
@@ -500,7 +502,6 @@ SUBROUTINE DE_ALLOCATE
         deallocate(ssdp)
         deallocate(sswt)
         deallocate(sssv)
-        deallocate(dpres)
         deallocate(rhomid)
 ! vrbls2d
         deallocate(dusmass)