From 1d9928256268f8493a2f2446d4610f1b2c39bb5b Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Mon, 9 Dec 2024 14:02:28 -0700 Subject: [PATCH] correct readd of rpointer timestamps --- dshr/dshr_mod.F90 | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/dshr/dshr_mod.F90 b/dshr/dshr_mod.F90 index 9acf60919..fb5010ace 100644 --- a/dshr/dshr_mod.F90 +++ b/dshr/dshr_mod.F90 @@ -1058,7 +1058,6 @@ subroutine dshr_restart_write(rpfile, case_name, model_name, inst_suffix, ymd, t type(io_desc_t) :: pio_iodesc integer :: oldmode integer :: rcode - character(len=CS) :: lrpfile character(*), parameter :: F00 = "('(dshr_restart_write) ',2a,2(i0,2x))" !------------------------------------------------------------------------------- @@ -1068,11 +1067,9 @@ subroutine dshr_restart_write(rpfile, case_name, model_name, inst_suffix, ymd, t call shr_cal_datetod2string(date_str, ymd, tod) write(rest_file_model ,"(7a)") trim(case_name),'.', trim(model_name),trim(inst_suffix),'.r.', trim(date_str),'.nc' - ! temporarily turn off timestamp, remove this code and comment in alpha05c - lrpfile = rpfile(:len_trim(rpfile)-17) ! write restart info to rpointer file if (my_task == main_task) then - open(newunit=nu, file=trim(lrpfile), form='formatted') + open(newunit=nu, file=trim(rpfile), form='formatted') write(nu,'(a)') rest_file_model close(nu) write(logunit,F00)' writing ',trim(rest_file_model)