From b2117d175406450cc841cea94d100fb3f23a5d59 Mon Sep 17 00:00:00 2001 From: John Alex Date: Wed, 30 Sep 2026 05:32:30 -0400 Subject: [PATCH] fix(biogeophys): Remove leftover gccanopy remnants in CanopyStateType.F90 This variable was removed from the struct over a decade ago during the clm4_5_12_r192 NGEE-T ED refactoring (see massive snapshot commit 85b9d5b83). This commit removes the leftover allocation and history field comments. --- src/biogeophys/CanopyStateType.F90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/biogeophys/CanopyStateType.F90 b/src/biogeophys/CanopyStateType.F90 index 66804e1549..933a80cebb 100644 --- a/src/biogeophys/CanopyStateType.F90 +++ b/src/biogeophys/CanopyStateType.F90 @@ -147,7 +147,6 @@ subroutine InitAllocate(this, bounds) allocate(this%dleaf_patch (begp:endp)) ; this%dleaf_patch (:) = nan allocate(this%rscanopy_patch (begp:endp)) ; this%rscanopy_patch (:) = nan -! allocate(this%gccanopy_patch (begp:endp)) ; this%gccanopy_patch (:) = 0.0_r8 allocate(this%vegwp_patch (begp:endp,1:nvegwcs)) ; this%vegwp_patch (:,:) = nan allocate(this%vegwp_ln_patch (begp:endp,1:nvegwcs)) ; this%vegwp_ln_patch (:,:) = nan allocate(this%vegwp_pd_patch (begp:endp,1:nvegwcs)) ; this%vegwp_pd_patch (:,:) = nan @@ -284,10 +283,6 @@ subroutine InitHistory(this, bounds) ptr_patch=this%rscanopy_patch, set_lake=0._r8, set_urb=0._r8) end if -! call hist_addfld1d (fname='GCCANOPY', units='none', & -! avgflag='A', long_name='Canopy Conductance: mmol m-2 s-1', & -! ptr_patch=this%GCcanopy_patch, set_lake=0._r8, set_urb=0._r8) - if ( use_hydrstress ) then this%vegwp_patch(begp:endp,:) = spval call hist_addfld2d (fname='VEGWP', units='mm', type2d='nvegwcs', &