Merge remote-tracking branch 'ka7eh/fix-albgrd_col-value' into neon_u…

…pdates
ESCOMP · Nov 12, 2022 · b2d71ba · b2d71ba
2 parents 71e322f + 85f72cc
commit b2d71ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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')