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 15599 – NEMO

Changeset 15599


Ignore:
Timestamp:
2021-12-14T17:07:32+01:00 (2 years ago)
Author:
emmafiedler
Message:

Bug fix: initialise zperc to avoid being uninitialised when ztot==0, ticket #2752

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/timing.F90

    r11536 r15599  
    373373#if defined key_mpp_mpi 
    374374      ALLOCATE(timing_glob(4*jpnij), stat=icode) 
     375      ! initialise zperc 
     376      zperc = 0. 
    375377      CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/),   & 
    376378         &             4, MPI_DOUBLE_PRECISION, timing_glob, 4, MPI_DOUBLE_PRECISION, 0, MPI_COMM_OCE, icode) 
Note: See TracChangeset for help on using the changeset viewer.