Fix memory leak in filter_topo.F90 that was found by

running the GNU debug option. Fixes ufs-community#105
GeorgeGayno-NOAA · Aug 4, 2021 · acba0fb · acba0fb
1 parent 0f5f3cb
commit acba0fb
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/sorc/grid_tools.fd/filter_topo.fd/filter_topo.F90 b/sorc/grid_tools.fd/filter_topo.fd/filter_topo.F90
@@ -81,9 +81,13 @@ program filter_topo
   call FV3_zs_filter(is,ie,js,je,isd,ied,jsd,jed,npx,npy,npx,ntiles,grid_type, &
                      stretch_fac, nested, area, dxa, dya, dx, dy, dxc, dyc, sin_sg, oro, regional )
 
+  deallocate(sin_sg, dx, dy, mask, dxc, dyc, area, dxa, dya)
+
   !--- write out the data
   call write_topo_file(is,ie,js,je,ntiles,oro(is:ie,js:je,:),regional )
 
+  deallocate (oro)
+
 contains
 
   !> ???