Changeset 10660


Ignore:
Timestamp:
2019-02-12T17:42:50+01:00 (16 months ago)
Author:
andmirek
Message:

GMED ticket 445 remove write statements

Location:
NEMO/branches/UKMO/dev_r9950_GO8_package_write/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r9950_GO8_package_write/src/OCE/TRA/trabbl.F90

    r10322 r10660  
    513513      IF( tra_bbl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'tra_bbl_init : unable to allocate arrays' ) 
    514514      ! 
    515       IF( nn_bbl_adv == 1 )    WRITE(numout,*) '       * Advective BBL using upper velocity' 
    516       IF( nn_bbl_adv == 2 )    WRITE(numout,*) '       * Advective BBL using velocity = F( delta rho)' 
     515      IF(lwp) THEN 
     516         IF( nn_bbl_adv == 1 )    WRITE(numout,*) '       * Advective BBL using upper velocity' 
     517         IF( nn_bbl_adv == 2 )    WRITE(numout,*) '       * Advective BBL using velocity = F( delta rho)' 
     518      ENDIF 
    517519      ! 
    518520      !                             !* vertical index of  "deep" bottom u- and v-points 
  • NEMO/branches/UKMO/dev_r9950_GO8_package_write/src/OCE/timing.F90

    r10322 r10660  
    491491      END DO       
    492492 
    493          WRITE(*,*) 'ARPDBG: timing: done gathers' 
    494        
    495493      IF( narea == 1 ) THEN     
    496494         ! Compute some stats 
     
    515513         END DO 
    516514 
    517          WRITE(*,*) 'ARPDBG: timing: done computing stats' 
    518        
    519515         ! reorder the averaged list by CPU time       
    520516         s_wrk => NULL() 
Note: See TracChangeset for help on using the changeset viewer.