Merge pull request #8 from alperaltuntas/fix_multi_instance

fix multi-instance PR
OlgaSergienko · Sep 17, 2023 · 887b3f0 · 887b3f0
2 parents 12eae12 + de55fd6
commit 887b3f0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/config_src/drivers/nuopc_cap/mom_cap.F90 b/config_src/drivers/nuopc_cap/mom_cap.F90
@@ -493,8 +493,9 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
 
       if (cesm_coupled) then
         ! Multiinstance logfile name needs a correction
-        if(logfile(4:4) == '_') then
-          logfile = logfile(1:3)//trim(inst_suffix)//logfile(9:)
+        if(len_trim(inst_suffix) > 0) then
+          n = index(logfile, '.')
+          logfile = logfile(1:n-1)//trim(inst_suffix)//logfile(n:)
         endif
       endif
 

diff --git a/config_src/infra/FMS2/MOM_ensemble_manager_infra.F90 b/config_src/infra/FMS2/MOM_ensemble_manager_infra.F90
@@ -28,7 +28,6 @@ subroutine ensemble_manager_init(ensemble_suffix)
 
   if (present(ensemble_suffix)) then
     call fms2_io_set_filename_appendix(trim(ensemble_suffix))
-    call fms_io_set_filename_appendix(trim(ensemble_suffix))
   else
     call FMS_ensemble_manager_init()
   endif