Skip to content

Commit

Permalink
corrected LONG_NAME for absorbed and emitted longwave flux in Landice…
Browse files Browse the repository at this point in the history 
…, Saltwater, Openwater, SimpleSeaice and CICE4ColumnPhys GridComps
  • Loading branch information
@zhaobin74
zhaobin74 committed Jun 6, 2023
1 parent 894ce66 commit 38257b1
Show file tree
Hide file tree
Showing 5 changed files with 17 additions and 17 deletions.
8 changes: 4 additions & 4 deletions ...p/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSlandice_GridComp/GEOS_LandIceGridComp.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -788,7 +788,7 @@ subroutine SetServices ( GC, RC )
VERIFY_(STATUS)

call MAPL_AddExportSpec(GC, &
LONG_NAME = 'surface_outgoing_longwave_flux',&
LONG_NAME = 'surface_emitted_longwave_flux',&
UNITS = 'W m-2' ,&
SHORT_NAME = 'HLWUP' ,&
DIMS = MAPL_DimsTileOnly ,&
Expand Down Expand Up @@ -1166,7 +1166,7 @@ subroutine SetServices ( GC, RC )

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'ALW', &
LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', &
LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', &
UNITS = 'W m-2', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
Expand All @@ -1175,7 +1175,7 @@ subroutine SetServices ( GC, RC )

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'BLW', &
LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', &
LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', &
UNITS = 'W m-2 K-1', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
Expand Down Expand Up @@ -1238,7 +1238,7 @@ subroutine SetServices ( GC, RC )

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'LWDNSRF', &
LONG_NAME = 'surface_downwelling_longwave_flux', &
LONG_NAME = 'surface_absorbed_longwave_flux', &
UNITS = 'W m-2', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
Expand Down
8 changes: 4 additions & 4 deletions ...ics_GridComp/GEOSsurface_GridComp/GEOSsaltwater_GridComp/GEOS_CICE4ColumnPhysGridComp.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -247,7 +247,7 @@ subroutine SetServices ( GC, RC )
_RC )

call MAPL_AddExportSpec(GC, &
LONG_NAME = 'surface_outgoing_longwave_flux',&
LONG_NAME = 'surface_emitted_longwave_flux',&
UNITS = 'W m-2' ,&
SHORT_NAME = 'HLWUP' ,&
DIMS = MAPL_DimsTileOnly ,&
Expand Down Expand Up @@ -735,23 +735,23 @@ subroutine SetServices ( GC, RC )

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'ALW', &
LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', &
LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', &
UNITS = 'W m-2', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
_RC )

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'BLW', &
LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', &
LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', &
UNITS = 'W m-2 K-1', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
_RC )

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'LWDNSRF', &
LONG_NAME = 'surface_downwelling_longwave_flux', &
LONG_NAME = 'surface_absorbed_longwave_flux', &
UNITS = 'W m-2', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
Expand Down
8 changes: 4 additions & 4 deletions ...OSphysics_GridComp/GEOSsurface_GridComp/GEOSsaltwater_GridComp/GEOS_OpenWaterGridComp.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -259,7 +259,7 @@ subroutine SetServices ( GC, RC )
_RC )

call MAPL_AddExportSpec(GC, &
LONG_NAME = 'surface_outgoing_longwave_flux',&
LONG_NAME = 'surface_emitted_longwave_flux',&
UNITS = 'W m-2' ,&
SHORT_NAME = 'HLWUP' ,&
DIMS = MAPL_DimsTileOnly ,&
Expand Down Expand Up @@ -942,23 +942,23 @@ subroutine SetServices ( GC, RC )

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'ALW', &
LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', &
LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', &
UNITS = 'W m-2', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
_RC)

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'BLW', &
LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', &
LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', &
UNITS = 'W m-2 K-1', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
_RC)

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'LWDNSRF', &
LONG_NAME = 'surface_downwelling_longwave_flux', &
LONG_NAME = 'surface_absorbed_longwave_flux', &
UNITS = 'W m-2', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
Expand Down
2 changes: 1 addition & 1 deletion ...OSphysics_GridComp/GEOSsurface_GridComp/GEOSsaltwater_GridComp/GEOS_SaltWaterGridComp.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -218,7 +218,7 @@ subroutine SetServices ( GC, RC )
_RC )

call MAPL_AddExportSpec(GC, &
LONG_NAME = 'surface_outgoing_longwave_flux',&
LONG_NAME = 'surface_emitted_longwave_flux',&
UNITS = 'W m-2' ,&
SHORT_NAME = 'HLWUP' ,&
DIMS = MAPL_DimsTileOnly ,&
Expand Down
8 changes: 4 additions & 4 deletions ...hysics_GridComp/GEOSsurface_GridComp/GEOSsaltwater_GridComp/GEOS_SimpleSeaiceGridComp.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -202,7 +202,7 @@ subroutine SetServices ( GC, RC )

call MAPL_AddExportSpec(GC, &
SHORT_NAME = 'HLWUP' ,&
LONG_NAME = 'surface_outgoing_longwave_flux',&
LONG_NAME = 'surface_emitted_longwave_flux',&
UNITS = 'W m-2' ,&
DIMS = MAPL_DimsTileOnly ,&
VLOCATION = MAPL_VLocationNone ,&
Expand Down Expand Up @@ -699,23 +699,23 @@ subroutine SetServices ( GC, RC )

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'ALW', &
LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', &
LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', &
UNITS = 'W m-2', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
_RC)

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'BLW', &
LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', &
LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', &
UNITS = 'W m-2 K-1', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
_RC)

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'LWDNSRF', &
LONG_NAME = 'surface_downwelling_longwave_flux', &
LONG_NAME = 'surface_absorbed_longwave_flux', &
UNITS = 'W m-2', &
DIMS = MAPL_DimsTileOnly, &
VLOCATION = MAPL_VLocationNone, &
Expand Down

0 comments on commit 38257b1

Please sign in to comment.