Changeset 13646 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE

Timestamp:

2020-10-20T17:33:01+02:00 (4 years ago)

Author:

clem

Message:

4.0-HEAD: change diagnostics of the ellipse for ice rheology (already done in the trunk). And avoid annoying prints from bbl

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/trabbl.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/trabbl.F90

@@ -513 +513 @@
       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