Changeset 13532 for NEMO/trunk/src/OCE/TRA/trabbl.F90

Timestamp:

2020-09-28T15:29:28+02:00 (4 years ago)

Author:

clem

Message:

remove annoying prints coming from bbl

File:

• NEMO/trunk/src/OCE/TRA/trabbl.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/TRA/trabbl.F90

@@ -505 +505 @@
       IF( tra_bbl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'tra_bbl_init : unable to allocate arrays' )
       !
-      IF( nn_bbl_adv == 1 )    WRITE(numout,*) '       * Advective BBL using upper velocity'
-      IF( nn_bbl_adv == 2 )    WRITE(numout,*) '       * Advective BBL using velocity = F( delta rho)'
+      IF(lwp) THEN
+         IF( nn_bbl_adv == 1 )    WRITE(numout,*) '       * Advective BBL using upper velocity'
+         IF( nn_bbl_adv == 2 )    WRITE(numout,*) '       * Advective BBL using velocity = F( delta rho)'
+      ENDIF
       !
       !                             !* vertical index of  "deep" bottom u- and v-points