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 10402 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2018-12-17T17:07:54+01:00 (5 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: no more need of lk_mpp for mpp_sum/max/min, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diawri.F90

    r10380 r10402  
    411411         ! 
    412412      dia_wri_alloc = MAXVAL(ierr) 
    413       IF( lk_mpp )   CALL mpp_sum( 'diawri', dia_wri_alloc ) 
     413      CALL mpp_sum( 'diawri', dia_wri_alloc ) 
    414414      ! 
    415415   END FUNCTION dia_wri_alloc 
     
    520520            !! that routine is called from nemogcm, so do it here immediately before its needed 
    521521            ALLOCATE( ndex_bT(jpi*jpj*nclasses), STAT=ierror ) 
    522             IF( lk_mpp )   CALL mpp_sum( 'diawri', ierror ) 
     522            CALL mpp_sum( 'diawri', ierror ) 
    523523            IF( ierror /= 0 ) THEN 
    524524               CALL ctl_stop('dia_wri: failed to allocate iceberg diagnostic array') 
Note: See TracChangeset for help on using the changeset viewer.