fix issue with gnu compiler

samsrabin · Sep 23, 2022 · 622a418 · 622a418
1 parent f8f4416
commit 622a418
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/streams/dshr_stream_mod.F90 b/streams/dshr_stream_mod.F90
@@ -819,7 +819,7 @@ subroutine shr_stream_findBounds(strm, mDateIn, secIn, isroot_task, &
 
     if (cycle) then
        dYear  = yrFirst + modulo(mYear-yrAlign+(2*nYears),nYears)   ! current data year
-       if(debug .and. isroot_task) then
+       if(debug>0 .and. isroot_task) then
           write(strm%logunit, *) trim(subname), ' dyear, yrfirst, myear, yralign, nyears =', dyear, yrfirst, myear, yralign, nyears
        endif
     else