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 10425 for NEMO/trunk/src/OCE/OBS – NEMO

Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (6 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

Location:
NEMO/trunk/src/OCE/OBS
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/OBS/obs_averg_h2d.F90

    r10069 r10425  
    616616          
    617617         IF(lk_mpp) THEN 
    618             CALL mpp_min( ze1min ) 
    619             CALL mpp_min( ze2min ) 
     618            CALL mpp_min( 'obs_averg_h2d', ze1min ) 
     619            CALL mpp_min( 'obs_averg_h2d', ze2min ) 
    620620         ENDIF 
    621621 

  • NEMO/trunk/src/OCE/OBS/obs_readmdt.F90

    r10068 r10425  
    220220      END DO 
    221221 
    222       IF( lk_mpp)   CALL mpp_sum( zeta1 ) 
    223       IF( lk_mpp)   CALL mpp_sum( zeta2 ) 
    224       IF( lk_mpp)   CALL mpp_sum( zarea ) 
     222      CALL mpp_sum( 'obs_readmdt', zeta1 ) 
     223      CALL mpp_sum( 'obs_readmdt', zeta2 ) 
     224      CALL mpp_sum( 'obs_readmdt', zarea ) 
    225225       
    226226      zcorr_mdt    = zeta1 / zarea 

  • NEMO/trunk/src/OCE/OBS/obs_write.F90

    r10068 r10425  
    592592 
    593593         CALL obs_mpp_sum_integer( inumgoodobs, inumgoodobsmpp ) 
    594          CALL mpp_sum(zsumx) 
    595          CALL mpp_sum(zsumx2) 
     594         CALL mpp_sum('obs_write', zsumx) 
     595         CALL mpp_sum('obs_write', zsumx2) 
    596596 
    597597         IF (lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.