Deallocate all allocated arrays (#538)

NOAA-EMC · Aug 4, 2022 · 4983789 · 4983789
1 parent 8ed92cb
commit 4983789
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)