allocate ens avg of fractional area variables to support HISTORY outp…

…ut of ASNOW alone (GEOS_EnsGridComp.F90)
GEOS-ESM · May 23, 2024 · b5f355c · b5f355c
1 parent 9d6d699
commit b5f355c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/GEOSens_GridComp/GEOS_EnsGridComp.F90 b/GEOSens_GridComp/GEOS_EnsGridComp.F90
@@ -2924,11 +2924,11 @@ subroutine Collect_land_ens(gc, import, export, clock, rc)
     VERIFY_(status)
     call MAPL_GetPointer(export, AVETSNOW_enavg,  'AVETSNOW' ,rc=status)
     VERIFY_(status)
-    call MAPL_GetPointer(export, FRSAT_enavg,  'FRSAT' ,rc=status)
+    call MAPL_GetPointer(export, FRSAT_enavg,  'FRSAT' , alloc=.true., rc=status)   ! always allocate to support ASNOW_enavg calc below
     VERIFY_(status)
-    call MAPL_GetPointer(export, FRUST_enavg,  'FRUST' ,rc=status)
+    call MAPL_GetPointer(export, FRUST_enavg,  'FRUST' , alloc=.true., rc=status)   ! always allocate to support ASNOW_enavg calc below
     VERIFY_(status)
-    call MAPL_GetPointer(export, FRWLT_enavg,  'FRWLT' ,rc=status)
+    call MAPL_GetPointer(export, FRWLT_enavg,  'FRWLT' , alloc=.true., rc=status)   ! always allocate to support ASNOW_enavg calc below
     VERIFY_(status)
     call MAPL_GetPointer(export, SNOWMASS_enavg,  'SNOWMASS' ,rc=status)
     VERIFY_(status)