Skip to content

Commit c0f839d

Browse files
committed
Merge branch 'bugfix_streammgr_optierr' into release-v8.4.0 (PR #1441)
This merge fixes an issue within mpas_get_stream_filename() where the optional argument ierr was being assigned to before checking if it was passed in. The routine now checks if ierr is present, and if so initializes it to MPAS_STREAM_MGR_NOERR. * bugfix_streammgr_optierr: Fix premature use of optional argument in mpas_get_stream_filename
2 parents 410ac71 + 44ee2f8 commit c0f839d

1 file changed

Lines changed: 3 additions & 1 deletion

File tree

src/framework/mpas_stream_manager.F

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4073,7 +4073,9 @@ subroutine mpas_get_stream_filename(manager, streamID, when, blockID, filename,
40734073
type (MPAS_TimeInterval_type) :: filename_interval
40744074
type (MPAS_Time_type) :: now_time
40754075

4076-
ierr = 0
4076+
if ( present(ierr) ) then
4077+
ierr = MPAS_STREAM_MGR_NOERR
4078+
end if
40774079

40784080
if ( present(blockID) ) then
40794081
blockID_local = blockID

0 commit comments

Comments
 (0)