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 10660 for NEMO/branches/UKMO/dev_r9950_GO8_package_write/src/OCE/timing.F90 – NEMO

Ignore:
Timestamp:
2019-02-12T17:42:50+01:00 (5 years ago)
Author:
andmirek
Message:

GMED ticket 445 remove write statements

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/dev_r9950_GO8_package_write/src/OCE/timing.F90

    r10322 r10660  
    491491      END DO       
    492492 
    493          WRITE(*,*) 'ARPDBG: timing: done gathers' 
    494        
    495493      IF( narea == 1 ) THEN     
    496494         ! Compute some stats 
    … …  
    515513         END DO 
    516514 
    517          WRITE(*,*) 'ARPDBG: timing: done computing stats' 
    518        
    519515         ! reorder the averaged list by CPU time       
    520516         s_wrk => NULL() 
Note: See TracChangeset for help on using the changeset viewer.