From 32acc6508c64d8df6555c2a3e438f9d9a0b880d3 Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Fri, 13 Oct 2023 13:16:04 -0700 Subject: [PATCH] rename fates set_flag --- src/utils/clmfates_interfaceMod.F90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90 index 61e52a29c0..778dbbdc35 100644 --- a/src/utils/clmfates_interfaceMod.F90 +++ b/src/utils/clmfates_interfaceMod.F90 @@ -2662,21 +2662,22 @@ subroutine WrapSeedGlobal(this,is_restart_flag) integer :: ier ! error code integer :: g ! gridcell index - logical :: set_flag ! local logical variable to pass to IsItDispersalTime + logical :: set_restart_flag ! local logical variable to pass to IsItDispersalTime + ! if optional is_restart_flag is true type (neighbor_type), pointer :: neighbor ! If WrapSeedGlobal is being called at the end a fates restart call, ! pass .false. to the set_dispersed_flag to avoid updating the ! global dispersal date - set_flag = .true. + set_restart_flag = .true. if (present(is_restart_flag)) then - if (is_restart_flag) set_flag = .false. + if (is_restart_flag) set_restart_flag = .false. end if call t_startf('fates-seed-mpi_reduce') - if (IsItDispersalTime(setdispersedflag=set_flag)) then + if (IsItDispersalTime(setdispersedflag=set_restart_flag)) then ! Re-initialize incoming seed buffer for this time step this%fates_seed%incoming_global(:,:) = 0._r8