Skip to content

Commit

Permalink
Merge pull request #282 from mvertens/feature/bugfix
Browse files Browse the repository at this point in the history
bug fix for single level log output
  • Loading branch information
jedwards4b authored May 15, 2024
2 parents 4a745b8 + ee01687 commit 7a522c8
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion streams/dshr_strdata_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -720,7 +720,9 @@ subroutine shr_strdata_get_stream_nlev(sdat, stream_index, rc)
end if
if (sdat%mainproc) then
write(sdat%stream(1)%logunit,*) trim(subname)//' stream_nlev = ',stream_nlev
write(sdat%stream(1)%logunit,*)' stream vertical levels = ',sdat%pstrm(stream_index)%stream_vlevs
if (stream_nlev /= 1) then
write(sdat%stream(1)%logunit,*)' stream vertical levels = ',sdat%pstrm(stream_index)%stream_vlevs
end if
end if

! Set stream_nlev in the per-stream sdat info
Expand Down

0 comments on commit 7a522c8

Please sign in to comment.