Skip to content

Commit

Permalink
bug fix for single level
Browse files Browse the repository at this point in the history
  • Loading branch information
Mariana Vertenstein committed May 15, 2024
1 parent 4a745b8 commit ee01687
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 ee01687

Please sign in to comment.