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 1920 for branches/DEV_1879_mpp_rep/NEMO/OPA_SRC/SBC/sbcana.F90 – NEMO

Ignore:
Timestamp:
2010-06-07T13:45:58+02:00 (14 years ago)
Author:
rblod
Message:

Add modifications for mpp reproducibility, see ticket #677

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_1879_mpp_rep/NEMO/OPA_SRC/SBC/sbcana.F90

    r1732 r1920  
    207207 
    208208      ! Compute the emp flux such as its integration on the whole domain at each time is zero 
    209       IF( nbench /= 1 .AND. nbit_cmp /= 1 ) THEN 
     209      IF( nbench /= 1 ) THEN 
    210210         zsumemp = 0.e0   ;   zsurf = 0.e0 
    211211         DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.