diff --git a/sorc/chgres_cube.fd/model_grid.F90 b/sorc/chgres_cube.fd/model_grid.F90 index d18529316..44431f59c 100644 --- a/sorc/chgres_cube.fd/model_grid.F90 +++ b/sorc/chgres_cube.fd/model_grid.F90 @@ -1406,7 +1406,6 @@ subroutine get_model_mask_terrain(orog_file, idim, jdim, mask, terrain, land_fra call netcdf_err(error, 'reading orog_raw') land_frac = dummy -!print*,'land frac ',dummy(idim/2,:) error = nf90_close(ncid) deallocate (dummy) @@ -1438,6 +1437,7 @@ subroutine cleanup_input_target_grid_data if (ESMF_FieldIsCreated(longitude_w_input_grid)) then call ESMF_FieldDestroy(longitude_w_input_grid, rc=rc) endif + call ESMF_FieldDestroy(land_frac_target_grid, rc=rc) call ESMF_FieldDestroy(landmask_target_grid, rc=rc) call ESMF_FieldDestroy(latitude_target_grid, rc=rc) if (ESMF_FieldIsCreated(latitude_s_target_grid)) then