From 46895e99761782f223e1c67ad22633a0e043cdb6 Mon Sep 17 00:00:00 2001 From: Ryan Knox Date: Tue, 16 Oct 2018 17:28:44 -0700 Subject: [PATCH] Added a call in the interface that updates some fates internal data structures following restart --- src/utils/clmfates_interfaceMod.F90 | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90 index a8fa67f48e..61e9e7d3d1 100644 --- 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 ! ------------------------------------------------------------------------