update exports to match M21C filespecs [stray LONG_NAME occurrences o…

…f _albedo -> _reflectivity] (GEOS_CatchGridComp.F90, GEOS_CatchCNCLM40GridComp.F90, GEOS_LandIceGridComp.F90, CatchmentRst.F90)
GEOS-ESM · Nov 7, 2024 · 3790723 · 3790723
1 parent e31cda3
commit 3790723
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/...and_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM40_GridComp/GEOS_CatchCNCLM40GridComp.F90 b/...and_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM40_GridComp/GEOS_CatchCNCLM40GridComp.F90
@@ -1381,7 +1381,7 @@ subroutine SetServices ( GC, RC )
 
   if (SNOW_ALBEDO_INFO == 1) then
     call MAPL_AddInternalSpec(GC                  ,&
-       LONG_NAME          = 'effective_snow_albedo'               ,&
+       LONG_NAME          = 'effective_snow_reflectivity',&
        UNITS              = '1'                         ,&
        SHORT_NAME         = 'SNOWALB'                   ,&
        FRIENDLYTO         = trim(COMP_NAME)             ,&

diff --git a/...GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/GEOS_CatchGridComp.F90 b/...GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/GEOS_CatchGridComp.F90
@@ -1332,7 +1332,7 @@ subroutine SetServices ( GC, RC )
 
   if (CATCH_INTERNAL_STATE%SNOW_ALBEDO_INFO == 1) then
     call MAPL_AddInternalSpec(GC                        ,&
-       LONG_NAME          = 'effective_snow_albedo'     ,&
+       LONG_NAME          = 'effective_snow_reflectivity'     ,&
        UNITS              = '1'                         ,&
        SHORT_NAME         = 'SNOWALB'                   ,&
        FRIENDLYTO         = trim(COMP_NAME)             ,&

diff --git a/...p/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSlandice_GridComp/GEOS_LandIceGridComp.F90 b/...p/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSlandice_GridComp/GEOS_LandIceGridComp.F90
@@ -596,7 +596,7 @@ subroutine SetServices ( GC, RC )
   VERIFY_(STATUS)
 
   call MAPL_AddExportSpec(GC,                    &
-    LONG_NAME          = 'snow_broadband_albedo',   &
+    LONG_NAME          = 'snow_broadband_reflectivity',   &
     UNITS              = '1'                ,&
     SHORT_NAME         = 'SNOWALB'                   ,&
     DIMS               = MAPL_DimsTileOnly           ,&
@@ -605,7 +605,7 @@ subroutine SetServices ( GC, RC )
   VERIFY_(STATUS)
 
   call MAPL_AddExportSpec(GC,                    &
-    LONG_NAME          = 'aggregated_snow_ice_broadband_albedo',   &
+    LONG_NAME          = 'aggregated_snow_ice_broadband_reflectivity',   &
     UNITS              = '1'                ,&
     SHORT_NAME         = 'SNICEALB'                   ,&
     DIMS               = MAPL_DimsTileOnly           ,&

diff --git a/...gcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/mk_restarts/CatchmentRst.F90 b/...gcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/mk_restarts/CatchmentRst.F90
@@ -577,7 +577,7 @@ subroutine add_bcs_to_rst(this, surflay, DataDir, rc)
            call MAPL_VarRead ( CatchFmt ,'SNOWALB', this%snowalb, __RC__)
            if ( .not. this%meta%has_variable('SNOWALB')) then
               var = Variable(type=pFIO_REAL32, dimensions='tile')
-              call var%add_attribute('long_name', 'snow_albedo')
+              call var%add_attribute('long_name', 'snow_reflectivity')
               call var%add_attribute('units', '1')
               call this%meta%add_variable('SNOWALB', var)
            endif