Skip to content

Commit

Permalink
fixed LONG_NAME for longwave variables (#674)
Browse files Browse the repository at this point in the history
  • Loading branch information
@gmao-rreichle
gmao-rreichle committed Sep 26, 2023
2 parents e62bf97 + 1747641 commit c0349f0
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 7 deletions.
8 changes: 4 additions & 4 deletions src/Applications/LDAS_App/tile_bin2nc4.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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'
Expand Down Expand Up @@ -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'
Expand All @@ -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'
Expand Down
6 changes: 3 additions & 3 deletions src/Components/GEOSldas_GridComp/GEOSmetforce_GridComp/GEOS_MetforceGridComp.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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, &
Expand All @@ -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, &
Expand Down

0 comments on commit c0349f0

Please sign in to comment.