New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10681 – NEMO

Changeset 10681


Ignore:
Timestamp:
2019-02-14T15:03:40+01:00 (6 years ago)
Author:
davestorkey
Message:

UKMO/dev_r5518_GO6_package: restrict write outs in tra_bbl and timing to single processor.

Location:
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r8615 r10681  
    535535      IF( tra_bbl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'tra_bbl_init : unable to allocate arrays' ) 
    536536 
    537       IF( nn_bbl_adv == 1 )    WRITE(numout,*) '       * Advective BBL using upper velocity' 
    538       IF( nn_bbl_adv == 2 )    WRITE(numout,*) '       * Advective BBL using velocity = F( delta rho)' 
     537      IF(lwp) THEN 
     538         IF( nn_bbl_adv == 1 )    WRITE(numout,*) '       * Advective BBL using upper velocity' 
     539         IF( nn_bbl_adv == 2 )    WRITE(numout,*) '       * Advective BBL using velocity = F( delta rho)' 
     540      ENDIF 
    539541 
    540542      !                             !* vertical index of  "deep" bottom u- and v-points 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/timing.F90

    r6486 r10681  
    492492      END DO       
    493493 
    494          WRITE(*,*) 'ARPDBG: timing: done gathers' 
    495        
    496494      IF( narea == 1 ) THEN     
    497495         ! Compute some stats 
     
    516514         END DO 
    517515 
    518          WRITE(*,*) 'ARPDBG: timing: done computing stats' 
    519        
    520516         ! reorder the averaged list by CPU time       
    521517         s_wrk => NULL() 
Note: See TracChangeset for help on using the changeset viewer.