From 6f56167cd833076817c2b41f96db52d05d1d081f Mon Sep 17 00:00:00 2001 From: Johannes Keller Date: Fri, 28 Nov 2025 14:06:47 +0100 Subject: [PATCH] Set cpl_inst_tag from pdaf_id for eCLM-PDAF eCLM-PDAF simulations experience errors, when multiple processes try to write the same couple restart file (#88). A `cpl_inst_tag` for each process should resolve this, as `cpl_inst_tag` is passed to `seq_rest_write` as `tag` and thereby enters the couple restart file name. --- src/eclm/cime_comp_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/eclm/cime_comp_mod.F90 b/src/eclm/cime_comp_mod.F90 index ada3780b31..4324f4b9d7 100644 --- a/src/eclm/cime_comp_mod.F90 +++ b/src/eclm/cime_comp_mod.F90 @@ -669,7 +669,7 @@ subroutine cime_pre_init1(esmf_log_option) #ifdef USE_PDAF if (present(pdaf_id) .and. present(pdaf_max)) then call seq_comm_init(global_comm, driver_comm, NLFileName, pdaf_id=pdaf_id, pdaf_max=pdaf_max) - cpl_inst_tag = '' + write(cpl_inst_tag,'("_",i4.4)') pdaf_id else call shr_sys_abort( subname//':: pdaf_id and pdaf_max'// & ' have to be present for PDAF' )