Changeset 10135


Ignore:
Timestamp:
2018-09-17T15:11:21+02:00 (22 months ago)
Author:
dguibert
Message:

BULL_TIMING_NO_INIT: don't take the init in the timing report

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/nemogcm.F90

    r9814 r10135  
    260260      !!---------------------------------------------------------------------- 
    261261      ! 
     262      nstop = 0 
    262263      cltxt  = '' 
    263264      cltxt2 = '' 
     
    376377      ! 
    377378      !                                      ! General initialization 
     379#ifndef BULL_TIMING_NO_INIT 
    378380      IF( ln_timing    )   CALL timing_init     ! timing 
    379381      IF( ln_timing    )   CALL timing_start( 'nemo_init') 
     382#endif 
    380383      ! 
    381384                           CALL     phy_cst         ! Physical constants 
     
    464467      IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
    465468      ! 
     469#ifndef BULL_TIMING_NO_INIT 
     470      IF( ln_timing    )   CALL timing_start( 'nemo_init') 
    466471      IF( ln_timing    )   CALL timing_stop( 'nemo_init') 
     472#else 
     473      call MPI_Barrier(MPI_COMM_WORLD, ji) 
     474      IF( ln_timing    )   CALL timing_init     ! timing 
     475#endif 
    467476      ! 
    468477   END SUBROUTINE nemo_init 
Note: See TracChangeset for help on using the changeset viewer.