Changeset 10843 for NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/timing.F90

Timestamp:

2019-04-05T16:01:32+02:00 (5 years ago)

Author:

andmirek

Message:

ticket #2197 merge with dev_r9950_GO8_package at 10320

File:

• NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/timing.F90 (modified) (3 diffs)

NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/timing.F90

@@ -79 +79 @@
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
    !! $Id$
-   !! Software governed by the CeCILL licence     (./LICENSE)
+   !! Software governed by the CeCILL license (see ./LICENSE)
    !!----------------------------------------------------------------------
 CONTAINS
@@ -491 +491 @@
       END DO      
 
-         WRITE(*,*) 'ARPDBG: timing: done gathers'
-      
       IF( narea == 1 ) THEN    
          ! Compute some stats
@@ -515 +513 @@
          END DO
 
-         WRITE(*,*) 'ARPDBG: timing: done computing stats'
-      
          ! reorder the averaged list by CPU time      
          s_wrk => NULL()