- Timestamp:
- 2018-11-12T16:20:57+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/flowri.F90
r10068 r10297 51 51 zlon(jpnfl) , zlat(jpnfl) , zdep(jpnfl) , STAT=flo_wri_alloc) 52 52 ! 53 IF( lk_mpp ) CALL mpp_sum ( flo_wri_alloc )53 IF( lk_mpp ) 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 … … 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.