Added a call in the interface that updates some fates internal data s…

…tructures following restart
HPSCTerrSys · Oct 26, 2018 · 14649aa · 14649aa
1 parent 8602da3
commit 14649aa
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90
@@ -1138,12 +1138,23 @@ subroutine restart( this, bounds_proc, ncid, flag, waterstate_inst, &
                         this%fates(nc)%bc_in(s) )
                end do
 
+
                ! ------------------------------------------------------------------------
                ! Update diagnostics of FATES ecosystem structure used in HLM.
                ! ------------------------------------------------------------------------
                call this%wrap_update_hlmfates_dyn(nc,bounds_clump, &
                      waterstate_inst,canopystate_inst,frictionvel_inst)
+
+               ! ------------------------------------------------------------------------
+               ! Update the 3D patch level radiation absorption fractions
+               ! ------------------------------------------------------------------------
+               call this%fates_restart%update_3dpatch_radiation(nc, &
+                                                                this%fates(nc)%nsites, &
+                                                                this%fates(nc)%sites, &
+                                                                this%fates(nc)%bc_out)
+
 
+
                ! ------------------------------------------------------------------------
                ! Update history IO fields that depend on ecosystem dynamics
                ! ------------------------------------------------------------------------