diff --git a/src/core_init_atmosphere/mpas_init_atm_gwd.F b/src/core_init_atmosphere/mpas_init_atm_gwd.F
index 108005f2da..c020d461fb 100644
--- a/src/core_init_atmosphere/mpas_init_atm_gwd.F
+++ b/src/core_init_atmosphere/mpas_init_atm_gwd.F
@@ -322,6 +322,9 @@ function compute_gwd_fields(domain) result(iErr)
          end if
       end do
 
+      if (associated(box)) deallocate(box)
+      if (associated(box_landuse)) deallocate(box_landuse)
+      if (associated(dxm)) deallocate(dxm)
       deallocate(hlanduse)
 
       iErr = free_tile_list(tilesHead)