more CESMCOUPLED ifdefs

ACCESS-NRI · Dec 16, 2024 · 65cca6d · 65cca6d
1 parent 4181d46
commit 65cca6d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90 b/cicecore/cicedyn/infrastructure/io/io_pio2/ice_restart.F90
@@ -225,14 +225,14 @@ subroutine init_restart_write(filename_spec)
       if (my_task == master_task) then
 #ifdef CESMCOUPLED 
             lpointer_file = 'rpointer.ice'//trim(inst_suffix)
+            if (pointer_date) then
+               ! append date to pointer filename
+               write(lpointer_file,'(a,i4.4,a,i2.2,a,i2.2,a,i5.5)') &
+                  trim(lpointer_file)//'.',myear,'-',mmonth,'-',mday,'-',msec
+            end if
 #else
             lpointer_file = pointer_file
 #endif
-         if (pointer_date) then
-            ! append date to pointer filename
-            write(lpointer_file,'(a,i4.4,a,i2.2,a,i2.2,a,i5.5)') &
-               trim(lpointer_file)//'.',myear,'-',mmonth,'-',mday,'-',msec
-         end if
          open(nu_rst_pointer,file=lpointer_file)
          write(nu_rst_pointer,'(a)') filename
          close(nu_rst_pointer)

diff --git a/cicecore/shared/ice_restart_shared.F90 b/cicecore/shared/ice_restart_shared.F90
@@ -24,10 +24,10 @@ module ice_restart_shared
 
       character (len=char_len_long), public :: &
          pointer_file      ! input pointer file for restarts
-
+#ifdef CESMCOUPLED
       logical (kind=log_kind), public :: &
          pointer_date =  .false.   ! if true, append datestamp to pointer file
-
+#endif
       character (len=char_len), public :: &
          restart_format      , & ! format of restart files 'nc'
          restart_rearranger      ! restart file rearranger, box or subset for pio