Changeset 10682


Ignore:
Timestamp:
2019-02-14T15:10:07+01:00 (16 months ago)
Author:
davestorkey
Message:

UKMO/dev_r9950_GO8_package branch : change write outs from tra_bbl and timing from every processor to be from a single processor.

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

Legend:

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

    r10322 r10682  
    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/src/OCE/timing.F90

    r10322 r10682  
    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.