From e0b59fcc5ed7de15b85c244576fe2175cfe0d6ba Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Thu, 24 Oct 2024 10:17:55 -0600 Subject: [PATCH] the pointer_file name is set in namelist, no need to modify here --- .../infrastructure/io/io_pio2/ice_restart.F90 | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90 b/cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90 index 40c0ae010..f6735855b 100644 --- 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