From 85f72cc1c59359ee1e7a907cd1ca9879acb54716 Mon Sep 17 00:00:00 2001 From: kaveh Date: Fri, 15 Jul 2022 05:17:10 -0600 Subject: [PATCH] Fix albgrd_col value in SurfaceAlbedoType --- src/biogeophys/SurfaceAlbedoType.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/biogeophys/SurfaceAlbedoType.F90 b/src/biogeophys/SurfaceAlbedoType.F90 index cf6b0a518a..dba2938d98 100644 --- a/src/biogeophys/SurfaceAlbedoType.F90 +++ b/src/biogeophys/SurfaceAlbedoType.F90 @@ -188,7 +188,7 @@ subroutine InitHistory(this, bounds) avgflag='A', long_name='cosine of solar zenith angle', & ptr_col=this%coszen_col, default='inactive') - this%albgri_col(begc:endc,:) = spval + this%albgrd_col(begc:endc,:) = spval call hist_addfld2d (fname='ALBGRD', units='proportion', type2d='numrad', & avgflag='A', long_name='ground albedo (direct)', & ptr_col=this%albgrd_col, default='inactive')