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/ICB/icbrst.F90

    r10068 r10297  
    141141      IF( lk_mpp ) THEN 
    142142         ! Only mpp_sum ibergs_in_file if we are reading from multiple restart files.  
    143          IF( INDEX(iom_file(ncid)%name,'icebergs.nc' ) .EQ. 0 ) CALL mpp_sum(ibergs_in_file) 
    144          CALL mpp_sum(jn) 
     143         IF( INDEX(iom_file(ncid)%name,'icebergs.nc' ) .EQ. 0 ) CALL mpp_sum('icbrst', ibergs_in_file) 
     144         CALL mpp_sum('icbrst', jn) 
    145145      ENDIF 
    146146      IF( lwp )   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_read: there were',ibergs_in_file,   & 
     
    164164      ENDIF 
    165165      IF( lk_mpp ) THEN 
    166          CALL mpp_sum(ibase_err) 
     166         CALL mpp_sum('icbrst', ibase_err) 
    167167      ENDIF 
    168168      IF( ibase_err > 0 ) THEN 
     
    171171         ! all future icebergs numbers will be greater than the current global maximum 
    172172         IF( lk_mpp ) THEN 
    173             CALL mpp_max(imax_icb) 
     173            CALL mpp_max('icbrst', imax_icb) 
    174174         ENDIF 
    175175         num_bergs(1) = imax_icb - jpnij + narea 
     
    404404            WRITE(numout,'(2(a,i5))') 'icebergs, icb_rst_write: # bergs =',jn,' on PE',narea-1 
    405405         IF( lk_mpp ) THEN 
    406             CALL mpp_sum(jn) 
     406            CALL mpp_sum('icbrst', jn) 
    407407         ENDIF 
    408408         IF(lwp)   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_write: ', jn,   & 
Note: See TracChangeset for help on using the changeset viewer.