Changeset 10658

Timestamp:

2019-02-12T17:26:46+01:00 (6 years ago)

Author:

andmirek

Message:

GMED ticket 444 unnecessary write statements removed/limited to numout

Location:

branches/UKMO/dev_r5518_GO6_write/NEMOGCM/NEMO/OPA_SRC

Files:

• TRA/trabbl.F90 (modified) (1 diff)
• timing.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_write/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

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

branches/UKMO/dev_r5518_GO6_write/NEMOGCM/NEMO/OPA_SRC/timing.F90

@@ -492 +492 @@
       END DO      
 
-         WRITE(*,*) 'ARPDBG: timing: done gathers'
-      
       IF( narea == 1 ) THEN    
          ! Compute some stats
@@ -516 +514 @@
          END DO
 
-         WRITE(*,*) 'ARPDBG: timing: done computing stats'
-      
          ! reorder the averaged list by CPU time      
          s_wrk => NULL()