diff --git a/main/FatesHistoryInterfaceMod.F90 b/main/FatesHistoryInterfaceMod.F90 index cf46ac8130..156da135c2 100644 --- a/main/FatesHistoryInterfaceMod.F90 +++ b/main/FatesHistoryInterfaceMod.F90 @@ -4937,7 +4937,8 @@ subroutine update_history_hifrq1(this,nc,nsites,sites,bc_in,bc_out,dt_tstep) hio_tveg => this%hvars(ih_tveg_si)%r81d) - ! Move this to the interface for consistency (rgk 0524) + ! THIS CAN BE REMOVED WHEN BOTH CTSM AND E3SM CALL FLUSH_ALL_HVARS + ! THIS IS NOT A LIABILITY, IT IS JUST REDUNDANT call this%flush_hvars(nc,upfreq_in=group_hifr_simple) dt_tstep_inv = 1.0_r8/dt_tstep @@ -5223,7 +5224,8 @@ subroutine update_history_hifrq2(this,nc,nsites,sites,bc_in,bc_out,dt_tstep) hio_laisha_si_can => this%hvars(ih_laisha_si_can)%r82d ) - ! Move this to the interface for consistency (rgk 0524) + ! THIS CAN BE REMOVED WHEN BOTH CTSM AND E3SM CALL FLUSH_ALL_HVARS + ! THIS IS NOT A LIABILITY, IT IS JUST REDUNDANT call this%flush_hvars(nc,upfreq_in=group_hifr_complx) dt_tstep_inv = 1.0_r8/dt_tstep @@ -5655,7 +5657,8 @@ subroutine update_history_hydraulics(this,nc,nsites,sites,bc_in,dt_tstep) if_hifrq0: if(hlm_hist_level_hifrq>0) then - ! Move this to the interface for consistency (rgk 0524) + ! THIS CAN BE REMOVED WHEN BOTH CTSM AND E3SM CALL FLUSH_ALL_HVARS + ! THIS IS NOT A LIABILITY, IT IS JUST REDUNDANT call this%flush_hvars(nc,upfreq_in=group_hydr_simple) associate( hio_h2oveg_hydro_err_si => this%hvars(ih_h2oveg_hydro_err_si)%r81d, & @@ -5762,7 +5765,8 @@ subroutine update_history_hydraulics(this,nc,nsites,sites,bc_in,dt_tstep) hio_rootuptake50_scpf => this%hvars(ih_rootuptake50_scpf)%r82d, & hio_rootuptake100_scpf => this%hvars(ih_rootuptake100_scpf)%r82d ) - ! Move this to the interface for consistency (rgk 0524) + ! THIS CAN BE REMOVED WHEN BOTH CTSM AND E3SM CALL FLUSH_ALL_HVARS + ! THIS IS NOT A LIABILITY, IT IS JUST REDUNDANT call this%flush_hvars(nc,upfreq_in=group_hydr_complx) do s = 1,nsites