Changeset 10425 for NEMO/trunk/src/OCE/BDY/bdy_oce.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdy_oce.F90
r10068 r10425 12 12 !!---------------------------------------------------------------------- 13 13 USE par_oce ! ocean parameters 14 USE lib_mpp ! distributed memory computing15 14 16 15 IMPLICIT NONE … … 148 147 FUNCTION bdy_oce_alloc() 149 148 !!---------------------------------------------------------------------- 150 USE lib_mpp, ONLY: ctl_ warn, mpp_sum149 USE lib_mpp, ONLY: ctl_stop, mpp_sum 151 150 ! 152 151 INTEGER :: bdy_oce_alloc … … 161 160 bdyvmask(:,:) = 1._wp 162 161 ! 163 IF( lk_mpp ) CALL mpp_sum (bdy_oce_alloc )164 IF( bdy_oce_alloc /= 0 ) CALL ctl_ warn('bdy_oce_alloc: failed to allocate arrays.')162 CALL mpp_sum ( 'bdy_oce', bdy_oce_alloc ) 163 IF( bdy_oce_alloc /= 0 ) CALL ctl_stop( 'STOP', 'bdy_oce_alloc: failed to allocate arrays.' ) 165 164 ! 166 165 END FUNCTION bdy_oce_alloc
Note: See TracChangeset
for help on using the changeset viewer.