Changeset 10402
- Timestamp:
- 2018-12-17T17:07:54+01:00 (4 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE
- Files:
-
- 76 edited
-
src/ICE/icedia.F90 (modified) (1 diff)
-
src/ICE/icedyn_adv_pra.F90 (modified) (2 diffs)
-
src/ICE/icedyn_rdgrft.F90 (modified) (1 diff)
-
src/ICE/icedyn_rhg_evp.F90 (modified) (1 diff)
-
src/ICE/icestp.F90 (modified) (1 diff)
-
src/ICE/iceupdate.F90 (modified) (1 diff)
-
src/NST/agrif_user.F90 (modified) (1 diff)
-
src/OCE/BDY/bdy_oce.F90 (modified) (1 diff)
-
src/OCE/BDY/bdyini.F90 (modified) (5 diffs)
-
src/OCE/BDY/bdyvol.F90 (modified) (3 diffs)
-
src/OCE/C1D/dyndmp.F90 (modified) (1 diff)
-
src/OCE/DIA/diaar5.F90 (modified) (6 diffs)
-
src/OCE/DIA/diahth.F90 (modified) (2 diffs)
-
src/OCE/DIA/diaptr.F90 (modified) (2 diffs)
-
src/OCE/DIA/diawri.F90 (modified) (2 diffs)
-
src/OCE/DOM/closea.F90 (modified) (3 diffs)
-
src/OCE/DOM/domvvl.F90 (modified) (7 diffs)
-
src/OCE/DOM/domwri.F90 (modified) (1 diff)
-
src/OCE/DOM/iscplini.F90 (modified) (1 diff)
-
src/OCE/DYN/dynspg_ts.F90 (modified) (2 diffs)
-
src/OCE/DYN/wet_dry.F90 (modified) (2 diffs)
-
src/OCE/FLO/flo_oce.F90 (modified) (1 diff)
-
src/OCE/FLO/floblk.F90 (modified) (1 diff)
-
src/OCE/FLO/flodom.F90 (modified) (1 diff)
-
src/OCE/FLO/florst.F90 (modified) (1 diff)
-
src/OCE/FLO/flowri.F90 (modified) (1 diff)
-
src/OCE/ICB/icb_oce.F90 (modified) (1 diff)
-
src/OCE/ICB/icbdia.F90 (modified) (1 diff)
-
src/OCE/ICB/icbini.F90 (modified) (1 diff)
-
src/OCE/ICB/icbutl.F90 (modified) (1 diff)
-
src/OCE/LBC/mpp_allreduce_generic.h90 (modified) (1 diff)
-
src/OCE/OBS/obs_readmdt.F90 (modified) (1 diff)
-
src/OCE/SBC/geo2ocean.F90 (modified) (3 diffs)
-
src/OCE/SBC/sbc_ice.F90 (modified) (2 diffs)
-
src/OCE/SBC/sbc_oce.F90 (modified) (1 diff)
-
src/OCE/SBC/sbcblk.F90 (modified) (1 diff)
-
src/OCE/SBC/sbccpl.F90 (modified) (1 diff)
-
src/OCE/SBC/sbcdcy.F90 (modified) (1 diff)
-
src/OCE/SBC/sbcice_cice.F90 (modified) (1 diff)
-
src/OCE/SBC/sbcisf.F90 (modified) (1 diff)
-
src/OCE/SBC/sbcrnf.F90 (modified) (1 diff)
-
src/OCE/TRA/trabbl.F90 (modified) (1 diff)
-
src/OCE/TRA/tradmp.F90 (modified) (1 diff)
-
src/OCE/TRA/traldf_triad.F90 (modified) (1 diff)
-
src/OCE/TRD/trdglo.F90 (modified) (2 diffs)
-
src/OCE/TRD/trdken.F90 (modified) (1 diff)
-
src/OCE/TRD/trdmxl.F90 (modified) (1 diff)
-
src/OCE/TRD/trdmxl_oce.F90 (modified) (1 diff)
-
src/OCE/TRD/trdpen.F90 (modified) (1 diff)
-
src/OCE/TRD/trdtra.F90 (modified) (1 diff)
-
src/OCE/TRD/trdvor.F90 (modified) (1 diff)
-
src/OCE/ZDF/zdfgls.F90 (modified) (1 diff)
-
src/OCE/ZDF/zdfiwm.F90 (modified) (2 diffs)
-
src/OCE/ZDF/zdfmxl.F90 (modified) (1 diff)
-
src/OCE/ZDF/zdfosm.F90 (modified) (1 diff)
-
src/OCE/ZDF/zdfphy.F90 (modified) (1 diff)
-
src/OCE/ZDF/zdftke.F90 (modified) (1 diff)
-
src/OCE/lib_fortran_generic.h90 (modified) (2 diffs)
-
src/OCE/module_example (modified) (1 diff)
-
src/OCE/nemogcm.F90 (modified) (2 diffs)
-
src/OCE/timing.F90 (modified) (1 diff)
-
src/OFF/nemogcm.F90 (modified) (2 diffs)
-
src/SAO/nemogcm.F90 (modified) (1 diff)
-
src/SAS/diawri.F90 (modified) (1 diff)
-
src/SAS/nemogcm.F90 (modified) (2 diffs)
-
src/SAS/stpctl.F90 (modified) (1 diff)
-
src/TOP/PISCES/trcini_pisces.F90 (modified) (2 diffs)
-
src/TOP/TRP/trdmxl_trc.F90 (modified) (1 diff)
-
src/TOP/trcini.F90 (modified) (1 diff)
-
src/TOP/trcsub.F90 (modified) (1 diff)
-
tests/BENCH/MY_SRC/zdfiwm.F90 (modified) (2 diffs)
-
tests/CANAL/MY_SRC/diawri.F90 (modified) (2 diffs)
-
tests/CANAL/MY_SRC/domvvl.F90 (modified) (7 diffs)
-
tests/CANAL/MY_SRC/usrdef_zgr.F90 (modified) (1 diff)
-
tests/VORTEX/MY_SRC/domvvl.F90 (modified) (7 diffs)
-
tests/WAD/MY_SRC/bdyini.F90 (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedia.F90
r10314 r10402 52 52 ALLOCATE( vol_loc_ini(jpi,jpj), sal_loc_ini(jpi,jpj), tem_loc_ini(jpi,jpj), STAT=ice_dia_alloc ) 53 53 54 IF( lk_mpp )CALL mpp_sum ( 'icedia', ice_dia_alloc )54 CALL mpp_sum ( 'icedia', ice_dia_alloc ) 55 55 IF( ice_dia_alloc /= 0 ) CALL ctl_warn( 'ice_dia_alloc: failed to allocate arrays' ) 56 56 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_pra.F90
r10297 r10402 101 101 zcfl = MAXVAL( ABS( pu_ice(:,:) ) * rdt_ice * r1_e1u(:,:) ) 102 102 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 ) 104 104 105 105 IF( zcfl > 0.5 ) THEN ; initad = 2 ; zusnit = 0.5_wp … … 640 640 & STAT = ierr ) 641 641 ! 642 IF( lk_mpp )CALL mpp_sum( 'icedyn_adv_pra', ierr )642 CALL mpp_sum( 'icedyn_adv_pra', ierr ) 643 643 IF( ierr /= 0 ) CALL ctl_stop('STOP', 'adv_pra_init : unable to allocate ice arrays for Prather advection scheme') 644 644 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rdgrft.F90
r10297 r10402 92 92 & ze_i_2d(jpij,nlay_i,jpl), ze_s_2d(jpij,nlay_s,jpl), STAT=ice_dyn_rdgrft_alloc ) 93 93 94 IF( lk_mpp )CALL mpp_sum ( 'icedyn_rdgrft', ice_dyn_rdgrft_alloc )94 CALL mpp_sum ( 'icedyn_rdgrft', ice_dyn_rdgrft_alloc ) 95 95 IF( ice_dyn_rdgrft_alloc /= 0 ) CALL ctl_warn( 'ice_dyn_rdgrft_alloc: failed to allocate arrays' ) 96 96 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rhg_evp.F90
r10386 r10402 644 644 !!$ END DO 645 645 !!$ zresm = MAXVAL( zresr( 1:jpi, 2:jpjm1 ) ) 646 !!$ IF( lk_mpp )CALL mpp_max( 'icedyn_rhg_evp', zresm ) ! max over the global domain646 !!$ CALL mpp_max( 'icedyn_rhg_evp', zresm ) ! max over the global domain 647 647 !!$ ENDIF 648 648 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icestp.F90
r10297 r10402 248 248 ierr = ierr + ice1D_alloc () ! thermodynamics 249 249 ! 250 IF( lk_mpp )CALL mpp_sum( 'icestp', ierr )250 CALL mpp_sum( 'icestp', ierr ) 251 251 IF( ierr /= 0 ) CALL ctl_stop('STOP', 'ice_init : unable to allocate ice arrays') 252 252 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/iceupdate.F90
r10297 r10402 59 59 ALLOCATE( utau_oce(jpi,jpj), vtau_oce(jpi,jpj), tmod_io(jpi,jpj), STAT=ice_update_alloc ) 60 60 ! 61 IF( lk_mpp )CALL mpp_sum( 'iceupdate', ice_update_alloc )61 CALL mpp_sum( 'iceupdate', ice_update_alloc ) 62 62 IF( ice_update_alloc /= 0 ) CALL ctl_warn('ice_update_alloc: failed to allocate arrays') 63 63 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/NST/agrif_user.F90
r10297 r10402 280 280 CALL Agrif_Bc_variable(e3t_id,calledweight=1.,procname=interpe3t) 281 281 ! 282 IF (lk_mpp)CALL mpp_sum( 'agrif_user', kindic_agr )282 CALL mpp_sum( 'agrif_user', kindic_agr ) 283 283 IF( kindic_agr /= 0 ) THEN 284 284 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 161 161 bdyvmask(:,:) = 1._wp 162 162 ! 163 IF( lk_mpp )CALL mpp_sum ( 'bdy_oce', bdy_oce_alloc )163 CALL mpp_sum ( 'bdy_oce', bdy_oce_alloc ) 164 164 IF( bdy_oce_alloc /= 0 ) CALL ctl_warn('bdy_oce_alloc: failed to allocate arrays.') 165 165 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdyini.F90
r10297 r10402 1280 1280 END DO 1281 1281 ! 1282 IF( lk_mpp )CALL mpp_sum( 'bdyini', bdysurftot ) ! sum over the global domain1282 CALL mpp_sum( 'bdyini', bdysurftot ) ! sum over the global domain 1283 1283 END IF 1284 1284 ! … … 1520 1520 END DO 1521 1521 END DO 1522 IF( lk_mpp )CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain1522 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1523 1523 1524 1524 IF (ztestmask(1)==1) THEN … … 1564 1564 END DO 1565 1565 END DO 1566 IF( lk_mpp )CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain1566 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1567 1567 1568 1568 IF (ztestmask(1)==1) THEN … … 1608 1608 END DO 1609 1609 END DO 1610 IF( lk_mpp )CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain1610 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1611 1611 1612 1612 IF ((ztestmask(1)==1).AND.(icorns(ib,1)==0)) THEN … … 1638 1638 END DO 1639 1639 END DO 1640 IF( lk_mpp )CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain1640 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1641 1641 1642 1642 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 85 85 !!gm replace these lines : 86 86 z_cflxemp = SUM ( ( emp(:,:) - rnf(:,:) + fwfisf(:,:) ) * bdytmask(:,:) * e1e2t(:,:) ) / rau0 87 IF( lk_mpp )CALL mpp_sum( 'bdyvol', z_cflxemp ) ! sum over the global domain87 CALL mpp_sum( 'bdyvol', z_cflxemp ) ! sum over the global domain 88 88 !!gm by : 89 89 !!gm z_cflxemp = glob_sum( 'bdyvol', ( emp(:,:)-rnf(:,:)+fwfisf(:,:) ) * bdytmask(:,:) * e1e2t(:,:) ) / rau0 … … 114 114 ! 115 115 END DO 116 IF( lk_mpp )CALL mpp_sum( 'bdyvol', zubtpecor ) ! sum over the global domain116 CALL mpp_sum( 'bdyvol', zubtpecor ) ! sum over the global domain 117 117 118 118 ! The normal velocity correction … … 148 148 ! 149 149 END DO 150 IF( lk_mpp )CALL mpp_sum( 'bdyvol', ztranst ) ! sum over the global domain150 CALL mpp_sum( 'bdyvol', ztranst ) ! sum over the global domain 151 151 152 152 ! 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 57 57 ALLOCATE( utrdmp(jpi,jpj,jpk), vtrdmp(jpi,jpj,jpk), resto_uv(jpi,jpj,jpk), STAT= dyn_dmp_alloc ) 58 58 ! 59 IF( lk_mpp )CALL mpp_sum ( 'dyndmp', dyn_dmp_alloc )59 CALL mpp_sum ( 'dyndmp', dyn_dmp_alloc ) 60 60 IF( dyn_dmp_alloc > 0 ) CALL ctl_warn('dyn_dmp_alloc: allocation of arrays failed') 61 61 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diaar5.F90
r10297 r10402 56 56 ALLOCATE( area(jpi,jpj), thick0(jpi,jpj) , sn0(jpi,jpj,jpk) , STAT=dia_ar5_alloc ) 57 57 ! 58 IF( lk_mpp )CALL mpp_sum ( 'diaar5', dia_ar5_alloc )58 CALL mpp_sum ( 'diaar5', dia_ar5_alloc ) 59 59 IF( dia_ar5_alloc /= 0 ) CALL ctl_warn('dia_ar5_alloc: failed to allocate arrays') 60 60 ! … … 95 95 ! ! total volume of liquid seawater 96 96 zvolssh = SUM( zarea_ssh(:,:) ) 97 IF( lk_mpp )CALL mpp_sum( 'diaar5', zvolssh )97 CALL mpp_sum( 'diaar5', zvolssh ) 98 98 zvol = vol0 + zvolssh 99 99 … … 130 130 ! 131 131 zarho = SUM( area(:,:) * zbotpres(:,:) ) 132 IF( lk_mpp )CALL mpp_sum( 'diaar5', zarho )132 CALL mpp_sum( 'diaar5', zarho ) 133 133 zssh_steric = - zarho / area_tot 134 134 CALL iom_put( 'sshthster', zssh_steric ) … … 156 156 ! 157 157 zarho = SUM( area(:,:) * zbotpres(:,:) ) 158 IF( lk_mpp )CALL mpp_sum( 'diaar5', zarho )158 CALL mpp_sum( 'diaar5', zarho ) 159 159 zssh_steric = - zarho / area_tot 160 160 CALL iom_put( 'sshsteric', zssh_steric ) … … 342 342 area(:,:) = e1e2t(:,:) * tmask_i(:,:) 343 343 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 ) 345 345 346 346 vol0 = 0._wp … … 350 350 thick0(:,:) = thick0(:,:) + tmask_i(:,:) * tmask(:,:,jk) * e3t_0(:,:,jk) 351 351 END DO 352 IF( lk_mpp )CALL mpp_sum( 'diaar5', vol0 )352 CALL mpp_sum( 'diaar5', vol0 ) 353 353 354 354 IF( iom_use( 'sshthster' ) ) THEN -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diahth.F90
r10297 r10402 54 54 ALLOCATE( hth(jpi,jpj), hd20(jpi,jpj), hd28(jpi,jpj), htc3(jpi,jpj), STAT=dia_hth_alloc ) 55 55 ! 56 IF( lk_mpp )CALL mpp_sum ( 'diahth', dia_hth_alloc )56 CALL mpp_sum ( 'diahth', dia_hth_alloc ) 57 57 IF(dia_hth_alloc /= 0) CALL ctl_warn('dia_hth_alloc: failed to allocate arrays.') 58 58 ! … … 123 123 & zthick(jpi,jpj), & 124 124 & zdelr(jpi,jpj), STAT=ji) 125 IF( lk_mpp )CALL mpp_sum('diahth', ji)125 CALL mpp_sum('diahth', ji) 126 126 IF( ji /= 0 ) CALL ctl_stop( 'STOP', 'dia_hth : unable to allocate standard ocean arrays' ) 127 127 END IF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diaptr.F90
r10297 r10402 549 549 ! 550 550 dia_ptr_alloc = MAXVAL( ierr ) 551 IF(lk_mpp)CALL mpp_sum( 'diaptr', dia_ptr_alloc )551 CALL mpp_sum( 'diaptr', dia_ptr_alloc ) 552 552 ! 553 553 END FUNCTION dia_ptr_alloc … … 595 595 ENDIF 596 596 #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) 598 598 #endif 599 599 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DIA/diawri.F90
r10380 r10402 411 411 ! 412 412 dia_wri_alloc = MAXVAL(ierr) 413 IF( lk_mpp )CALL mpp_sum( 'diawri', dia_wri_alloc )413 CALL mpp_sum( 'diawri', dia_wri_alloc ) 414 414 ! 415 415 END FUNCTION dia_wri_alloc … … 520 520 !! that routine is called from nemogcm, so do it here immediately before its needed 521 521 ALLOCATE( ndex_bT(jpi*jpj*nclasses), STAT=ierror ) 522 IF( lk_mpp )CALL mpp_sum( 'diawri', ierror )522 CALL mpp_sum( 'diawri', ierror ) 523 523 IF( ierror /= 0 ) THEN 524 524 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 118 118 ! number of closed seas = global maximum value in closea_mask field 119 119 jncs = maxval(closea_mask(:,:)) 120 IF( lk_mpp )CALL mpp_max('closea', jncs)120 CALL mpp_max('closea', jncs) 121 121 IF( jncs > 0 ) THEN 122 122 IF( lwp ) WRITE(numout,*) 'Number of closed seas : ',jncs … … 146 146 ! number of closed seas rnf mappings = global maximum in closea_mask_rnf field 147 147 jncsr = maxval(closea_mask_rnf(:,:)) 148 IF( lk_mpp )CALL mpp_max('closea', jncsr)148 CALL mpp_max('closea', jncsr) 149 149 IF( jncsr > 0 ) THEN 150 150 IF( lwp ) WRITE(numout,*) 'Number of closed seas rnf mappings : ',jncsr … … 166 166 ! number of closed seas empmr mappings = global maximum value in closea_mask_empmr field 167 167 jncse = maxval(closea_mask_empmr(:,:)) 168 IF( lk_mpp )CALL mpp_max('closea', jncse)168 CALL mpp_max('closea', jncse) 169 169 IF( jncse > 0 ) THEN 170 170 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 79 79 & dtilde_e3t_a(jpi,jpj,jpk) , un_td (jpi,jpj,jpk) , vn_td (jpi,jpj,jpk) , & 80 80 & STAT = dom_vvl_alloc ) 81 IF( lk_mpp )CALL mpp_sum ( 'domvvl', dom_vvl_alloc )81 CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 82 82 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 83 83 un_td = 0._wp … … 86 86 IF( ln_vvl_ztilde ) THEN 87 87 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 ) 89 89 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 90 90 ENDIF … … 431 431 END DO 432 432 z_tmax = MAXVAL( ze3t(:,:,:) ) 433 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain433 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 434 434 z_tmin = MINVAL( ze3t(:,:,:) ) 435 IF( lk_mpp )CALL mpp_min( 'domvvl', z_tmin ) ! min over the global domain435 CALL mpp_min( 'domvvl', z_tmin ) ! min over the global domain 436 436 ! - ML - test: for the moment, stop simulation for too large e3_t variations 437 437 IF( ( z_tmax > rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN … … 495 495 IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 496 496 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 497 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain497 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 498 498 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(SUM(tilde_e3t_a))) =', z_tmax 499 499 END IF … … 504 504 END DO 505 505 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 domain506 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 507 507 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshn-SUM(e3t_n))) =', z_tmax 508 508 ! … … 512 512 END DO 513 513 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 domain514 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 515 515 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+ssha-SUM(e3t_a))) =', z_tmax 516 516 ! … … 520 520 END DO 521 521 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 domain522 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 523 523 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshb-SUM(e3t_b))) =', z_tmax 524 524 ! 525 525 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshb(:,:) ) ) 526 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain526 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 527 527 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshb))) =', z_tmax 528 528 ! 529 529 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshn(:,:) ) ) 530 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain530 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 531 531 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshn))) =', z_tmax 532 532 ! 533 533 z_tmax = MAXVAL( tmask(:,:,1) * ABS( ssha(:,:) ) ) 534 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain534 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 535 535 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 536 536 END IF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DOM/domwri.F90
r10380 r10402 277 277 zrxmax = MAXVAL( zx1 ) 278 278 ! 279 IF( lk_mpp )CALL mpp_max( 'domwri', zrxmax ) ! max over the global domain279 CALL mpp_max( 'domwri', zrxmax ) ! max over the global domain 280 280 ! 281 281 IF(lwp) THEN -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DOM/iscplini.F90
r10297 r10402 48 48 ALLOCATE( htsc_iscpl(jpi,jpj,jpk,jpts) , hdiv_iscpl(jpi,jpj,jpk) , STAT=iscpl_alloc ) 49 49 ! 50 IF( lk_mpp )CALL mpp_sum ( 'iscplini', iscpl_alloc )50 CALL mpp_sum ( 'iscplini', iscpl_alloc ) 51 51 IF( iscpl_alloc > 0 ) CALL ctl_warn('iscpl_alloc: allocation of arrays failed') 52 52 END FUNCTION iscpl_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DYN/dynspg_ts.F90
r10386 r10402 112 112 dyn_spg_ts_alloc = MAXVAL( ierr(:) ) 113 113 ! 114 IF( lk_mpp )CALL mpp_sum( 'dynspg_ts', dyn_spg_ts_alloc )114 CALL mpp_sum( 'dynspg_ts', dyn_spg_ts_alloc ) 115 115 IF( dyn_spg_ts_alloc /= 0 ) CALL ctl_warn('dyn_spg_ts_alloc: failed to allocate arrays') 116 116 ! … … 1484 1484 ! 1485 1485 zcmax = MAXVAL( zcu(:,:) ) 1486 IF( lk_mpp )CALL mpp_max( 'dynspg_ts', zcmax )1486 CALL mpp_max( 'dynspg_ts', zcmax ) 1487 1487 1488 1488 ! 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 243 243 CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 244 244 ! 245 IF( lk_mpp )CALL mpp_max('wet_dry', jflag) !max over the global domain245 CALL mpp_max('wet_dry', jflag) !max over the global domain 246 246 ! 247 247 IF( jflag == 0 ) EXIT … … 372 372 CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 373 373 ! 374 IF(lk_mpp)CALL mpp_max('wet_dry', jflag) !max over the global domain374 CALL mpp_max('wet_dry', jflag) !max over the global domain 375 375 ! 376 376 IF(jflag == 0) EXIT -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/flo_oce.F90
r10297 r10402 64 64 & tpifl(jpnfl) , tpjfl(jpnfl) , tpkfl(jpnfl) , STAT=flo_oce_alloc ) 65 65 ! 66 IF( lk_mpp )CALL mpp_sum ( 'flo_oce', flo_oce_alloc )66 CALL mpp_sum ( 'flo_oce', flo_oce_alloc ) 67 67 IF( flo_oce_alloc /= 0 ) CALL ctl_warn('flo_oce_alloc: failed to allocate arrays') 68 68 END FUNCTION flo_oce_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/floblk.F90
r10297 r10402 330 330 331 331 ! synchronisation 332 IF( lk_mpp )CALL mpp_sum( 'floblk', zgifl , jpnfl ) ! sums over the global domain333 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 ) 338 338 339 339 ! 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 451 451 zgifl(jpnfl) , zgjfl(jpnfl) , zgkfl(jpnfl) , STAT=flo_dom_alloc ) 452 452 ! 453 IF( lk_mpp )CALL mpp_sum ( 'flodom', flo_dom_alloc )453 CALL mpp_sum ( 'flodom', flo_dom_alloc ) 454 454 IF( flo_dom_alloc /= 0 ) CALL ctl_warn('flo_dom_alloc: failed to allocate arrays') 455 455 END FUNCTION flo_dom_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/florst.F90
r10297 r10402 39 39 ALLOCATE( iperproc(jpnij), STAT=flo_rst_alloc ) 40 40 ! 41 IF( lk_mpp )CALL mpp_sum ( 'florst', flo_rst_alloc )41 CALL mpp_sum ( 'florst', flo_rst_alloc ) 42 42 IF( flo_rst_alloc /= 0 ) CALL ctl_warn('flo_rst_alloc: failed to allocate arrays.') 43 43 END FUNCTION flo_rst_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/flowri.F90
r10297 r10402 51 51 zlon(jpnfl) , zlat(jpnfl) , zdep(jpnfl) , STAT=flo_wri_alloc) 52 52 ! 53 IF( lk_mpp )CALL mpp_sum ( 'flowri', flo_wri_alloc )53 CALL mpp_sum ( 'flowri', flo_wri_alloc ) 54 54 IF( flo_wri_alloc /= 0 ) CALL ctl_warn('flo_wri_alloc: failed to allocate arrays.') 55 55 END FUNCTION flo_wri_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icb_oce.F90
r10297 r10402 190 190 icb_alloc = icb_alloc + ill 191 191 192 IF( lk_mpp )CALL mpp_sum ( 'icb_oce', icb_alloc )192 CALL mpp_sum ( 'icb_oce', icb_alloc ) 193 193 IF( icb_alloc > 0 ) CALL ctl_warn('icb_alloc: allocation of arrays failed') 194 194 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icbdia.F90
r10297 r10402 436 436 IF( kt == nit000 ) THEN 437 437 stored_start = SUM( berg_grid%stored_ice(:,:,:) ) 438 IF( lk_mpp )CALL mpp_sum( 'icbdia', stored_start )438 CALL mpp_sum( 'icbdia', stored_start ) 439 439 WRITE(numicb,'(a,es13.6,a)') 'icb_dia_income: initial stored mass=',stored_start,' kg' 440 440 ! 441 441 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 ) 443 443 WRITE(numicb,'(a,es13.6,a)') 'icb_dia_income: initial stored heat=',stored_heat_start,' J' 444 444 ENDIF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icbini.F90
r10297 r10402 335 335 ! 336 336 ibergs = icb_utl_count() 337 IF( lk_mpp )CALL mpp_sum('icbini', ibergs)337 CALL mpp_sum('icbini', ibergs) 338 338 WRITE(numicb,'(a,i6,a)') 'diamonds, icb_ini_gen: ',ibergs,' were generated' 339 339 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icbutl.F90
r10345 r10402 661 661 ibergs = icb_utl_count() 662 662 inbergs = ibergs 663 IF( lk_mpp )CALL mpp_sum('icbutl', inbergs)663 CALL mpp_sum('icbutl', inbergs) 664 664 IF( ibergs > 0 ) WRITE(numicb,'(a," there are",i5," bergs out of",i6," on PE ",i4)') & 665 665 & cd_label, ibergs, inbergs, narea -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mpp_allreduce_generic.h90
r10314 r10402 69 69 DEALLOCATE(work) 70 70 #else 71 WRITE(*,*) 'ROUTINE_ALLREDUCE: You should not have seen this print! error?' 71 ! nothing to do if non-mpp case 72 RETURN 72 73 #endif 73 74 -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/OBS/obs_readmdt.F90
r10297 r10402 220 220 END DO 221 221 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 ) 225 225 226 226 zcorr_mdt = zeta1 / zarea -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/geo2ocean.F90
r10377 r10402 152 152 & gsinv(jpi,jpj), gcosv(jpi,jpj), & 153 153 & gsinf(jpi,jpj), gcosf(jpi,jpj), STAT=ierr ) 154 IF(lk_mpp)CALL mpp_sum( 'geo2ocean', ierr )154 CALL mpp_sum( 'geo2ocean', ierr ) 155 155 IF( ierr /= 0 ) CALL ctl_stop( 'angle: unable to allocate arrays' ) 156 156 ! … … 304 304 ALLOCATE( gsinlon(jpi,jpj,4) , gcoslon(jpi,jpj,4) , & 305 305 & 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 ) 307 307 IF( ierr /= 0 ) CALL ctl_stop('geo2oce: unable to allocate arrays' ) 308 308 ENDIF … … 381 381 ALLOCATE( gsinlon(jpi,jpj,4) , gcoslon(jpi,jpj,4) , & 382 382 & 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 ) 384 384 IF( ierr /= 0 ) CALL ctl_stop('oce2geo: unable to allocate arrays' ) 385 385 ENDIF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbc_ice.F90
r10297 r10402 150 150 151 151 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 ) 153 153 IF( sbc_ice_alloc > 0 ) CALL ctl_warn('sbc_ice_alloc: allocation of arrays failed') 154 154 END FUNCTION sbc_ice_alloc … … 197 197 ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), snwice_fmass(jpi,jpj) , STAT=ierr(1) ) 198 198 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 ) 200 200 IF( sbc_ice_alloc > 0 ) CALL ctl_warn('sbc_ice_alloc: allocation of arrays failed') 201 201 END FUNCTION sbc_ice_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbc_oce.F90
r10297 r10402 186 186 ! 187 187 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 ) 189 189 IF( sbc_oce_alloc > 0 ) CALL ctl_warn('sbc_oce_alloc: allocation of arrays failed') 190 190 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcblk.F90
r10345 r10402 147 147 & cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), STAT=sbc_blk_alloc ) 148 148 ! 149 IF( lk_mpp )CALL mpp_sum ( 'sbcblk', sbc_blk_alloc )149 CALL mpp_sum ( 'sbcblk', sbc_blk_alloc ) 150 150 IF( sbc_blk_alloc /= 0 ) CALL ctl_warn('sbc_blk_alloc: failed to allocate arrays') 151 151 END FUNCTION sbc_blk_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbccpl.F90
r10297 r10402 224 224 225 225 sbc_cpl_alloc = MAXVAL( ierr ) 226 IF( lk_mpp )CALL mpp_sum ( 'sbccpl', sbc_cpl_alloc )226 CALL mpp_sum ( 'sbccpl', sbc_cpl_alloc ) 227 227 IF( sbc_cpl_alloc > 0 ) CALL ctl_warn('sbc_cpl_alloc: allocation of arrays failed') 228 228 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcdcy.F90
r10297 r10402 44 44 & rtmd(jpi,jpj) , rdawn(jpi,jpj) , rdusk(jpi,jpj) , rscal(jpi,jpj) , STAT=sbc_dcy_alloc ) 45 45 ! 46 IF( lk_mpp )CALL mpp_sum ( 'sbcdcy', sbc_dcy_alloc )46 CALL mpp_sum ( 'sbcdcy', sbc_dcy_alloc ) 47 47 IF( sbc_dcy_alloc /= 0 ) CALL ctl_warn('sbc_dcy_alloc: failed to allocate arrays') 48 48 END FUNCTION sbc_dcy_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcice_cice.F90
r10297 r10402 100 100 !!---------------------------------------------------------------------- 101 101 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 ) 103 103 IF( sbc_ice_cice_alloc > 0 ) CALL ctl_warn('sbc_ice_cice_alloc: allocation of arrays failed.') 104 104 END FUNCTION sbc_ice_cice_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcisf.F90
r10297 r10402 244 244 & STAT= sbc_isf_alloc ) 245 245 ! 246 IF( lk_mpp )CALL mpp_sum ( 'sbcisf', sbc_isf_alloc )246 CALL mpp_sum ( 'sbcisf', sbc_isf_alloc ) 247 247 IF( sbc_isf_alloc /= 0 ) CALL ctl_warn('sbc_isf_alloc: failed to allocate arrays.') 248 248 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcrnf.F90
r10380 r10402 83 83 & rnf_tsc_b(jpi,jpj,jpts) , rnf_tsc (jpi,jpj,jpts) , STAT=sbc_rnf_alloc ) 84 84 ! 85 IF( lk_mpp )CALL mpp_sum ( 'sbcrnf', sbc_rnf_alloc )85 CALL mpp_sum ( 'sbcrnf', sbc_rnf_alloc ) 86 86 IF( sbc_rnf_alloc > 0 ) CALL ctl_warn('sbc_rnf_alloc: allocation of arrays failed') 87 87 END FUNCTION sbc_rnf_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA/trabbl.F90
r10297 r10402 84 84 & e3u_bbl_0(jpi,jpj) , e3v_bbl_0(jpi,jpj) , STAT=tra_bbl_alloc ) 85 85 ! 86 IF( lk_mpp )CALL mpp_sum ( 'trabbl', tra_bbl_alloc )86 CALL mpp_sum ( 'trabbl', tra_bbl_alloc ) 87 87 IF( tra_bbl_alloc > 0 ) CALL ctl_warn('tra_bbl_alloc: allocation of arrays failed.') 88 88 END FUNCTION tra_bbl_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA/tradmp.F90
r10368 r10402 66 66 ALLOCATE( resto(jpi,jpj,jpk), STAT= tra_dmp_alloc ) 67 67 ! 68 IF( lk_mpp )CALL mpp_sum ( 'tradmp', tra_dmp_alloc )68 CALL mpp_sum ( 'tradmp', tra_dmp_alloc ) 69 69 IF( tra_dmp_alloc > 0 ) CALL ctl_warn('tra_dmp_alloc: allocation of arrays failed') 70 70 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA/traldf_triad.F90
r10297 r10402 98 98 IF( .NOT.ALLOCATED(zdkt3d) ) THEN 99 99 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 ) 101 101 IF( ierr > 0 ) CALL ctl_stop('STOP', 'tra_ldf_triad: unable to allocate arrays') 102 102 ENDIF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdglo.F90
r10297 r10402 526 526 tvolt = tvolt + SUM( e1e2t(:,:) * e3t_n(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) ) 527 527 END DO 528 IF( lk_mpp )CALL mpp_sum( 'trdglo', tvolt ) ! sum over the global domain528 CALL mpp_sum( 'trdglo', tvolt ) ! sum over the global domain 529 529 530 530 IF(lwp) WRITE(numout,*) ' total ocean volume at T-point tvolt = ',tvolt … … 546 546 END DO 547 547 END DO 548 IF( lk_mpp )CALL mpp_sum( 'trdglo', tvolu ) ! sums over the global domain549 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 ) 550 550 551 551 IF(lwp) THEN -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdken.F90
r10297 r10402 54 54 ALLOCATE( bu(jpi,jpj,jpk) , bv(jpi,jpj,jpk) , r1_bt(jpi,jpj,jpk) , STAT= trd_ken_alloc ) 55 55 ! 56 IF( lk_mpp )CALL mpp_sum ( 'trdken', trd_ken_alloc )56 CALL mpp_sum ( 'trdken', trd_ken_alloc ) 57 57 IF( trd_ken_alloc /= 0 ) CALL ctl_warn('trd_ken_alloc: failed to allocate arrays') 58 58 END FUNCTION trd_ken_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdmxl.F90
r10297 r10402 81 81 ALLOCATE( ndextrd1(jpi*jpj) , STAT=trd_mxl_alloc ) 82 82 ! 83 IF( lk_mpp )CALL mpp_sum ( 'trdmxl', trd_mxl_alloc )83 CALL mpp_sum ( 'trdmxl', trd_mxl_alloc ) 84 84 IF( trd_mxl_alloc /= 0 ) CALL ctl_warn('trd_mxl_alloc: failed to allocate array ndextrd1') 85 85 END FUNCTION trd_mxl_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdmxl_oce.F90
r10297 r10402 127 127 ! 128 128 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 ) 130 130 IF( trdmxl_oce_alloc /= 0 ) CALL ctl_warn('trdmxl_oce_alloc: failed to allocate arrays') 131 131 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdpen.F90
r10297 r10402 50 50 ALLOCATE( rab_pe(jpi,jpj,jpk,jpts) , STAT= trd_pen_alloc ) 51 51 ! 52 IF( lk_mpp )CALL mpp_sum ( 'trdpen', trd_pen_alloc )52 CALL mpp_sum ( 'trdpen', trd_pen_alloc ) 53 53 IF( trd_pen_alloc /= 0 ) CALL ctl_warn( 'trd_pen_alloc: failed to allocate arrays' ) 54 54 END FUNCTION trd_pen_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdtra.F90
r10297 r10402 55 55 ALLOCATE( trdtx(jpi,jpj,jpk) , trdty(jpi,jpj,jpk) , trdt(jpi,jpj,jpk) , avt_evd(jpi,jpj,jpk), STAT= trd_tra_alloc ) 56 56 ! 57 IF( lk_mpp )CALL mpp_sum ( 'trdtra', trd_tra_alloc )57 CALL mpp_sum ( 'trdtra', trd_tra_alloc ) 58 58 IF( trd_tra_alloc /= 0 ) CALL ctl_warn('trd_tra_alloc: failed to allocate arrays') 59 59 END FUNCTION trd_tra_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdvor.F90
r10297 r10402 73 73 & ndexvor1 (jpi*jpj) , STAT= trd_vor_alloc ) 74 74 ! 75 IF( lk_mpp )CALL mpp_sum ( 'trdvor', trd_vor_alloc )75 CALL mpp_sum ( 'trdvor', trd_vor_alloc ) 76 76 IF( trd_vor_alloc /= 0 ) CALL ctl_warn('trd_vor_alloc: failed to allocate arrays') 77 77 END FUNCTION trd_vor_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfgls.F90
r10345 r10402 119 119 & zwall (jpi,jpj,jpk) , ustar2_top (jpi,jpj) , ustar2_bot(jpi,jpj) , STAT= zdf_gls_alloc ) 120 120 ! 121 IF( lk_mpp )CALL mpp_sum ( 'zdfgls', zdf_gls_alloc )121 CALL mpp_sum ( 'zdfgls', zdf_gls_alloc ) 122 122 IF( zdf_gls_alloc /= 0 ) CALL ctl_warn('zdf_gls_alloc: failed to allocate arrays') 123 123 END FUNCTION zdf_gls_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfiwm.F90
r10336 r10402 64 64 & hbot_iwm(jpi,jpj), hcri_iwm(jpi,jpj) , STAT=zdf_iwm_alloc ) 65 65 ! 66 IF( lk_mpp )CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc )66 CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc ) 67 67 IF( zdf_iwm_alloc /= 0 ) CALL ctl_warn('zdf_iwm_alloc: failed to allocate arrays') 68 68 END FUNCTION zdf_iwm_alloc … … 319 319 END DO 320 320 END DO 321 IF( lk_mpp )CALL mpp_sum( 'zdfiwm', zztmp )321 CALL mpp_sum( 'zdfiwm', zztmp ) 322 322 zztmp = rau0 * zztmp ! Global integral of rauo * Kz * N^2 = power contributing to mixing 323 323 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfmxl.F90
r10368 r10402 50 50 ALLOCATE( nmln(jpi,jpj), hmld(jpi,jpj), hmlp(jpi,jpj), hmlpt(jpi,jpj), STAT= zdf_mxl_alloc ) 51 51 ! 52 IF( lk_mpp )CALL mpp_sum ( 'zdfmxl', zdf_mxl_alloc )52 CALL mpp_sum ( 'zdfmxl', zdf_mxl_alloc ) 53 53 IF( zdf_mxl_alloc /= 0 ) CALL ctl_warn('zdf_mxl_alloc: failed to allocate arrays.') 54 54 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfosm.F90
r10368 r10402 118 118 & etmean(jpi,jpj,jpk), STAT= zdf_osm_alloc ) 119 119 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 ) 121 121 END FUNCTION zdf_osm_alloc 122 122 -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdfphy.F90
r10368 r10402 331 331 ALLOCATE( wi(jpi,jpj,jpk), Cu_adv(jpi,jpj,jpk), STAT= zdf_phy_alloc ) 332 332 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 ) 334 334 END FUNCTION zdf_phy_alloc 335 335 -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ZDF/zdftke.F90
r10336 r10402 103 103 ALLOCATE( htau(jpi,jpj) , dissl(jpi,jpj,jpk) , apdlr(jpi,jpj,jpk) , STAT= zdf_tke_alloc ) 104 104 ! 105 IF( lk_mpp )CALL mpp_sum ( 'zdftke', zdf_tke_alloc )105 CALL mpp_sum ( 'zdftke', zdf_tke_alloc ) 106 106 IF( zdf_tke_alloc /= 0 ) CALL ctl_warn('zdf_tke_alloc: failed to allocate arrays') 107 107 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/lib_fortran_generic.h90
r10397 r10402 60 60 END DO 61 61 END DO 62 IF( lk_mpp )CALL mpp_sum( cdname, ctmp ) ! sum over the global domain62 CALL mpp_sum( cdname, ctmp ) ! sum over the global domain 63 63 FUNCTION_GLOBSUM = REAL(ctmp,wp) 64 64 … … 122 122 ENDDO 123 123 124 IF( lk_mpp )CALL MPP_OPERATION( cdname, ztmp)124 CALL MPP_OPERATION( cdname, ztmp) 125 125 126 126 FUNCTION_GLOBMINMAX = ztmp -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/module_example
r10297 r10402 63 63 ALLOCATE( array(jpi,jpj,jpk) , STAT= exa_mpl_alloc ) ! Module array 64 64 ! 65 IF( lk_mpp )CALL mpp_sum ( 'module_example', exa_mpl_alloc )65 CALL mpp_sum ( 'module_example', exa_mpl_alloc ) 66 66 IF( exa_mpl_alloc /= 0 ) CALL ctl_warn('exa_mpl_alloc: failed to allocate arrays') 67 67 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/nemogcm.F90
r10368 r10402 148 148 ! check that all process are still there... If some process have an error, 149 149 ! 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 ) 151 151 152 152 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA … … 625 625 #endif 626 626 ! 627 IF( lk_mpp )CALL mpp_sum( 'nemogcm', ierr )627 CALL mpp_sum( 'nemogcm', ierr ) 628 628 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 629 629 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/timing.F90
r10300 r10402 320 320 END DO 321 321 idum = nsize 322 IF(lk_mpp)CALL mpp_sum('timing', idum)322 CALL mpp_sum('timing', idum) 323 323 IF( idum/jpnij /= nsize ) THEN 324 324 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 95 95 ! check that all process are still there... If some process have an error, 96 96 ! 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 ) 98 98 99 99 ! !-----------------------! … … 441 441 ierr = ierr + trc_oce_alloc() ! shared TRC / TRA arrays 442 442 ! 443 IF( lk_mpp )CALL mpp_sum( 'nemogcm', ierr )443 CALL mpp_sum( 'nemogcm', ierr ) 444 444 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 445 445 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAO/nemogcm.F90
r10297 r10402 372 372 ierr = ierr + dom_oce_alloc () ! ocean domain 373 373 ! 374 IF( lk_mpp )CALL mpp_sum( 'nemogcm', ierr )374 CALL mpp_sum( 'nemogcm', ierr ) 375 375 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'nemo_alloc : unable to allocate standard ocean arrays' ) 376 376 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/diawri.F90
r10380 r10402 110 110 ! 111 111 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 ) 113 113 ! 114 114 END FUNCTION dia_wri_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/nemogcm.F90
r10297 r10402 94 94 ! check that all process are still there... If some process have an error, 95 95 ! 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 ) 97 97 98 98 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA … … 486 486 ierr = ierr + bdy_oce_alloc() ! bdy masks (incl. initialization) 487 487 ! 488 IF( lk_mpp )CALL mpp_sum( 'nemogcm', ierr )488 CALL mpp_sum( 'nemogcm', ierr ) 489 489 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 490 490 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/stpctl.F90
r10358 r10402 91 91 zmax(2) = MAXVAL( ABS( u_ice(:,:) ) ) ! max ice velocity (zonal only) 92 92 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 domain93 CALL mpp_max( "stpctl", zmax ) ! max over the global domain 94 94 END IF 95 95 ! !== run statistics ==! ("run.stat" file) -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcini_pisces.F90
r10368 r10402 118 118 ierr = ierr + p4z_rem_alloc() 119 119 ! 120 IF( lk_mpp )CALL mpp_sum( 'trcini_pisces', ierr )120 CALL mpp_sum( 'trcini_pisces', ierr ) 121 121 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'pisces_alloc: unable to allocate PISCES arrays' ) 122 122 ! … … 313 313 ierr = ierr + p2z_exp_alloc() 314 314 ! 315 IF( lk_mpp )CALL mpp_sum( 'trcini_pisces', ierr )315 CALL mpp_sum( 'trcini_pisces', ierr ) 316 316 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'p2z_ini: unable to allocate LOBSTER arrays' ) 317 317 -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/TRP/trdmxl_trc.F90
r10297 r10402 64 64 & ndextrd1(jpi*jpj), nidtrd(jptra), nh_t(jptra), STAT=trd_mxl_trc_alloc) 65 65 ! 66 IF( lk_mpp )CALL mpp_sum ( 'trdmxl_trc', trd_mxl_trc_alloc )66 CALL mpp_sum ( 'trdmxl_trc', trd_mxl_trc_alloc ) 67 67 IF( trd_mxl_trc_alloc /=0 ) CALL ctl_warn('trd_mxl_trc_alloc: failed to allocate arrays') 68 68 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/trcini.F90
r10377 r10402 292 292 #endif 293 293 ! 294 IF( lk_mpp )CALL mpp_sum( 'trcini', ierr )294 CALL mpp_sum( 'trcini', ierr ) 295 295 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'top_alloc : unable to allocate standard ocean arrays' ) 296 296 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/trcsub.F90
r10297 r10402 308 308 309 309 ierr = trc_sub_alloc () 310 IF( lk_mpp )CALL mpp_sum( 'trcsub', ierr )310 CALL mpp_sum( 'trcsub', ierr ) 311 311 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'top_sub_alloc : unable to allocate standard ocean arrays' ) 312 312 -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/zdfiwm.F90
r10314 r10402 64 64 & hbot_iwm(jpi,jpj), hcri_iwm(jpi,jpj) , STAT=zdf_iwm_alloc ) 65 65 ! 66 IF( lk_mpp )CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc )66 CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc ) 67 67 IF( zdf_iwm_alloc /= 0 ) CALL ctl_warn('zdf_iwm_alloc: failed to allocate arrays') 68 68 END FUNCTION zdf_iwm_alloc … … 305 305 END DO 306 306 END DO 307 IF( lk_mpp )CALL mpp_sum( 'zdfiwm', zztmp )307 CALL mpp_sum( 'zdfiwm', zztmp ) 308 308 zztmp = rau0 * zztmp ! Global integral of rauo * Kz * N^2 = power contributing to mixing 309 309 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/diawri.F90
r10358 r10402 516 516 ! 517 517 dia_wri_alloc = MAXVAL(ierr) 518 IF( lk_mpp )CALL mpp_sum( 'diawri', dia_wri_alloc )518 CALL mpp_sum( 'diawri', dia_wri_alloc ) 519 519 ! 520 520 END FUNCTION dia_wri_alloc … … 625 625 !! that routine is called from nemogcm, so do it here immediately before its needed 626 626 ALLOCATE( ndex_bT(jpi*jpj*nclasses), STAT=ierror ) 627 IF( lk_mpp )CALL mpp_sum( 'diawri', ierror )627 CALL mpp_sum( 'diawri', ierror ) 628 628 IF( ierror /= 0 ) THEN 629 629 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 79 79 & dtilde_e3t_a(jpi,jpj,jpk) , un_td (jpi,jpj,jpk) , vn_td (jpi,jpj,jpk) , & 80 80 & STAT = dom_vvl_alloc ) 81 IF( lk_mpp )CALL mpp_sum ( 'domvvl', dom_vvl_alloc )81 CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 82 82 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 83 83 un_td = 0._wp … … 86 86 IF( ln_vvl_ztilde ) THEN 87 87 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 ) 89 89 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 90 90 ENDIF … … 431 431 END DO 432 432 z_tmax = MAXVAL( ze3t(:,:,:) ) 433 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain433 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 434 434 z_tmin = MINVAL( ze3t(:,:,:) ) 435 IF( lk_mpp )CALL mpp_min( 'domvvl', z_tmin ) ! min over the global domain435 CALL mpp_min( 'domvvl', z_tmin ) ! min over the global domain 436 436 ! - ML - test: for the moment, stop simulation for too large e3_t variations 437 437 IF( ( z_tmax > rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN … … 495 495 IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 496 496 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 497 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain497 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 498 498 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(SUM(tilde_e3t_a))) =', z_tmax 499 499 END IF … … 504 504 END DO 505 505 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 domain506 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 507 507 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshn-SUM(e3t_n))) =', z_tmax 508 508 ! … … 512 512 END DO 513 513 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 domain514 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 515 515 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+ssha-SUM(e3t_a))) =', z_tmax 516 516 ! … … 520 520 END DO 521 521 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 domain522 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 523 523 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshb-SUM(e3t_b))) =', z_tmax 524 524 ! 525 525 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshb(:,:) ) ) 526 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain526 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 527 527 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshb))) =', z_tmax 528 528 ! 529 529 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshn(:,:) ) ) 530 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain530 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 531 531 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshn))) =', z_tmax 532 532 ! 533 533 z_tmax = MAXVAL( tmask(:,:,1) * ABS( ssha(:,:) ) ) 534 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain534 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 535 535 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 536 536 END IF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/usrdef_zgr.F90
r10297 r10402 198 198 CASE(1) 199 199 zmaxlam = MAXVAL(glamt) 200 IF( lk_mpp )CALL mpp_max( 'usrdef_zgr', zmaxlam ) ! max over the global domain200 CALL mpp_max( 'usrdef_zgr', zmaxlam ) ! max over the global domain 201 201 zscl = rpi / zmaxlam 202 202 z2d(:,:) = 0.5 * ( 1. - COS( glamt(:,:) * zscl ) ) -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/VORTEX/MY_SRC/domvvl.F90
r10369 r10402 79 79 & dtilde_e3t_a(jpi,jpj,jpk) , un_td (jpi,jpj,jpk) , vn_td (jpi,jpj,jpk) , & 80 80 & STAT = dom_vvl_alloc ) 81 IF( lk_mpp )CALL mpp_sum ( 'domvvl', dom_vvl_alloc )81 CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 82 82 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 83 83 un_td = 0._wp … … 86 86 IF( ln_vvl_ztilde ) THEN 87 87 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 ) 89 89 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 90 90 ENDIF … … 431 431 END DO 432 432 z_tmax = MAXVAL( ze3t(:,:,:) ) 433 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain433 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 434 434 z_tmin = MINVAL( ze3t(:,:,:) ) 435 IF( lk_mpp )CALL mpp_min( 'domvvl', z_tmin ) ! min over the global domain435 CALL mpp_min( 'domvvl', z_tmin ) ! min over the global domain 436 436 ! - ML - test: for the moment, stop simulation for too large e3_t variations 437 437 IF( ( z_tmax > rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN … … 495 495 IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 496 496 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 497 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain497 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 498 498 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(SUM(tilde_e3t_a))) =', z_tmax 499 499 END IF … … 504 504 END DO 505 505 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 domain506 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 507 507 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshn-SUM(e3t_n))) =', z_tmax 508 508 ! … … 512 512 END DO 513 513 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 domain514 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 515 515 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+ssha-SUM(e3t_a))) =', z_tmax 516 516 ! … … 520 520 END DO 521 521 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 domain522 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 523 523 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshb-SUM(e3t_b))) =', z_tmax 524 524 ! 525 525 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshb(:,:) ) ) 526 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain526 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 527 527 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshb))) =', z_tmax 528 528 ! 529 529 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshn(:,:) ) ) 530 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain530 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 531 531 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshn))) =', z_tmax 532 532 ! 533 533 z_tmax = MAXVAL( tmask(:,:,1) * ABS( ssha(:,:) ) ) 534 IF( lk_mpp )CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain534 CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 535 535 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 536 536 END IF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/WAD/MY_SRC/bdyini.F90
r10297 r10402 1280 1280 END DO 1281 1281 ! 1282 IF( lk_mpp )CALL mpp_sum( 'bdyini', bdysurftot ) ! sum over the global domain1282 CALL mpp_sum( 'bdyini', bdysurftot ) ! sum over the global domain 1283 1283 END IF 1284 1284 ! … … 1520 1520 END DO 1521 1521 END DO 1522 IF( lk_mpp )CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain1522 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1523 1523 1524 1524 IF (ztestmask(1)==1) THEN … … 1564 1564 END DO 1565 1565 END DO 1566 IF( lk_mpp )CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain1566 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1567 1567 1568 1568 IF (ztestmask(1)==1) THEN … … 1608 1608 END DO 1609 1609 END DO 1610 IF( lk_mpp )CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain1610 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1611 1611 1612 1612 IF ((ztestmask(1)==1).AND.(icorns(ib,1)==0)) THEN … … 1638 1638 END DO 1639 1639 END DO 1640 IF( lk_mpp )CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain1640 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1641 1641 1642 1642 IF ((ztestmask(1)==1).AND.(icornn(ib,1)==0)) THEN
Note: See TracChangeset
for help on using the changeset viewer.
