Update error messaging in write_data.F90.

Fixes ufs-community#123.
GeorgeGayno-NOAA · Jan 4, 2024 · 870275f · 870275f
1 parent cbcf611
commit 870275f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/sorc/chgres_cube.fd/write_data.F90 b/sorc/chgres_cube.fd/write_data.F90
@@ -2099,9 +2099,9 @@ subroutine write_fv3_sfc_data_netcdf(localpet)
      error = nf90_put_att(ncid, id_sheleg_land, "units", "none")
      call netcdf_err(error, 'DEFINING WEASD/SHELEG AT LAND UNITS' )
      error = nf90_put_att(ncid, id_sheleg_land, "coordinates", "geolon geolat")
-     call netcdf_err(error, 'DEFINING SHELEG AT LAND COORD' )
+     call netcdf_err(error, 'DEFINING WEASD/SHELEG AT LAND COORD' )
      error = nf90_put_att(ncid, id_sheleg_land, "missing_value", missing)
-     call netcdf_err(error, 'DEFINING SHELEG AT LAND MISSING FLAG' )
+     call netcdf_err(error, 'DEFINING WEASD/SHELEG AT LAND MISSING FLAG' )
 
      error = nf90_def_var(ncid, 'tg3', NF90_DOUBLE, (/dim_x,dim_y,dim_time/), id_tg3)
      call netcdf_err(error, 'DEFINING TG3' )