diff --git a/src/clm5/cpl/lnd_comp_mct.F90 b/src/clm5/cpl/lnd_comp_mct.F90 index 56179be..5bf3d76 100644 --- a/src/clm5/cpl/lnd_comp_mct.F90 +++ b/src/clm5/cpl/lnd_comp_mct.F90 @@ -710,6 +710,7 @@ subroutine lnd_handle_resume( infodata ) use seq_comm_mct , only : num_inst_lnd use clm_varctl , only : iulog use clm_varctl , only : inst_index + use spmdMod , only: iam implicit none ! !ARGUMENTS: type(seq_infodata_type), intent(IN) :: infodata ! CESM driver level info data @@ -720,6 +721,9 @@ subroutine lnd_handle_resume( infodata ) call seq_infodata_GetData(infodata, lnd_resume=lnd_resume ) ! If lnd_resume is blank, restart file wasn't modified + + write(iulog,"(a,i10,i10,i10)") 'eCLM(lnd_comp_mct): iam, inst_index, num_inst_lnd ', iam, inst_index, num_inst_lnd + if ( len_trim(lnd_resume(min(num_inst_lnd,inst_index))) == 0 )then resume_from_data_assim = .false. ! Otherwise restart was modified and we are resuming from data assimulation