Changeset 10402


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

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

Location:
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE
Files:
76 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedia.F90

    r10314 r10402  
    5252      ALLOCATE( vol_loc_ini(jpi,jpj), sal_loc_ini(jpi,jpj), tem_loc_ini(jpi,jpj), STAT=ice_dia_alloc ) 
    5353 
    54       IF( lk_mpp             )   CALL mpp_sum ( 'icedia', ice_dia_alloc ) 
     54      CALL mpp_sum ( 'icedia', ice_dia_alloc ) 
    5555      IF( ice_dia_alloc /= 0 )   CALL ctl_warn( 'ice_dia_alloc: failed to allocate arrays' ) 
    5656      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_pra.F90

    r10297 r10402  
    101101      zcfl  =            MAXVAL( ABS( pu_ice(:,:) ) * rdt_ice * r1_e1u(:,:) ) 
    102102      zcfl  = MAX( zcfl, MAXVAL( ABS( pv_ice(:,:) ) * rdt_ice * r1_e2v(:,:) ) ) 
    103       IF( lk_mpp )   CALL mpp_max( 'icedyn_adv_pra', zcfl ) 
     103      CALL mpp_max( 'icedyn_adv_pra', zcfl ) 
    104104       
    105105      IF( zcfl > 0.5 ) THEN   ;   initad = 2   ;   zusnit = 0.5_wp 
     
    640640         &      STAT = ierr ) 
    641641      ! 
    642       IF( lk_mpp    )   CALL mpp_sum( 'icedyn_adv_pra', ierr ) 
     642      CALL mpp_sum( 'icedyn_adv_pra', ierr ) 
    643643      IF( ierr /= 0 )   CALL ctl_stop('STOP', 'adv_pra_init : unable to allocate ice arrays for Prather advection scheme') 
    644644      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rdgrft.F90

    r10297 r10402  
    9292         &      ze_i_2d(jpij,nlay_i,jpl), ze_s_2d(jpij,nlay_s,jpl), STAT=ice_dyn_rdgrft_alloc ) 
    9393 
    94       IF( lk_mpp                    )   CALL mpp_sum ( 'icedyn_rdgrft', ice_dyn_rdgrft_alloc ) 
     94      CALL mpp_sum ( 'icedyn_rdgrft', ice_dyn_rdgrft_alloc ) 
    9595      IF( ice_dyn_rdgrft_alloc /= 0 )   CALL ctl_warn( 'ice_dyn_rdgrft_alloc: failed to allocate arrays' ) 
    9696      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rhg_evp.F90

    r10386 r10402  
    644644!!$            END DO 
    645645!!$            zresm = MAXVAL( zresr( 1:jpi, 2:jpjm1 ) ) 
    646 !!$            IF( lk_mpp )   CALL mpp_max( 'icedyn_rhg_evp', zresm )   ! max over the global domain 
     646!!$            CALL mpp_max( 'icedyn_rhg_evp', zresm )   ! max over the global domain 
    647647!!$         ENDIF 
    648648         ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icestp.F90

    r10297 r10402  
    248248      ierr = ierr + ice1D_alloc      ()      ! thermodynamics 
    249249      ! 
    250       IF( lk_mpp    )   CALL mpp_sum( 'icestp', ierr ) 
     250      CALL mpp_sum( 'icestp', ierr ) 
    251251      IF( ierr /= 0 )   CALL ctl_stop('STOP', 'ice_init : unable to allocate ice arrays') 
    252252      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/iceupdate.F90

    r10297 r10402  
    5959      ALLOCATE( utau_oce(jpi,jpj), vtau_oce(jpi,jpj), tmod_io(jpi,jpj), STAT=ice_update_alloc ) 
    6060      ! 
    61       IF( lk_mpp                )   CALL mpp_sum( 'iceupdate', ice_update_alloc ) 
     61      CALL mpp_sum( 'iceupdate', ice_update_alloc ) 
    6262      IF( ice_update_alloc /= 0 )   CALL ctl_warn('ice_update_alloc: failed to allocate arrays') 
    6363      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/NST/agrif_user.F90

    r10297 r10402  
    280280         CALL Agrif_Bc_variable(e3t_id,calledweight=1.,procname=interpe3t) 
    281281         ! 
    282          IF (lk_mpp) CALL mpp_sum( 'agrif_user', kindic_agr ) 
     282         CALL mpp_sum( 'agrif_user', kindic_agr ) 
    283283         IF( kindic_agr /= 0 ) THEN 
    284284            CALL ctl_stop('Child Bathymetry is not correct near boundaries.') 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdy_oce.F90

    r10297 r10402  
    161161      bdyvmask(:,:) = 1._wp 
    162162      !  
    163       IF( lk_mpp             )   CALL mpp_sum ( 'bdy_oce', bdy_oce_alloc ) 
     163      CALL mpp_sum ( 'bdy_oce', bdy_oce_alloc ) 
    164164      IF( bdy_oce_alloc /= 0 )   CALL ctl_warn('bdy_oce_alloc: failed to allocate arrays.') 
    165165      ! 
  • 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 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdyvol.F90

    r10314 r10402  
    8585!!gm replace these lines : 
    8686      z_cflxemp = SUM ( ( emp(:,:) - rnf(:,:) + fwfisf(:,:) ) * bdytmask(:,:) * e1e2t(:,:) ) / rau0 
    87       IF( lk_mpp )   CALL mpp_sum( 'bdyvol', z_cflxemp )     ! sum over the global domain 
     87      CALL mpp_sum( 'bdyvol', z_cflxemp )     ! sum over the global domain 
    8888!!gm   by : 
    8989!!gm      z_cflxemp = glob_sum(  'bdyvol', ( emp(:,:)-rnf(:,:)+fwfisf(:,:) ) * bdytmask(:,:) * e1e2t(:,:)  ) / rau0 
     
    114114         ! 
    115115      END DO 
    116       IF( lk_mpp )   CALL mpp_sum( 'bdyvol', zubtpecor )   ! sum over the global domain 
     116      CALL mpp_sum( 'bdyvol', zubtpecor )   ! sum over the global domain 
    117117 
    118118      ! The normal velocity correction 
     
    148148         ! 
    149149      END DO 
    150       IF( lk_mpp )   CALL mpp_sum( 'bdyvol', ztranst )   ! sum over the global domain 
     150      CALL mpp_sum( 'bdyvol', ztranst )   ! sum over the global domain 
    151151  
    152152      ! Check the cumulated transport through unstructured OBC once barotropic velocities corrected 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/C1D/dyndmp.F90

    r10368 r10402  
    5757      ALLOCATE( utrdmp(jpi,jpj,jpk), vtrdmp(jpi,jpj,jpk), resto_uv(jpi,jpj,jpk), STAT= dyn_dmp_alloc ) 
    5858      ! 
    59       IF( lk_mpp            )   CALL mpp_sum ( 'dyndmp', dyn_dmp_alloc ) 
     59      CALL mpp_sum ( 'dyndmp', dyn_dmp_alloc ) 
    6060      IF( dyn_dmp_alloc > 0 )   CALL ctl_warn('dyn_dmp_alloc: allocation of arrays failed') 
    6161      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diaar5.F90

    r10297 r10402  
    5656      ALLOCATE( area(jpi,jpj), thick0(jpi,jpj) , sn0(jpi,jpj,jpk) , STAT=dia_ar5_alloc ) 
    5757      ! 
    58       IF( lk_mpp             )   CALL mpp_sum ( 'diaar5', dia_ar5_alloc ) 
     58      CALL mpp_sum ( 'diaar5', dia_ar5_alloc ) 
    5959      IF( dia_ar5_alloc /= 0 )   CALL ctl_warn('dia_ar5_alloc: failed to allocate arrays') 
    6060      ! 
     
    9595         !                                         ! total volume of liquid seawater 
    9696         zvolssh = SUM( zarea_ssh(:,:) )  
    97          IF( lk_mpp )   CALL mpp_sum( 'diaar5', zvolssh ) 
     97         CALL mpp_sum( 'diaar5', zvolssh ) 
    9898         zvol = vol0 + zvolssh 
    9999       
     
    130130         !                                          
    131131         zarho = SUM( area(:,:) * zbotpres(:,:) )  
    132          IF( lk_mpp )   CALL mpp_sum( 'diaar5', zarho ) 
     132         CALL mpp_sum( 'diaar5', zarho ) 
    133133         zssh_steric = - zarho / area_tot 
    134134         CALL iom_put( 'sshthster', zssh_steric ) 
     
    156156         !     
    157157         zarho = SUM( area(:,:) * zbotpres(:,:) )  
    158          IF( lk_mpp )   CALL mpp_sum( 'diaar5', zarho ) 
     158         CALL mpp_sum( 'diaar5', zarho ) 
    159159         zssh_steric = - zarho / area_tot 
    160160         CALL iom_put( 'sshsteric', zssh_steric ) 
     
    342342         area(:,:) = e1e2t(:,:) * tmask_i(:,:) 
    343343 
    344          area_tot = SUM( area(:,:) )   ;   IF( lk_mpp )   CALL mpp_sum( 'diaar5', area_tot ) 
     344         area_tot = SUM( area(:,:) )   ;   CALL mpp_sum( 'diaar5', area_tot ) 
    345345 
    346346         vol0        = 0._wp 
     
    350350            thick0(:,:) = thick0(:,:) +    tmask_i(:,:) * tmask(:,:,jk) * e3t_0(:,:,jk) 
    351351         END DO 
    352          IF( lk_mpp )   CALL mpp_sum( 'diaar5', vol0 ) 
     352         CALL mpp_sum( 'diaar5', vol0 ) 
    353353 
    354354         IF( iom_use( 'sshthster' ) ) THEN 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diahth.F90

    r10297 r10402  
    5454      ALLOCATE( hth(jpi,jpj), hd20(jpi,jpj), hd28(jpi,jpj), htc3(jpi,jpj), STAT=dia_hth_alloc ) 
    5555      ! 
    56       IF( lk_mpp           )   CALL mpp_sum ( 'diahth', dia_hth_alloc ) 
     56      CALL mpp_sum ( 'diahth', dia_hth_alloc ) 
    5757      IF(dia_hth_alloc /= 0)   CALL ctl_warn('dia_hth_alloc: failed to allocate arrays.') 
    5858      ! 
     
    123123               &      zthick(jpi,jpj),  & 
    124124               &      zdelr(jpi,jpj), STAT=ji) 
    125             IF( lk_mpp  )   CALL mpp_sum('diahth', ji) 
     125            CALL mpp_sum('diahth', ji) 
    126126            IF( ji /= 0 )   CALL ctl_stop( 'STOP', 'dia_hth : unable to allocate standard ocean arrays' ) 
    127127         END IF 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diaptr.F90

    r10297 r10402  
    549549         ! 
    550550      dia_ptr_alloc = MAXVAL( ierr ) 
    551       IF(lk_mpp)   CALL mpp_sum( 'diaptr', dia_ptr_alloc ) 
     551      CALL mpp_sum( 'diaptr', dia_ptr_alloc ) 
    552552      ! 
    553553   END FUNCTION dia_ptr_alloc 
     
    595595      ENDIF 
    596596#if defined key_mpp_mpi 
    597       IF(lk_mpp)   CALL mpp_sum( 'diaptr', p_fval, ijpj, ncomm_znl) 
     597      CALL mpp_sum( 'diaptr', p_fval, ijpj, ncomm_znl) 
    598598#endif 
    599599      ! 
  • 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') 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DOM/closea.F90

    r10314 r10402  
    118118            ! number of closed seas = global maximum value in closea_mask field 
    119119            jncs = maxval(closea_mask(:,:)) 
    120             IF( lk_mpp ) CALL mpp_max('closea', jncs) 
     120            CALL mpp_max('closea', jncs) 
    121121            IF( jncs > 0 ) THEN 
    122122               IF( lwp ) WRITE(numout,*) 'Number of closed seas : ',jncs 
     
    146146               ! number of closed seas rnf mappings = global maximum in closea_mask_rnf field 
    147147               jncsr = maxval(closea_mask_rnf(:,:)) 
    148                IF( lk_mpp ) CALL mpp_max('closea', jncsr) 
     148               CALL mpp_max('closea', jncsr) 
    149149               IF( jncsr > 0 ) THEN 
    150150                  IF( lwp ) WRITE(numout,*) 'Number of closed seas rnf mappings : ',jncsr 
     
    166166               ! number of closed seas empmr mappings = global maximum value in closea_mask_empmr field 
    167167               jncse = maxval(closea_mask_empmr(:,:)) 
    168                IF( lk_mpp ) CALL mpp_max('closea', jncse) 
     168               CALL mpp_max('closea', jncse) 
    169169               IF( jncse > 0 ) THEN  
    170170                  IF( lwp ) WRITE(numout,*) 'Number of closed seas empmr mappings : ',jncse 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DOM/domvvl.F90

    r10345 r10402  
    7979            &      dtilde_e3t_a(jpi,jpj,jpk) , un_td  (jpi,jpj,jpk)     , vn_td  (jpi,jpj,jpk)     ,   & 
    8080            &      STAT = dom_vvl_alloc        ) 
    81          IF( lk_mpp             )   CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
     81         CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
    8282         IF( dom_vvl_alloc /= 0 )   CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 
    8383         un_td = 0._wp 
     
    8686      IF( ln_vvl_ztilde ) THEN 
    8787         ALLOCATE( frq_rst_e3t(jpi,jpj) , frq_rst_hdv(jpi,jpj) , hdiv_lf(jpi,jpj,jpk) , STAT= dom_vvl_alloc ) 
    88          IF( lk_mpp             )   CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
     88         CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
    8989         IF( dom_vvl_alloc /= 0 )   CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 
    9090      ENDIF 
     
    431431         END DO 
    432432         z_tmax = MAXVAL( ze3t(:,:,:) ) 
    433          IF( lk_mpp )   CALL mpp_max( 'domvvl', z_tmax )                 ! max over the global domain 
     433         CALL mpp_max( 'domvvl', z_tmax )                 ! max over the global domain 
    434434         z_tmin = MINVAL( ze3t(:,:,:) ) 
    435          IF( lk_mpp )   CALL mpp_min( 'domvvl', z_tmin )                 ! min over the global domain 
     435         CALL mpp_min( 'domvvl', z_tmin )                 ! min over the global domain 
    436436         ! - ML - test: for the moment, stop simulation for too large e3_t variations 
    437437         IF( ( z_tmax >  rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN 
     
    495495         IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 
    496496            z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 
    497             IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                             ! max over the global domain 
     497            CALL mpp_max( 'domvvl', z_tmax )                             ! max over the global domain 
    498498            IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(SUM(tilde_e3t_a))) =', z_tmax 
    499499         END IF 
     
    504504         END DO 
    505505         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshn(:,:) - zht(:,:) ) ) 
    506          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     506         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    507507         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshn-SUM(e3t_n))) =', z_tmax 
    508508         ! 
     
    512512         END DO 
    513513         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + ssha(:,:) - zht(:,:) ) ) 
    514          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     514         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    515515         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+ssha-SUM(e3t_a))) =', z_tmax 
    516516         ! 
     
    520520         END DO 
    521521         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshb(:,:) - zht(:,:) ) ) 
    522          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     522         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    523523         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshb-SUM(e3t_b))) =', z_tmax 
    524524         ! 
    525525         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( sshb(:,:) ) ) 
    526          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     526         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    527527         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(sshb))) =', z_tmax 
    528528         ! 
    529529         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( sshn(:,:) ) ) 
    530          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     530         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    531531         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(sshn))) =', z_tmax 
    532532         ! 
    533533         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( ssha(:,:) ) ) 
    534          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     534         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    535535         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 
    536536      END IF 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DOM/domwri.F90

    r10380 r10402  
    277277      zrxmax = MAXVAL( zx1 ) 
    278278      ! 
    279       IF( lk_mpp )   CALL mpp_max( 'domwri', zrxmax ) ! max over the global domain 
     279      CALL mpp_max( 'domwri', zrxmax ) ! max over the global domain 
    280280      ! 
    281281      IF(lwp) THEN 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DOM/iscplini.F90

    r10297 r10402  
    4848      ALLOCATE( htsc_iscpl(jpi,jpj,jpk,jpts) , hdiv_iscpl(jpi,jpj,jpk) , STAT=iscpl_alloc ) 
    4949         ! 
    50       IF( lk_mpp          )   CALL mpp_sum ( 'iscplini', iscpl_alloc ) 
     50      CALL mpp_sum ( 'iscplini', iscpl_alloc ) 
    5151      IF( iscpl_alloc > 0 )   CALL ctl_warn('iscpl_alloc: allocation of arrays failed') 
    5252   END FUNCTION iscpl_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DYN/dynspg_ts.F90

    r10386 r10402  
    112112      dyn_spg_ts_alloc = MAXVAL( ierr(:) ) 
    113113      ! 
    114       IF( lk_mpp                )   CALL mpp_sum( 'dynspg_ts', dyn_spg_ts_alloc ) 
     114      CALL mpp_sum( 'dynspg_ts', dyn_spg_ts_alloc ) 
    115115      IF( dyn_spg_ts_alloc /= 0 )   CALL ctl_warn('dyn_spg_ts_alloc: failed to allocate arrays') 
    116116      ! 
     
    14841484      ! 
    14851485      zcmax = MAXVAL( zcu(:,:) ) 
    1486       IF( lk_mpp )   CALL mpp_max( 'dynspg_ts', zcmax ) 
     1486      CALL mpp_max( 'dynspg_ts', zcmax ) 
    14871487 
    14881488      ! Estimate number of iterations to satisfy a max courant number= rn_bt_cmax 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DYN/wet_dry.F90

    r10297 r10402  
    243243         CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 
    244244         ! 
    245          IF( lk_mpp )   CALL mpp_max('wet_dry', jflag)   !max over the global domain 
     245         CALL mpp_max('wet_dry', jflag)   !max over the global domain 
    246246         ! 
    247247         IF( jflag == 0 )   EXIT 
     
    372372         CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 
    373373         ! 
    374          IF(lk_mpp) CALL mpp_max('wet_dry', jflag)   !max over the global domain 
     374         CALL mpp_max('wet_dry', jflag)   !max over the global domain 
    375375         ! 
    376376         IF(jflag == 0)   EXIT 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/flo_oce.F90

    r10297 r10402  
    6464         &      tpifl(jpnfl)    , tpjfl(jpnfl)  , tpkfl(jpnfl)   , STAT=flo_oce_alloc ) 
    6565      ! 
    66       IF( lk_mpp             )   CALL mpp_sum ( 'flo_oce', flo_oce_alloc ) 
     66      CALL mpp_sum ( 'flo_oce', flo_oce_alloc ) 
    6767      IF( flo_oce_alloc /= 0 )   CALL ctl_warn('flo_oce_alloc: failed to allocate arrays') 
    6868   END FUNCTION flo_oce_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/floblk.F90

    r10297 r10402  
    330330       
    331331      ! synchronisation 
    332       IF( lk_mpp )   CALL mpp_sum( 'floblk', zgifl , jpnfl )   ! sums over the global domain 
    333       IF( lk_mpp )   CALL mpp_sum( 'floblk', zgjfl , jpnfl ) 
    334       IF( lk_mpp )   CALL mpp_sum( 'floblk', zgkfl , jpnfl ) 
    335       IF( lk_mpp )   CALL mpp_sum( 'floblk', zagefl, jpnfl ) 
    336       IF( lk_mpp )   CALL mpp_sum( 'floblk', iil   , jpnfl ) 
    337       IF( lk_mpp )   CALL mpp_sum( 'floblk', ijl   , jpnfl ) 
     332      CALL mpp_sum( 'floblk', zgifl , jpnfl )   ! sums over the global domain 
     333      CALL mpp_sum( 'floblk', zgjfl , jpnfl ) 
     334      CALL mpp_sum( 'floblk', zgkfl , jpnfl ) 
     335      CALL mpp_sum( 'floblk', zagefl, jpnfl ) 
     336      CALL mpp_sum( 'floblk', iil   , jpnfl ) 
     337      CALL mpp_sum( 'floblk', ijl   , jpnfl ) 
    338338       
    339339      ! Test to know if a  float hasn't integrated enought time 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/flodom.F90

    r10297 r10402  
    451451                zgifl(jpnfl) , zgjfl(jpnfl) , zgkfl(jpnfl)   , STAT=flo_dom_alloc ) 
    452452      ! 
    453       IF( lk_mpp             )   CALL mpp_sum ( 'flodom', flo_dom_alloc ) 
     453      CALL mpp_sum ( 'flodom', flo_dom_alloc ) 
    454454      IF( flo_dom_alloc /= 0 )   CALL ctl_warn('flo_dom_alloc: failed to allocate arrays') 
    455455   END FUNCTION flo_dom_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/florst.F90

    r10297 r10402  
    3939      ALLOCATE( iperproc(jpnij), STAT=flo_rst_alloc ) 
    4040      !   
    41       IF( lk_mpp             )   CALL mpp_sum ( 'florst', flo_rst_alloc ) 
     41      CALL mpp_sum ( 'florst', flo_rst_alloc ) 
    4242      IF( flo_rst_alloc /= 0 )   CALL ctl_warn('flo_rst_alloc: failed to allocate arrays.') 
    4343   END FUNCTION flo_rst_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/flowri.F90

    r10297 r10402  
    5151                zlon(jpnfl) , zlat(jpnfl) , zdep(jpnfl) , STAT=flo_wri_alloc) 
    5252      !   
    53       IF( lk_mpp             )   CALL mpp_sum ( 'flowri', flo_wri_alloc ) 
     53      CALL mpp_sum ( 'flowri', flo_wri_alloc ) 
    5454      IF( flo_wri_alloc /= 0 )   CALL ctl_warn('flo_wri_alloc: failed to allocate arrays.') 
    5555   END FUNCTION flo_wri_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icb_oce.F90

    r10297 r10402  
    190190      icb_alloc = icb_alloc + ill 
    191191 
    192       IF( lk_mpp        )   CALL mpp_sum ( 'icb_oce', icb_alloc ) 
     192      CALL mpp_sum ( 'icb_oce', icb_alloc ) 
    193193      IF( icb_alloc > 0 )   CALL ctl_warn('icb_alloc: allocation of arrays failed') 
    194194      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icbdia.F90

    r10297 r10402  
    436436      IF( kt == nit000 ) THEN 
    437437         stored_start = SUM( berg_grid%stored_ice(:,:,:) ) 
    438          IF( lk_mpp ) CALL mpp_sum( 'icbdia', stored_start ) 
     438         CALL mpp_sum( 'icbdia', stored_start ) 
    439439         WRITE(numicb,'(a,es13.6,a)')   'icb_dia_income: initial stored mass=',stored_start,' kg' 
    440440         ! 
    441441         stored_heat_start = SUM( berg_grid%stored_heat(:,:) ) 
    442          IF( lk_mpp ) CALL mpp_sum( 'icbdia', stored_heat_start ) 
     442         CALL mpp_sum( 'icbdia', stored_heat_start ) 
    443443         WRITE(numicb,'(a,es13.6,a)')    'icb_dia_income: initial stored heat=',stored_heat_start,' J' 
    444444      ENDIF 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icbini.F90

    r10297 r10402  
    335335      ! 
    336336      ibergs = icb_utl_count() 
    337       IF( lk_mpp ) CALL mpp_sum('icbini', ibergs) 
     337      CALL mpp_sum('icbini', ibergs) 
    338338      WRITE(numicb,'(a,i6,a)') 'diamonds, icb_ini_gen: ',ibergs,' were generated' 
    339339      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icbutl.F90

    r10345 r10402  
    661661      ibergs = icb_utl_count() 
    662662      inbergs = ibergs 
    663       IF( lk_mpp )   CALL mpp_sum('icbutl', inbergs) 
     663      CALL mpp_sum('icbutl', inbergs) 
    664664      IF( ibergs > 0 )   WRITE(numicb,'(a," there are",i5," bergs out of",i6," on PE ",i4)')   & 
    665665         &                                  cd_label, ibergs, inbergs, narea 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mpp_allreduce_generic.h90

    r10314 r10402  
    6969      DEALLOCATE(work) 
    7070#else 
    71       WRITE(*,*) 'ROUTINE_ALLREDUCE: You should not have seen this print! error?' 
     71      ! nothing to do if non-mpp case 
     72      RETURN 
    7273#endif 
    7374 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/OBS/obs_readmdt.F90

    r10297 r10402  
    220220      END DO 
    221221 
    222       IF( lk_mpp)   CALL mpp_sum( 'obs_readmdt', zeta1 ) 
    223       IF( lk_mpp)   CALL mpp_sum( 'obs_readmdt', zeta2 ) 
    224       IF( lk_mpp)   CALL mpp_sum( 'obs_readmdt', 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/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/geo2ocean.F90

    r10377 r10402  
    152152         &      gsinv(jpi,jpj), gcosv(jpi,jpj),   &   
    153153         &      gsinf(jpi,jpj), gcosf(jpi,jpj), STAT=ierr ) 
    154       IF(lk_mpp)   CALL mpp_sum( 'geo2ocean', ierr ) 
     154      CALL mpp_sum( 'geo2ocean', ierr ) 
    155155      IF( ierr /= 0 )   CALL ctl_stop( 'angle: unable to allocate arrays' ) 
    156156      ! 
     
    304304         ALLOCATE( gsinlon(jpi,jpj,4) , gcoslon(jpi,jpj,4) ,   & 
    305305            &      gsinlat(jpi,jpj,4) , gcoslat(jpi,jpj,4) , STAT=ierr ) 
    306          IF( lk_mpp    )   CALL mpp_sum( 'geo2ocean', ierr ) 
     306         CALL mpp_sum( 'geo2ocean', ierr ) 
    307307         IF( ierr /= 0 )   CALL ctl_stop('geo2oce: unable to allocate arrays' ) 
    308308      ENDIF 
     
    381381         ALLOCATE( gsinlon(jpi,jpj,4) , gcoslon(jpi,jpj,4) ,   & 
    382382            &      gsinlat(jpi,jpj,4) , gcoslat(jpi,jpj,4) , STAT=ierr ) 
    383          IF( lk_mpp    )   CALL mpp_sum( 'geo2ocean', ierr ) 
     383         CALL mpp_sum( 'geo2ocean', ierr ) 
    384384         IF( ierr /= 0 )   CALL ctl_stop('oce2geo: unable to allocate arrays' ) 
    385385      ENDIF 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbc_ice.F90

    r10297 r10402  
    150150 
    151151      sbc_ice_alloc = MAXVAL( ierr ) 
    152       IF( lk_mpp            )   CALL mpp_sum ( 'sbc_ice', sbc_ice_alloc ) 
     152      CALL mpp_sum ( 'sbc_ice', sbc_ice_alloc ) 
    153153      IF( sbc_ice_alloc > 0 )   CALL ctl_warn('sbc_ice_alloc: allocation of arrays failed') 
    154154   END FUNCTION sbc_ice_alloc 
     
    197197      ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), snwice_fmass(jpi,jpj) , STAT=ierr(1) ) 
    198198      sbc_ice_alloc = MAXVAL( ierr ) 
    199       IF( lk_mpp            )   CALL mpp_sum ( 'sbc_ice', sbc_ice_alloc ) 
     199      CALL mpp_sum ( 'sbc_ice', sbc_ice_alloc ) 
    200200      IF( sbc_ice_alloc > 0 )   CALL ctl_warn('sbc_ice_alloc: allocation of arrays failed') 
    201201   END FUNCTION sbc_ice_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbc_oce.F90

    r10297 r10402  
    186186         ! 
    187187      sbc_oce_alloc = MAXVAL( ierr ) 
    188       IF( lk_mpp            )   CALL mpp_sum ( 'sbc_oce', sbc_oce_alloc ) 
     188      CALL mpp_sum ( 'sbc_oce', sbc_oce_alloc ) 
    189189      IF( sbc_oce_alloc > 0 )   CALL ctl_warn('sbc_oce_alloc: allocation of arrays failed') 
    190190      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcblk.F90

    r10345 r10402  
    147147         &      cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), STAT=sbc_blk_alloc ) 
    148148      ! 
    149       IF( lk_mpp             )   CALL mpp_sum ( 'sbcblk', sbc_blk_alloc ) 
     149      CALL mpp_sum ( 'sbcblk', sbc_blk_alloc ) 
    150150      IF( sbc_blk_alloc /= 0 )   CALL ctl_warn('sbc_blk_alloc: failed to allocate arrays') 
    151151   END FUNCTION sbc_blk_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbccpl.F90

    r10297 r10402  
    224224 
    225225      sbc_cpl_alloc = MAXVAL( ierr ) 
    226       IF( lk_mpp            )   CALL mpp_sum ( 'sbccpl', sbc_cpl_alloc ) 
     226      CALL mpp_sum ( 'sbccpl', sbc_cpl_alloc ) 
    227227      IF( sbc_cpl_alloc > 0 )   CALL ctl_warn('sbc_cpl_alloc: allocation of arrays failed') 
    228228      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcdcy.F90

    r10297 r10402  
    4444            &      rtmd(jpi,jpj) , rdawn(jpi,jpj) , rdusk(jpi,jpj) , rscal(jpi,jpj) , STAT=sbc_dcy_alloc ) 
    4545            ! 
    46          IF( lk_mpp             )   CALL mpp_sum ( 'sbcdcy', sbc_dcy_alloc ) 
     46         CALL mpp_sum ( 'sbcdcy', sbc_dcy_alloc ) 
    4747         IF( sbc_dcy_alloc /= 0 )   CALL ctl_warn('sbc_dcy_alloc: failed to allocate arrays') 
    4848      END FUNCTION sbc_dcy_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcice_cice.F90

    r10297 r10402  
    100100      !!---------------------------------------------------------------------- 
    101101      ALLOCATE( png(jpi,jpj,jpnij), STAT=sbc_ice_cice_alloc ) 
    102       IF( lk_mpp                 )   CALL mpp_sum ( 'sbcice_cice', sbc_ice_cice_alloc ) 
     102      CALL mpp_sum ( 'sbcice_cice', sbc_ice_cice_alloc ) 
    103103      IF( sbc_ice_cice_alloc > 0 )   CALL ctl_warn('sbc_ice_cice_alloc: allocation of arrays failed.') 
    104104   END FUNCTION sbc_ice_cice_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcisf.F90

    r10297 r10402  
    244244               &    STAT= sbc_isf_alloc ) 
    245245         ! 
    246          IF( lk_mpp             )   CALL mpp_sum ( 'sbcisf', sbc_isf_alloc ) 
     246         CALL mpp_sum ( 'sbcisf', sbc_isf_alloc ) 
    247247         IF( sbc_isf_alloc /= 0 )   CALL ctl_warn('sbc_isf_alloc: failed to allocate arrays.') 
    248248         ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcrnf.F90

    r10380 r10402  
    8383         &      rnf_tsc_b(jpi,jpj,jpts) , rnf_tsc (jpi,jpj,jpts) , STAT=sbc_rnf_alloc ) 
    8484         ! 
    85       IF( lk_mpp            )   CALL mpp_sum ( 'sbcrnf', sbc_rnf_alloc ) 
     85      CALL mpp_sum ( 'sbcrnf', sbc_rnf_alloc ) 
    8686      IF( sbc_rnf_alloc > 0 )   CALL ctl_warn('sbc_rnf_alloc: allocation of arrays failed') 
    8787   END FUNCTION sbc_rnf_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA/trabbl.F90

    r10297 r10402  
    8484         &      e3u_bbl_0(jpi,jpj) , e3v_bbl_0(jpi,jpj) ,                                    STAT=tra_bbl_alloc ) 
    8585         ! 
    86       IF( lk_mpp            )   CALL mpp_sum ( 'trabbl', tra_bbl_alloc ) 
     86      CALL mpp_sum ( 'trabbl', tra_bbl_alloc ) 
    8787      IF( tra_bbl_alloc > 0 )   CALL ctl_warn('tra_bbl_alloc: allocation of arrays failed.') 
    8888   END FUNCTION tra_bbl_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA/tradmp.F90

    r10368 r10402  
    6666      ALLOCATE( resto(jpi,jpj,jpk), STAT= tra_dmp_alloc ) 
    6767      ! 
    68       IF( lk_mpp            )   CALL mpp_sum ( 'tradmp', tra_dmp_alloc ) 
     68      CALL mpp_sum ( 'tradmp', tra_dmp_alloc ) 
    6969      IF( tra_dmp_alloc > 0 )   CALL ctl_warn('tra_dmp_alloc: allocation of arrays failed') 
    7070      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA/traldf_triad.F90

    r10297 r10402  
    9898      IF( .NOT.ALLOCATED(zdkt3d) )  THEN 
    9999         ALLOCATE( zdkt3d(jpi,jpj,0:1) , STAT=ierr ) 
    100          IF( lk_mpp   )   CALL mpp_sum ( 'traldf_triad', ierr ) 
     100         CALL mpp_sum ( 'traldf_triad', ierr ) 
    101101         IF( ierr > 0 )   CALL ctl_stop('STOP', 'tra_ldf_triad: unable to allocate arrays') 
    102102      ENDIF 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdglo.F90

    r10297 r10402  
    526526         tvolt = tvolt + SUM( e1e2t(:,:) * e3t_n(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) ) 
    527527      END DO 
    528       IF( lk_mpp )   CALL mpp_sum( 'trdglo', tvolt )   ! sum over the global domain 
     528      CALL mpp_sum( 'trdglo', tvolt )   ! sum over the global domain 
    529529 
    530530      IF(lwp) WRITE(numout,*) '                total ocean volume at T-point   tvolt = ',tvolt 
     
    546546         END DO 
    547547      END DO 
    548       IF( lk_mpp )   CALL mpp_sum( 'trdglo', tvolu )   ! sums over the global domain 
    549       IF( lk_mpp )   CALL mpp_sum( 'trdglo', tvolv ) 
     548      CALL mpp_sum( 'trdglo', tvolu )   ! sums over the global domain 
     549      CALL mpp_sum( 'trdglo', tvolv ) 
    550550 
    551551      IF(lwp) THEN 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdken.F90

    r10297 r10402  
    5454      ALLOCATE( bu(jpi,jpj,jpk) , bv(jpi,jpj,jpk) , r1_bt(jpi,jpj,jpk) , STAT= trd_ken_alloc ) 
    5555      ! 
    56       IF( lk_mpp             )   CALL mpp_sum ( 'trdken', trd_ken_alloc ) 
     56      CALL mpp_sum ( 'trdken', trd_ken_alloc ) 
    5757      IF( trd_ken_alloc /= 0 )   CALL ctl_warn('trd_ken_alloc: failed to allocate arrays') 
    5858   END FUNCTION trd_ken_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdmxl.F90

    r10297 r10402  
    8181      ALLOCATE( ndextrd1(jpi*jpj) , STAT=trd_mxl_alloc ) 
    8282      ! 
    83       IF( lk_mpp             )   CALL mpp_sum ( 'trdmxl', trd_mxl_alloc ) 
     83      CALL mpp_sum ( 'trdmxl', trd_mxl_alloc ) 
    8484      IF( trd_mxl_alloc /= 0 )   CALL ctl_warn('trd_mxl_alloc: failed to allocate array ndextrd1') 
    8585   END FUNCTION trd_mxl_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdmxl_oce.F90

    r10297 r10402  
    127127      ! 
    128128      trdmxl_oce_alloc = MAXVAL( ierr ) 
    129       IF( lk_mpp                )   CALL mpp_sum ( 'trdmxl_oce', trdmxl_oce_alloc ) 
     129      CALL mpp_sum ( 'trdmxl_oce', trdmxl_oce_alloc ) 
    130130      IF( trdmxl_oce_alloc /= 0 )   CALL ctl_warn('trdmxl_oce_alloc: failed to allocate arrays') 
    131131      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdpen.F90

    r10297 r10402  
    5050      ALLOCATE( rab_pe(jpi,jpj,jpk,jpts) , STAT= trd_pen_alloc ) 
    5151      ! 
    52       IF( lk_mpp             )   CALL mpp_sum ( 'trdpen', trd_pen_alloc ) 
     52      CALL mpp_sum ( 'trdpen', trd_pen_alloc ) 
    5353      IF( trd_pen_alloc /= 0 )   CALL ctl_warn( 'trd_pen_alloc: failed to allocate arrays' ) 
    5454   END FUNCTION trd_pen_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdtra.F90

    r10297 r10402  
    5555      ALLOCATE( trdtx(jpi,jpj,jpk) , trdty(jpi,jpj,jpk) , trdt(jpi,jpj,jpk) , avt_evd(jpi,jpj,jpk), STAT= trd_tra_alloc ) 
    5656      ! 
    57       IF( lk_mpp             )   CALL mpp_sum ( 'trdtra', trd_tra_alloc ) 
     57      CALL mpp_sum ( 'trdtra', trd_tra_alloc ) 
    5858      IF( trd_tra_alloc /= 0 )   CALL ctl_warn('trd_tra_alloc: failed to allocate arrays') 
    5959   END FUNCTION trd_tra_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdvor.F90

    r10297 r10402  
    7373         &      ndexvor1  (jpi*jpj)                                ,   STAT= trd_vor_alloc ) 
    7474         ! 
    75       IF( lk_mpp             )   CALL mpp_sum ( 'trdvor', trd_vor_alloc ) 
     75      CALL mpp_sum ( 'trdvor', trd_vor_alloc ) 
    7676      IF( trd_vor_alloc /= 0 )   CALL ctl_warn('trd_vor_alloc: failed to allocate arrays') 
    7777   END FUNCTION trd_vor_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfgls.F90

    r10345 r10402  
    119119         &      zwall (jpi,jpj,jpk) , ustar2_top (jpi,jpj) , ustar2_bot(jpi,jpj) , STAT= zdf_gls_alloc ) 
    120120         ! 
    121       IF( lk_mpp             )   CALL mpp_sum ( 'zdfgls', zdf_gls_alloc ) 
     121      CALL mpp_sum ( 'zdfgls', zdf_gls_alloc ) 
    122122      IF( zdf_gls_alloc /= 0 )   CALL ctl_warn('zdf_gls_alloc: failed to allocate arrays') 
    123123   END FUNCTION zdf_gls_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfiwm.F90

    r10336 r10402  
    6464      &         hbot_iwm(jpi,jpj),  hcri_iwm(jpi,jpj)                     , STAT=zdf_iwm_alloc ) 
    6565      ! 
    66       IF( lk_mpp             )   CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc ) 
     66      CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc ) 
    6767      IF( zdf_iwm_alloc /= 0 )   CALL ctl_warn('zdf_iwm_alloc: failed to allocate arrays') 
    6868   END FUNCTION zdf_iwm_alloc 
     
    319319            END DO 
    320320         END DO 
    321          IF( lk_mpp )   CALL mpp_sum( 'zdfiwm', zztmp ) 
     321         CALL mpp_sum( 'zdfiwm', zztmp ) 
    322322         zztmp = rau0 * zztmp ! Global integral of rauo * Kz * N^2 = power contributing to mixing  
    323323         ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfmxl.F90

    r10368 r10402  
    5050         ALLOCATE( nmln(jpi,jpj), hmld(jpi,jpj), hmlp(jpi,jpj), hmlpt(jpi,jpj), STAT= zdf_mxl_alloc ) 
    5151         ! 
    52          IF( lk_mpp             )   CALL mpp_sum ( 'zdfmxl', zdf_mxl_alloc ) 
     52         CALL mpp_sum ( 'zdfmxl', zdf_mxl_alloc ) 
    5353         IF( zdf_mxl_alloc /= 0 )   CALL ctl_warn('zdf_mxl_alloc: failed to allocate arrays.') 
    5454         ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfosm.F90

    r10368 r10402  
    118118          &   etmean(jpi,jpj,jpk),  STAT= zdf_osm_alloc ) 
    119119     IF( zdf_osm_alloc /= 0 )   CALL ctl_warn('zdf_osm_alloc: failed to allocate zdf_osm arrays') 
    120      IF( lk_mpp             )   CALL mpp_sum ( 'zdfosm', zdf_osm_alloc ) 
     120     CALL mpp_sum ( 'zdfosm', zdf_osm_alloc ) 
    121121   END FUNCTION zdf_osm_alloc 
    122122 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfphy.F90

    r10368 r10402  
    331331     ALLOCATE(     wi(jpi,jpj,jpk), Cu_adv(jpi,jpj,jpk),  STAT= zdf_phy_alloc ) 
    332332     IF( zdf_phy_alloc /= 0 )   CALL ctl_warn('zdf_phy_alloc: failed to allocate ln_zad_Aimp=T required arrays') 
    333      IF( lk_mpp             )   CALL mpp_sum ( 'zdfphy', zdf_phy_alloc ) 
     333     CALL mpp_sum ( 'zdfphy', zdf_phy_alloc ) 
    334334   END FUNCTION zdf_phy_alloc 
    335335 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdftke.F90

    r10336 r10402  
    103103      ALLOCATE( htau(jpi,jpj) , dissl(jpi,jpj,jpk) , apdlr(jpi,jpj,jpk) ,   STAT= zdf_tke_alloc ) 
    104104      ! 
    105       IF( lk_mpp             )   CALL mpp_sum ( 'zdftke', zdf_tke_alloc ) 
     105      CALL mpp_sum ( 'zdftke', zdf_tke_alloc ) 
    106106      IF( zdf_tke_alloc /= 0 )   CALL ctl_warn('zdf_tke_alloc: failed to allocate arrays') 
    107107      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/lib_fortran_generic.h90

    r10397 r10402  
    6060        END DO 
    6161      END DO 
    62       IF( lk_mpp )   CALL mpp_sum( cdname, ctmp )   ! sum over the global domain 
     62      CALL mpp_sum( cdname, ctmp )   ! sum over the global domain 
    6363      FUNCTION_GLOBSUM = REAL(ctmp,wp) 
    6464 
     
    122122      ENDDO 
    123123 
    124       IF( lk_mpp ) CALL MPP_OPERATION( cdname, ztmp) 
     124      CALL MPP_OPERATION( cdname, ztmp) 
    125125 
    126126      FUNCTION_GLOBMINMAX = ztmp 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/module_example

    r10297 r10402  
    6363      ALLOCATE( array(jpi,jpj,jpk) , STAT= exa_mpl_alloc )   ! Module array                                                                 
    6464      ! 
    65       IF( lk_mpp             )   CALL mpp_sum ( 'module_example', exa_mpl_alloc ) 
     65      CALL mpp_sum ( 'module_example', exa_mpl_alloc ) 
    6666      IF( exa_mpl_alloc /= 0 )   CALL ctl_warn('exa_mpl_alloc: failed to allocate arrays') 
    6767      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/nemogcm.F90

    r10368 r10402  
    148148      ! check that all process are still there... If some process have an error, 
    149149      ! they will never enter in step and other processes will wait until the end of the cpu time! 
    150       IF( lk_mpp )   CALL mpp_max( 'nemogcm', nstop ) 
     150      CALL mpp_max( 'nemogcm', nstop ) 
    151151 
    152152      IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
     
    625625#endif  
    626626      ! 
    627       IF( lk_mpp    )   CALL mpp_sum( 'nemogcm', ierr ) 
     627      CALL mpp_sum( 'nemogcm', ierr ) 
    628628      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 
    629629      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/timing.F90

    r10300 r10402  
    320320      END DO 
    321321      idum = nsize 
    322       IF(lk_mpp) CALL mpp_sum('timing', idum) 
     322      CALL mpp_sum('timing', idum) 
    323323      IF( idum/jpnij /= nsize ) THEN 
    324324         IF( lwriter ) WRITE(numtime,*) '        ===> W A R N I N G: ' 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OFF/nemogcm.F90

    r10358 r10402  
    9595      ! check that all process are still there... If some process have an error, 
    9696      ! they will never enter in step and other processes will wait until the end of the cpu time! 
    97       IF( lk_mpp )   CALL mpp_max( 'nemogcm', nstop ) 
     97      CALL mpp_max( 'nemogcm', nstop ) 
    9898 
    9999      !                            !-----------------------! 
     
    441441      ierr = ierr + trc_oce_alloc()          ! shared TRC / TRA arrays 
    442442      ! 
    443       IF( lk_mpp    )   CALL mpp_sum( 'nemogcm', ierr ) 
     443      CALL mpp_sum( 'nemogcm', ierr ) 
    444444      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 
    445445      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAO/nemogcm.F90

    r10297 r10402  
    372372      ierr = ierr + dom_oce_alloc   ()          ! ocean domain 
    373373      ! 
    374       IF( lk_mpp    )   CALL mpp_sum( 'nemogcm', ierr ) 
     374      CALL mpp_sum( 'nemogcm', ierr ) 
    375375      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'nemo_alloc : unable to allocate standard ocean arrays' ) 
    376376      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/diawri.F90

    r10380 r10402  
    110110      ! 
    111111      ALLOCATE( ndex_hT(jpi*jpj), ndex_hU(jpi*jpj), ndex_hV(jpi*jpj), STAT=dia_wri_alloc ) 
    112       IF( lk_mpp )   CALL mpp_sum( 'diawri', dia_wri_alloc ) 
     112      CALL mpp_sum( 'diawri', dia_wri_alloc ) 
    113113      ! 
    114114   END FUNCTION dia_wri_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/nemogcm.F90

    r10297 r10402  
    9494      ! check that all process are still there... If some process have an error, 
    9595      ! they will never enter in step and other processes will wait until the end of the cpu time! 
    96       IF( lk_mpp )   CALL mpp_max( 'nemogcm', nstop ) 
     96      CALL mpp_max( 'nemogcm', nstop ) 
    9797 
    9898      IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
     
    486486      ierr = ierr + bdy_oce_alloc()          ! bdy masks (incl. initialization) 
    487487      ! 
    488       IF( lk_mpp    )   CALL mpp_sum( 'nemogcm', ierr ) 
     488      CALL mpp_sum( 'nemogcm', ierr ) 
    489489      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 
    490490      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/stpctl.F90

    r10358 r10402  
    9191         zmax(2) = MAXVAL( ABS( u_ice(:,:) ) )                                         ! max ice velocity (zonal only) 
    9292         zmax(3) = MAXVAL(     -tm_i (:,:)+273.15_wp , mask = ssmask(:,:) == 1._wp )   ! min ice temperature 
    93          IF( lk_mpp ) CALL mpp_max( "stpctl", zmax )                                   ! max over the global domain 
     93         CALL mpp_max( "stpctl", zmax )                                   ! max over the global domain 
    9494      END IF 
    9595      !                                            !==  run statistics  ==!   ("run.stat" file) 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcini_pisces.F90

    r10368 r10402  
    118118      ierr = ierr +  p4z_rem_alloc() 
    119119      ! 
    120       IF( lk_mpp    )   CALL mpp_sum( 'trcini_pisces', ierr ) 
     120      CALL mpp_sum( 'trcini_pisces', ierr ) 
    121121      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'pisces_alloc: unable to allocate PISCES arrays' ) 
    122122      ! 
     
    313313      ierr = ierr + p2z_exp_alloc() 
    314314      ! 
    315       IF( lk_mpp    )   CALL mpp_sum( 'trcini_pisces', ierr ) 
     315      CALL mpp_sum( 'trcini_pisces', ierr ) 
    316316      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'p2z_ini: unable to allocate LOBSTER arrays' ) 
    317317 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/TRP/trdmxl_trc.F90

    r10297 r10402  
    6464         &      ndextrd1(jpi*jpj), nidtrd(jptra), nh_t(jptra),  STAT=trd_mxl_trc_alloc) 
    6565         ! 
    66       IF( lk_mpp                )   CALL mpp_sum ( 'trdmxl_trc', trd_mxl_trc_alloc ) 
     66      CALL mpp_sum ( 'trdmxl_trc', trd_mxl_trc_alloc ) 
    6767      IF( trd_mxl_trc_alloc /=0 )   CALL ctl_warn('trd_mxl_trc_alloc: failed to allocate arrays') 
    6868      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/trcini.F90

    r10377 r10402  
    292292#endif 
    293293      ! 
    294       IF( lk_mpp    )   CALL mpp_sum( 'trcini', ierr ) 
     294      CALL mpp_sum( 'trcini', ierr ) 
    295295      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'top_alloc : unable to allocate standard ocean arrays' ) 
    296296      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/trcsub.F90

    r10297 r10402  
    308308 
    309309      ierr =  trc_sub_alloc    () 
    310       IF( lk_mpp    )   CALL mpp_sum( 'trcsub', ierr ) 
     310      CALL mpp_sum( 'trcsub', ierr ) 
    311311      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'top_sub_alloc : unable to allocate standard ocean arrays' ) 
    312312 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/zdfiwm.F90

    r10314 r10402  
    6464      &         hbot_iwm(jpi,jpj),  hcri_iwm(jpi,jpj)                     , STAT=zdf_iwm_alloc ) 
    6565      ! 
    66       IF( lk_mpp             )   CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc ) 
     66      CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc ) 
    6767      IF( zdf_iwm_alloc /= 0 )   CALL ctl_warn('zdf_iwm_alloc: failed to allocate arrays') 
    6868   END FUNCTION zdf_iwm_alloc 
     
    305305            END DO 
    306306         END DO 
    307          IF( lk_mpp )   CALL mpp_sum( 'zdfiwm', zztmp ) 
     307         CALL mpp_sum( 'zdfiwm', zztmp ) 
    308308         zztmp = rau0 * zztmp ! Global integral of rauo * Kz * N^2 = power contributing to mixing  
    309309         ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/diawri.F90

    r10358 r10402  
    516516         ! 
    517517      dia_wri_alloc = MAXVAL(ierr) 
    518       IF( lk_mpp )   CALL mpp_sum( 'diawri', dia_wri_alloc ) 
     518      CALL mpp_sum( 'diawri', dia_wri_alloc ) 
    519519      ! 
    520520   END FUNCTION dia_wri_alloc 
     
    625625            !! that routine is called from nemogcm, so do it here immediately before its needed 
    626626            ALLOCATE( ndex_bT(jpi*jpj*nclasses), STAT=ierror ) 
    627             IF( lk_mpp )   CALL mpp_sum( 'diawri', ierror ) 
     627            CALL mpp_sum( 'diawri', ierror ) 
    628628            IF( ierror /= 0 ) THEN 
    629629               CALL ctl_stop('dia_wri: failed to allocate iceberg diagnostic array') 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/domvvl.F90

    r10369 r10402  
    7979            &      dtilde_e3t_a(jpi,jpj,jpk) , un_td  (jpi,jpj,jpk)     , vn_td  (jpi,jpj,jpk)     ,   & 
    8080            &      STAT = dom_vvl_alloc        ) 
    81          IF( lk_mpp             )   CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
     81         CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
    8282         IF( dom_vvl_alloc /= 0 )   CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 
    8383         un_td = 0._wp 
     
    8686      IF( ln_vvl_ztilde ) THEN 
    8787         ALLOCATE( frq_rst_e3t(jpi,jpj) , frq_rst_hdv(jpi,jpj) , hdiv_lf(jpi,jpj,jpk) , STAT= dom_vvl_alloc ) 
    88          IF( lk_mpp             )   CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
     88         CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
    8989         IF( dom_vvl_alloc /= 0 )   CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 
    9090      ENDIF 
     
    431431         END DO 
    432432         z_tmax = MAXVAL( ze3t(:,:,:) ) 
    433          IF( lk_mpp )   CALL mpp_max( 'domvvl', z_tmax )                 ! max over the global domain 
     433         CALL mpp_max( 'domvvl', z_tmax )                 ! max over the global domain 
    434434         z_tmin = MINVAL( ze3t(:,:,:) ) 
    435          IF( lk_mpp )   CALL mpp_min( 'domvvl', z_tmin )                 ! min over the global domain 
     435         CALL mpp_min( 'domvvl', z_tmin )                 ! min over the global domain 
    436436         ! - ML - test: for the moment, stop simulation for too large e3_t variations 
    437437         IF( ( z_tmax >  rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN 
     
    495495         IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 
    496496            z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 
    497             IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                             ! max over the global domain 
     497            CALL mpp_max( 'domvvl', z_tmax )                             ! max over the global domain 
    498498            IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(SUM(tilde_e3t_a))) =', z_tmax 
    499499         END IF 
     
    504504         END DO 
    505505         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshn(:,:) - zht(:,:) ) ) 
    506          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     506         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    507507         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshn-SUM(e3t_n))) =', z_tmax 
    508508         ! 
     
    512512         END DO 
    513513         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + ssha(:,:) - zht(:,:) ) ) 
    514          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     514         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    515515         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+ssha-SUM(e3t_a))) =', z_tmax 
    516516         ! 
     
    520520         END DO 
    521521         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshb(:,:) - zht(:,:) ) ) 
    522          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     522         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    523523         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshb-SUM(e3t_b))) =', z_tmax 
    524524         ! 
    525525         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( sshb(:,:) ) ) 
    526          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     526         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    527527         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(sshb))) =', z_tmax 
    528528         ! 
    529529         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( sshn(:,:) ) ) 
    530          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     530         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    531531         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(sshn))) =', z_tmax 
    532532         ! 
    533533         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( ssha(:,:) ) ) 
    534          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     534         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    535535         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 
    536536      END IF 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/usrdef_zgr.F90

    r10297 r10402  
    198198      CASE(1) 
    199199         zmaxlam = MAXVAL(glamt) 
    200          IF( lk_mpp )   CALL mpp_max( 'usrdef_zgr', zmaxlam )                 ! max over the global domain 
     200         CALL mpp_max( 'usrdef_zgr', zmaxlam )                 ! max over the global domain 
    201201         zscl = rpi / zmaxlam 
    202202         z2d(:,:) = 0.5 * ( 1. - COS( glamt(:,:) * zscl ) ) 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/VORTEX/MY_SRC/domvvl.F90

    r10369 r10402  
    7979            &      dtilde_e3t_a(jpi,jpj,jpk) , un_td  (jpi,jpj,jpk)     , vn_td  (jpi,jpj,jpk)     ,   & 
    8080            &      STAT = dom_vvl_alloc        ) 
    81          IF( lk_mpp             )   CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
     81         CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
    8282         IF( dom_vvl_alloc /= 0 )   CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 
    8383         un_td = 0._wp 
     
    8686      IF( ln_vvl_ztilde ) THEN 
    8787         ALLOCATE( frq_rst_e3t(jpi,jpj) , frq_rst_hdv(jpi,jpj) , hdiv_lf(jpi,jpj,jpk) , STAT= dom_vvl_alloc ) 
    88          IF( lk_mpp             )   CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
     88         CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 
    8989         IF( dom_vvl_alloc /= 0 )   CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 
    9090      ENDIF 
     
    431431         END DO 
    432432         z_tmax = MAXVAL( ze3t(:,:,:) ) 
    433          IF( lk_mpp )   CALL mpp_max( 'domvvl', z_tmax )                 ! max over the global domain 
     433         CALL mpp_max( 'domvvl', z_tmax )                 ! max over the global domain 
    434434         z_tmin = MINVAL( ze3t(:,:,:) ) 
    435          IF( lk_mpp )   CALL mpp_min( 'domvvl', z_tmin )                 ! min over the global domain 
     435         CALL mpp_min( 'domvvl', z_tmin )                 ! min over the global domain 
    436436         ! - ML - test: for the moment, stop simulation for too large e3_t variations 
    437437         IF( ( z_tmax >  rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN 
     
    495495         IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 
    496496            z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 
    497             IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                             ! max over the global domain 
     497            CALL mpp_max( 'domvvl', z_tmax )                             ! max over the global domain 
    498498            IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(SUM(tilde_e3t_a))) =', z_tmax 
    499499         END IF 
     
    504504         END DO 
    505505         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshn(:,:) - zht(:,:) ) ) 
    506          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     506         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    507507         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshn-SUM(e3t_n))) =', z_tmax 
    508508         ! 
     
    512512         END DO 
    513513         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + ssha(:,:) - zht(:,:) ) ) 
    514          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     514         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    515515         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+ssha-SUM(e3t_a))) =', z_tmax 
    516516         ! 
     
    520520         END DO 
    521521         z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshb(:,:) - zht(:,:) ) ) 
    522          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     522         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    523523         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshb-SUM(e3t_b))) =', z_tmax 
    524524         ! 
    525525         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( sshb(:,:) ) ) 
    526          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     526         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    527527         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(sshb))) =', z_tmax 
    528528         ! 
    529529         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( sshn(:,:) ) ) 
    530          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     530         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    531531         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(sshn))) =', z_tmax 
    532532         ! 
    533533         z_tmax = MAXVAL( tmask(:,:,1) *  ABS( ssha(:,:) ) ) 
    534          IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
     534         CALL mpp_max( 'domvvl', z_tmax )                                ! max over the global domain 
    535535         IF( lwp    ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 
    536536      END IF 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/WAD/MY_SRC/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.