Merge branch 'ctsm5.1.dev130.NYRS_CROP_ACTIVE' into refactor-crop-gdd…

…-runmeans
ESCOMP · Jul 14, 2023 · 509fbcc · 509fbcc
2 parents 574f3b2 + e866ddf
commit 509fbcc
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/biogeochem/CropType.F90 b/src/biogeochem/CropType.F90
@@ -282,6 +282,11 @@ subroutine InitHistory(this, bounds)
          avgflag='I', long_name='actual crop harvest dates; should only be output annually', &
          ptr_patch=this%hdates_thisyr, default='inactive')
 
+    this%nyrs_crop_active_patch(begp:endp,:) = spval
+    call hist_addfld1d (fname='NYRS_CROP_ACTIVE', units='year', &
+         avgflag='I', long_name='number of years crop active', &
+         ptr_patch=this%nyrs_crop_active_patch, default='inactive')
+
   end subroutine InitHistory
 
   subroutine InitCold(this, bounds)