Changeset 10135 for NEMO/branches

Timestamp:

2018-09-17T15:11:21+02:00 (6 years ago)

Author:

dguibert

Message:

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

File:

• NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/nemogcm.F90 (modified) (3 diffs)

NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/nemogcm.F90

@@ -260 +260 @@
       !!----------------------------------------------------------------------
       !
+      nstop = 0
       cltxt  = ''
       cltxt2 = ''
@@ -376 +377 @@
       !
       !                                      ! General initialization
+#ifndef BULL_TIMING_NO_INIT
       IF( ln_timing    )   CALL timing_init     ! timing
       IF( ln_timing    )   CALL timing_start( 'nemo_init')
+#endif
       !
                            CALL     phy_cst         ! Physical constants
@@ -464 +467 @@
       IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA
       !
+#ifndef BULL_TIMING_NO_INIT
+      IF( ln_timing    )   CALL timing_start( 'nemo_init')
       IF( ln_timing    )   CALL timing_stop( 'nemo_init')
+#else
+      call MPI_Barrier(MPI_COMM_WORLD, ji)
+      IF( ln_timing    )   CALL timing_init     ! timing
+#endif
       !
    END SUBROUTINE nemo_init