diff --git a/src/framework/mpas_stream_manager.F b/src/framework/mpas_stream_manager.F index 7a3c7b079a..8a4a1b4ad3 100644 --- a/src/framework/mpas_stream_manager.F +++ b/src/framework/mpas_stream_manager.F @@ -4073,7 +4073,9 @@ subroutine mpas_get_stream_filename(manager, streamID, when, blockID, filename, type (MPAS_TimeInterval_type) :: filename_interval type (MPAS_Time_type) :: now_time - ierr = 0 + if ( present(ierr) ) then + ierr = MPAS_STREAM_MGR_NOERR + end if if ( present(blockID) ) then blockID_local = blockID