bug fix for single level

ESCOMP · May 15, 2024 · ee01687 · ee01687
1 parent 4a745b8
commit ee01687
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/streams/dshr_strdata_mod.F90 b/streams/dshr_strdata_mod.F90
@@ -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