From ee01687ae1a8bf1c160a0a40fe3728d30a39c691 Mon Sep 17 00:00:00 2001 From: Mariana Vertenstein Date: Wed, 15 May 2024 11:23:15 -0600 Subject: [PATCH] bug fix for single level --- streams/dshr_strdata_mod.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/streams/dshr_strdata_mod.F90 b/streams/dshr_strdata_mod.F90 index 60e3d0ddc..724ea7d36 100644 --- 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