@@ -1058,7 +1058,6 @@ subroutine dshr_restart_write(rpfile, case_name, model_name, inst_suffix, ymd, t
1058
1058
type (io_desc_t) :: pio_iodesc
1059
1059
integer :: oldmode
1060
1060
integer :: rcode
1061
- character (len= CS) :: lrpfile
1062
1061
character (* ), parameter :: F00 = " ('(dshr_restart_write) ',2a,2(i0,2x))"
1063
1062
!- ------------------------------------------------------------------------------
1064
1063
@@ -1068,10 +1067,9 @@ subroutine dshr_restart_write(rpfile, case_name, model_name, inst_suffix, ymd, t
1068
1067
1069
1068
call shr_cal_datetod2string(date_str, ymd, tod)
1070
1069
write (rest_file_model ," (7a)" ) trim (case_name),' .' , trim (model_name),trim (inst_suffix),' .r.' , trim (date_str),' .nc'
1071
-
1072
1070
! write restart info to rpointer file
1073
1071
if (my_task == main_task) then
1074
- open (newunit= nu, file= trim (lrpfile ), form= ' formatted' )
1072
+ open (newunit= nu, file= trim (rpfile ), form= ' formatted' )
1075
1073
write (nu,' (a)' ) rest_file_model
1076
1074
close (nu)
1077
1075
write (logunit,F00)' writing ' ,trim (rest_file_model)
0 commit comments