Deallocating fields used by get_box at the end of compute_gwd_fields

MPAS-Dev · Jan 10, 2025 · d1fabde · d1fabde
1 parent 6784e82
commit d1fabde
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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)