Ignore:
Timestamp:
2018-12-17T17:07:54+01:00 (22 months 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/BDY/bdyini.F90

    r10297 r10402  
    12801280         END DO 
    12811281         ! 
    1282          IF( lk_mpp )   CALL mpp_sum( 'bdyini', bdysurftot )      ! sum over the global domain 
     1282         CALL mpp_sum( 'bdyini', bdysurftot )      ! sum over the global domain 
    12831283      END IF    
    12841284      ! 
     
    15201520            END DO 
    15211521         END DO 
    1522          IF( lk_mpp )   CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
     1522         CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
    15231523 
    15241524         IF (ztestmask(1)==1) THEN  
     
    15641564            END DO 
    15651565         END DO 
    1566          IF( lk_mpp )   CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
     1566         CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
    15671567 
    15681568         IF (ztestmask(1)==1) THEN 
     
    16081608            END DO 
    16091609         END DO 
    1610          IF( lk_mpp )   CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
     1610         CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
    16111611 
    16121612         IF ((ztestmask(1)==1).AND.(icorns(ib,1)==0)) THEN 
     
    16381638            END DO 
    16391639         END DO 
    1640          IF( lk_mpp )   CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
     1640         CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
    16411641 
    16421642         IF ((ztestmask(1)==1).AND.(icornn(ib,1)==0)) THEN 
Note: See TracChangeset for help on using the changeset viewer.