the pointer_file name is set in namelist, no need to modify here

ESCOMP · Oct 24, 2024 · e0b59fc · e0b59fc
1 parent 1cf1268
commit e0b59fc
Showing 1 changed file with 3 additions and 11 deletions.
diff --git a/cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90 b/cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90
@@ -54,7 +54,7 @@ subroutine init_restart_read(ice_ic)
       ! local variables
 
       character(len=char_len_long) :: &
-         filename, filename0, lpointer_file
+         filename, filename0
 
       integer (kind=int_kind) :: status
 
@@ -68,19 +68,11 @@ subroutine init_restart_read(ice_ic)
          filename = trim(ice_ic)
       else
          if (my_task == master_task) then
-#ifdef CESMCOUPLED
-            write(lpointer_file,'(a,i4.4,a,i2.2,a,i2.2,a,i5.5)') &
-                 trim(pointer_file)//trim(inst_suffix)//'.',myear,'-',mmonth,'-',mday,'-',msec
-            inquire(file=lpointer_file, exist=file_exist)
-            if (.not. file_exist) lpointer_file = trim(pointer_file)//trim(inst_suffix)
-#else
-            lpointer_file = pointer_file
-#endif
-            open(nu_rst_pointer,file=lpointer_file)
+            open(nu_rst_pointer,file=pointer_file)
             read(nu_rst_pointer,'(a)') filename0
             filename = trim(filename0)
             close(nu_rst_pointer)
-            write(nu_diag,*) 'Read ',lpointer_file(1:lenstr(pointer_file))
+            write(nu_diag,*) 'Read ',pointer_file(1:lenstr(pointer_file))
          endif
          call broadcast_scalar(filename, master_task)
       endif