- Timestamp:
- 2018-11-12T16:20:57+01:00 (5 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdy_oce.F90
r10068 r10297 161 161 bdyvmask(:,:) = 1._wp 162 162 ! 163 IF( lk_mpp ) CALL mpp_sum ( bdy_oce_alloc )163 IF( lk_mpp ) 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
r10170 r10297 1280 1280 END DO 1281 1281 ! 1282 IF( lk_mpp ) CALL mpp_sum( bdysurftot ) ! sum over the global domain1282 IF( lk_mpp ) 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( ztestmask, 2 ) ! sum over the global domain1522 IF( lk_mpp ) 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( ztestmask, 2 ) ! sum over the global domain1566 IF( lk_mpp ) 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( ztestmask, 2 ) ! sum over the global domain1610 IF( lk_mpp ) 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( ztestmask, 2 ) ! sum over the global domain1640 IF( lk_mpp ) 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
r10068 r10297 85 85 !!gm replace these lines : 86 86 z_cflxemp = SUM ( ( emp(:,:) - rnf(:,:) + fwfisf(:,:) ) * bdytmask(:,:) * e1e2t(:,:) ) / rau0 87 IF( lk_mpp ) CALL mpp_sum( z_cflxemp ) ! sum over the global domain87 IF( lk_mpp ) CALL mpp_sum( 'bdyvol', z_cflxemp ) ! sum over the global domain 88 88 !!gm by : 89 89 !!gm z_cflxemp = glob_sum( ( emp(:,:)-rnf(:,:)+fwfisf(:,:) ) * bdytmask(:,:) * e1e2t(:,:) ) / rau0 … … 114 114 ! 115 115 END DO 116 IF( lk_mpp ) CALL mpp_sum( zubtpecor ) ! sum over the global domain116 IF( lk_mpp ) 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( ztranst ) ! sum over the global domain150 IF( lk_mpp ) 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
Note: See TracChangeset
for help on using the changeset viewer.