Minor cleanup to ./chgres_cube.fd/model_grid.F90

Fixes ufs-community#123.
GeorgeGayno-NOAA · Jan 4, 2024 · cbcf611 · cbcf611
1 parent 6db6128
commit cbcf611
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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