From b5f355c1d62e36dcbe8dd20e94cc4c5453c70a41 Mon Sep 17 00:00:00 2001 From: Rolf Reichle <54944691+gmao-rreichle@users.noreply.github.com> Date: Thu, 23 May 2024 17:19:21 -0400 Subject: [PATCH] allocate ens avg of fractional area variables to support HISTORY output of ASNOW alone (GEOS_EnsGridComp.F90) --- GEOSens_GridComp/GEOS_EnsGridComp.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/GEOSens_GridComp/GEOS_EnsGridComp.F90 b/GEOSens_GridComp/GEOS_EnsGridComp.F90 index 40f8170..4d7b388 100644 --- 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)