Changeset 11782 for NEMO/branches/2019/dev_r11756_text_output/src/OCE/timing.F90

Timestamp:

2019-10-24T10:30:30+02:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2320 print levels in ICE/OCE

File:

• NEMO/branches/2019/dev_r11756_text_output/src/OCE/timing.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11756_text_output/src/OCE/timing.F90

@@ -375 +375 @@
       CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/),   &
          &             4, MPI_DOUBLE_PRECISION, timing_glob, 4, MPI_DOUBLE_PRECISION, 0, MPI_COMM_OCE, icode)
-      IF( narea == 1 ) THEN
+      IF( narea == 1 .AND. nprint > 1) THEN
          WRITE(numtime,*) ' '
          WRITE(numtime,*) ' Report on time spent on waiting MPI messages '