Changed some CADS write statements to use verbose (print only when ve…

…rbose = true.
wx20jjung · Sep 21, 2023 · 1196943 · 1196943
1 parent 93d68b5
commit 1196943
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/gsi/cads.f90 b/src/gsi/cads.f90
@@ -342,6 +342,7 @@ SUBROUTINE CADS_Setup_Cloud
 !   16/04/20   R.Eresmaa   3.0   Rename, tidy up.
 
   use kinds, only: i_kind, r_kind
+  use gsi_io, only: verbose
   IMPLICIT NONE
 
 ! Local variables
@@ -900,12 +901,12 @@ SUBROUTINE CADS_Setup_Cloud
     IF (IOS /= 0) THEN
       CALL CADS_Abort('PROBLEM READING '//TRIM(CL__InstrumentName)//&
                      'CLOUD DETECTION FILE')
-!    ELSE
-!      WRITE(*,'(3X,A)') TRIM(CL__InstrumentName) // &
-!           ' CLOUD DETECTION FILE READ OK'
+    ELSE
+      IF ( verbose ) WRITE(*,'(3X,A)') TRIM(CL__InstrumentName) // &
+           ' CLOUD DETECTION FILE READ OK'
     ENDIF
   ELSE
-    WRITE(*,'(3X,A)') 'NO '//TRIM(CL__InstrumentName) // &
+    IF ( verbose ) WRITE(*,'(3X,A)') 'NO '//TRIM(CL__InstrumentName) // &
              ' CLOUD DETECTION FILE : Using Default Values'
   ENDIF
   CLOSE(INIU1)