Ignore:
Timestamp:
2018-11-12T16:20:57+01:00 (23 months ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2a: add report calls of mppmin/max/sum, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/FLO/flowri.F90

    r10068 r10297  
    5151                zlon(jpnfl) , zlat(jpnfl) , zdep(jpnfl) , STAT=flo_wri_alloc) 
    5252      !   
    53       IF( lk_mpp             )   CALL mpp_sum ( flo_wri_alloc ) 
     53      IF( lk_mpp             )   CALL mpp_sum ( 'flowri', flo_wri_alloc ) 
    5454      IF( flo_wri_alloc /= 0 )   CALL ctl_warn('flo_wri_alloc: failed to allocate arrays.') 
    5555   END FUNCTION flo_wri_alloc 
     
    153153      !Only proc 0 writes all positions : SUM of positions on all procs 
    154154      IF( lk_mpp ) THEN 
    155          CALL mpp_sum( zlon, jpnfl )   ! sums over the global domain 
    156          CALL mpp_sum( zlat, jpnfl )   ! sums over the global domain 
    157          CALL mpp_sum( zdep, jpnfl )   ! sums over the global domain 
    158          CALL mpp_sum( ztem, jpnfl )   ! sums over the global domain 
    159          CALL mpp_sum( zsal, jpnfl )   ! sums over the global domain 
    160          CALL mpp_sum( zrho, jpnfl )   ! sums over the global domain 
     155         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 
    161161      ENDIF 
    162162 
Note: See TracChangeset for help on using the changeset viewer.