Skip to content

Commit 8197f05

Browse files
authored
Merge pull request #317 from jedwards4b/readd_rpointer_timestamps
Readd rpointer timestamps
2 parents a4e9d13 + 1d99282 commit 8197f05

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

dshr/dshr_mod.F90

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1058,7 +1058,6 @@ subroutine dshr_restart_write(rpfile, case_name, model_name, inst_suffix, ymd, t
10581058
type(io_desc_t) :: pio_iodesc
10591059
integer :: oldmode
10601060
integer :: rcode
1061-
character(len=CS) :: lrpfile
10621061
character(*), parameter :: F00 = "('(dshr_restart_write) ',2a,2(i0,2x))"
10631062
!-------------------------------------------------------------------------------
10641063

@@ -1068,10 +1067,9 @@ subroutine dshr_restart_write(rpfile, case_name, model_name, inst_suffix, ymd, t
10681067

10691068
call shr_cal_datetod2string(date_str, ymd, tod)
10701069
write(rest_file_model ,"(7a)") trim(case_name),'.', trim(model_name),trim(inst_suffix),'.r.', trim(date_str),'.nc'
1071-
10721070
! write restart info to rpointer file
10731071
if (my_task == main_task) then
1074-
open(newunit=nu, file=trim(lrpfile), form='formatted')
1072+
open(newunit=nu, file=trim(rpfile), form='formatted')
10751073
write(nu,'(a)') rest_file_model
10761074
close(nu)
10771075
write(logunit,F00)' writing ',trim(rest_file_model)

0 commit comments

Comments
 (0)