From 1747641ce9845d50e898c89c56288abf2c4b3670 Mon Sep 17 00:00:00 2001 From: Rolf Reichle Date: Tue, 19 Sep 2023 12:01:35 -0400 Subject: [PATCH] fixed LONG_NAME for longwave variables (GEOS_MetforceGridComp.F90, tile_bin2nc4.F90) --- src/Applications/LDAS_App/tile_bin2nc4.F90 | 8 ++++---- .../GEOSmetforce_GridComp/GEOS_MetforceGridComp.F90 | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/Applications/LDAS_App/tile_bin2nc4.F90 b/src/Applications/LDAS_App/tile_bin2nc4.F90 index e50a9eb5..3f2aef3b 100644 --- a/src/Applications/LDAS_App/tile_bin2nc4.F90 +++ b/src/Applications/LDAS_App/tile_bin2nc4.F90 @@ -227,7 +227,7 @@ FUNCTION getAttribute (SHORT_NAME, LNAME, UNT) result (str_atr) case ('net_downward_shortwave_flux'); LONG_NAME = 'Net_shortwave_land'; UNITS = 'W m-2' case ('net_downward_longwave_flux'); LONG_NAME = 'Net_longwave_land'; UNITS = 'W m-2' case ('radiation_shortwave_downward_flux');LONG_NAME = 'Incident_shortwave_land'; UNITS = 'W m-2' - case ('radiation_longwave_absorbed_flux'); LONG_NAME = 'perturbed_surface_downwelling_longwave_flux'; UNITS = 'W m-2' + case ('radiation_longwave_absorbed_flux'); LONG_NAME = 'surface_absorbed_longwave_flux'; UNITS = 'W m-2' case ('precipitation_total_surface_flux'); LONG_NAME = 'RainfSnowf'; UNITS = 'kg m-2 s-1' case ('snowfall_surface_flux'); LONG_NAME = 'snowfall'; UNITS = 'kg m-2 s-1' case ('surface_pressure'); LONG_NAME = 'surface_pressure'; UNITS = 'Pa' @@ -255,8 +255,8 @@ FUNCTION getAttribute (SHORT_NAME, LNAME, UNT) result (str_atr) case ('TA'); LONG_NAME = 'air_temperature_at_RefH'; UNITS = 'K' case ('Qair'); LONG_NAME = 'specific_humidity_at_RefH'; UNITS = 'kg kg-1' case ('QA'); LONG_NAME = 'specific_humidity_at_RefH'; UNITS = 'kg kg-1' - case ('LWdown'); LONG_NAME = 'downward_longwave_radiation"'; UNITS = 'W m-2' - case ('LWDNSRF'); LONG_NAME = 'perturbed_surface_downwelling_longwave_flux'; UNITS = 'W m-2' + case ('LWdown'); LONG_NAME = 'surface_absorbed_longwave_flux'; UNITS = 'W m-2' + case ('LWDNSRF'); LONG_NAME = 'surface_absorbed_longwave_flux'; UNITS = 'W m-2' case ('SWdown'); LONG_NAME = 'downward_shortwave_radiation'; UNITS = 'W m-2' case ('Wind'); LONG_NAME = 'wind_speed_at_RefH'; UNITS = 'm s-1' case ('UU'); LONG_NAME = 'wind_speed_at_RefH'; UNITS = 'm s-1' @@ -275,7 +275,7 @@ FUNCTION getAttribute (SHORT_NAME, LNAME, UNT) result (str_atr) case ('WESNN1'); LONG_NAME = 'snow_mass_layer_1'; UNITS = 'kg m-2' case ('WESNN2'); LONG_NAME = 'snow_mass_layer_2'; UNITS = 'kg m-2' case ('WESNN3'); LONG_NAME = 'snow_mass_layer_3'; UNITS = 'kg m-2' - case ('HLWUP'); LONG_NAME = 'surface_outgoing_longwave_flux'; UNITS = 'W m-2' + case ('HLWUP'); LONG_NAME = 'surface_emitted_longwave_flux'; UNITS = 'W m-2' case ('GWETPROF'); LONG_NAME = 'ave_prof_soil_wetness'; UNITS = '1' case ('GWETROOT'); LONG_NAME = 'root_zone_soil_wetness'; UNITS = '1' case ('GWETTOP'); LONG_NAME = 'surface_soil_wetness'; UNITS = '1' diff --git a/src/Components/GEOSldas_GridComp/GEOSmetforce_GridComp/GEOS_MetforceGridComp.F90 b/src/Components/GEOSldas_GridComp/GEOSmetforce_GridComp/GEOS_MetforceGridComp.F90 index 78d3cf81..b306e9fd 100644 --- a/src/Components/GEOSldas_GridComp/GEOSmetforce_GridComp/GEOS_MetforceGridComp.F90 +++ b/src/Components/GEOSldas_GridComp/GEOSmetforce_GridComp/GEOS_MetforceGridComp.F90 @@ -215,8 +215,8 @@ subroutine SetServices(gc, rc) call MAPL_AddExportSpec( & gc, & - SHORT_NAME = "RainfSnowf", & - LONG_NAME = "rainf+snowf", & + SHORT_NAME = "RainfSnowf", & + LONG_NAME = "rainf+snowf", & UNITS = "kg m-2 s-1", & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VlocationNone, & @@ -227,7 +227,7 @@ subroutine SetServices(gc, rc) call MAPL_AddExportSpec( & gc, & SHORT_NAME = "LWdown", & - LONG_NAME = "downward_longwave_radiation", & + LONG_NAME = "surface_absorbed_longwave_flux", & UNITS = "W m-2", & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VlocationNone, &