mlcanopy: added in capac_SPA

rgknox · Feb 21, 2025 · 67e1a12 · 67e1a12
1 parent 28b433f
commit 67e1a12
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/main/pftconMod.F90 b/src/main/pftconMod.F90
@@ -1580,6 +1580,7 @@ subroutine InitRead(this)
           end do
           mlrad_params%xl(i)        = this%xl(i)
           mlrad_params%clump_fac(i) = this%clump_fac(i)
+
           mlphoto_params%c3psn(i)  =  int(this%c3psn(i))
           mlphoto_params%g0_BB(i)  =  this%g0_BB(i)
           mlphoto_params%g1_BB(i)  =  this%g1_BB(i)
@@ -1589,6 +1590,8 @@ subroutine InitRead(this)
           mlphoto_params%shape_gs(i)  = this%shape_gs(i)
           mlphoto_params%gsmin_SPA(i) = this%gsmin_SPA(i)
           mlphoto_params%ioto_SPA(i)  = this%ioto_SPA(i)
+
+          mlhydro_params%capac_SPA(i)  = this%capac_SPA(i)
           mlhydro_params%gplant_SPA(i)  = this%gplant_SPA(i)
           mlhydro_params%root_radius_SPA(i)  = this%root_radius_SPA(i)
           mlhydro_params%root_density_SPA(i)  = this%root_density_SPA(i)