Skip to content

Commit f820ab6

Browse files
committed
remove "prev" argument for inst files; move open file logging to before pio call
1 parent 2f59d18 commit f820ab6

File tree

2 files changed

+5
-3
lines changed

2 files changed

+5
-3
lines changed

src/control/cam_history.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5738,7 +5738,7 @@ subroutine wshist (rgnht_in)
57385738
inst_filename_spec = hfilename_spec(t)
57395739
end if
57405740
fname_inst = interpret_filename_spec( inst_filename_spec, number=(t-1), &
5741-
prev=prev, flag_spec='i' )
5741+
flag_spec='i' )
57425742
end if
57435743
!
57445744
! Check that this new filename isn't the same as a previous or current filename

src/utils/cam_pio_utils.F90

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1133,12 +1133,14 @@ subroutine cam_pio_openfile(file, fname, mode)
11331133

11341134
integer :: ierr
11351135

1136+
if(pio_iotask_rank(pio_subsystem) == 0) then
1137+
write(iulog,*) 'Opening existing file ', trim(fname), file%fh
1138+
end if
1139+
11361140
ierr = pio_openfile(pio_subsystem, file, pio_iotype, fname, mode)
11371141

11381142
if(ierr/= PIO_NOERR) then
11391143
call endrun('Failed to open '//trim(fname)//' to read')
1140-
else if(pio_iotask_rank(pio_subsystem) == 0) then
1141-
write(iulog,*) 'Opened existing file ', trim(fname), file%fh
11421144
end if
11431145

11441146
end subroutine cam_pio_openfile

0 commit comments

Comments
 (0)