add status feature to open existing file, remove no longer needed ces…

…m pointer_file modification
CICE-Consortium · Oct 30, 2024 · 7dd7f2b · 7dd7f2b
1 parent 7a4eb51
commit 7dd7f2b
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 5 deletions.
diff --git a/cicecore/cicedyn/general/ice_init.F90 b/cicecore/cicedyn/general/ice_init.F90
@@ -1198,10 +1198,6 @@ subroutine input_data
       call broadcast_scalar(sw_frac,              master_task)
       call broadcast_scalar(sw_dtemp,             master_task)
 
-#ifdef CESMCOUPLED
-      pointer_file = trim(pointer_file) // trim(inst_suffix)
-#endif
-
       !-----------------------------------------------------------------
       ! update defaults
       !-----------------------------------------------------------------

diff --git a/cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90 b/cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90
@@ -66,7 +66,7 @@ subroutine init_restart_read(ice_ic)
          filename = trim(ice_ic)
       else
          if (my_task == master_task) then
-            open(nu_rst_pointer,file=pointer_file)
+            open(nu_rst_pointer,file=pointer_file, status='old')
             read(nu_rst_pointer,'(a)') filename0
             filename = trim(filename0)
             close(nu_rst_pointer)