Changeset 10425 for NEMO/trunk/src/OCE/FLO/flowri.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/FLO/flowri.F90
r10068 r10425 51 51 zlon(jpnfl) , zlat(jpnfl) , zdep(jpnfl) , STAT=flo_wri_alloc) 52 52 ! 53 IF( lk_mpp ) CALL mpp_sum (flo_wri_alloc )54 IF( flo_wri_alloc /= 0 ) CALL ctl_ warn('flo_wri_alloc: failed to allocate arrays.')53 CALL mpp_sum ( 'flowri', flo_wri_alloc ) 54 IF( flo_wri_alloc /= 0 ) CALL ctl_stop( 'STOP', 'flo_wri_alloc: failed to allocate arrays.' ) 55 55 END FUNCTION flo_wri_alloc 56 56 … … 153 153 !Only proc 0 writes all positions : SUM of positions on all procs 154 154 IF( lk_mpp ) THEN 155 CALL mpp_sum( zlon, jpnfl ) ! sums over the global domain156 CALL mpp_sum( zlat, jpnfl ) ! sums over the global domain157 CALL mpp_sum( zdep, jpnfl ) ! sums over the global domain158 CALL mpp_sum( ztem, jpnfl ) ! sums over the global domain159 CALL mpp_sum( zsal, jpnfl ) ! sums over the global domain160 CALL mpp_sum( zrho, jpnfl ) ! sums over the global domain155 CALL mpp_sum( 'flowri', zlon, jpnfl ) ! sums over the global domain 156 CALL mpp_sum( 'flowri', zlat, jpnfl ) ! sums over the global domain 157 CALL mpp_sum( 'flowri', zdep, jpnfl ) ! sums over the global domain 158 CALL mpp_sum( 'flowri', ztem, jpnfl ) ! sums over the global domain 159 CALL mpp_sum( 'flowri', zsal, jpnfl ) ! sums over the global domain 160 CALL mpp_sum( 'flowri', zrho, jpnfl ) ! sums over the global domain 161 161 ENDIF 162 162
Note: See TracChangeset
for help on using the changeset viewer.