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

Changeset 15598


Ignore:
Timestamp:
2021-12-14T12:50:55+01:00 (2 years ago)
Author:
emmafiedler
Message:

Initialise zperc to avoid uninitialised when ztot == 0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/timings_bugfix/src/OCE/timing.F90

    r11536 r15598  
    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.