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/DYN/wet_dry.F90

    r10170 r10297  
    243243         CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 
    244244         ! 
    245          IF( lk_mpp )   CALL mpp_max(jflag)   !max over the global domain 
     245         IF( lk_mpp )   CALL mpp_max('wet_dry', jflag)   !max over the global domain 
    246246         ! 
    247247         IF( jflag == 0 )   EXIT 
     
    372372         CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 
    373373         ! 
    374          IF(lk_mpp) CALL mpp_max(jflag)   !max over the global domain 
     374         IF(lk_mpp) CALL mpp_max('wet_dry', jflag)   !max over the global domain 
    375375         ! 
    376376         IF(jflag == 0)   EXIT 
Note: See TracChangeset for help on using the changeset viewer.