Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (2 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/FLO/flodom.F90

    r10068 r10425  
    193193      !---------------------------------------------- 
    194194      IF( lk_mpp )   THEN  
    195          CALL mpp_sum(ihtest,jpnfl) 
    196          CALL mpp_sum(ivtest,jpnfl) 
     195         CALL mpp_sum('flodom', ihtest,jpnfl) 
     196         CALL mpp_sum('flodom', ivtest,jpnfl) 
    197197      ENDIF 
    198198      DO jfl = kfl_start,kfl_end 
     
    252252      ! The sum of all the arrays zgifl, zgjfl, zgkfl give 3 arrays with the positions of all the floats. 
    253253      IF( lk_mpp )   THEN  
    254          CALL mpp_sum( zgjfl, ifl )   ! sums over the global domain 
    255          CALL mpp_sum( zgkfl, ifl ) 
     254         CALL mpp_sum( 'flodom', zgjfl, ifl )   ! sums over the global domain 
     255         CALL mpp_sum( 'flodom', zgkfl, ifl ) 
    256256      ENDIF 
    257257             
     
    451451                zgifl(jpnfl) , zgjfl(jpnfl) , zgkfl(jpnfl)   , STAT=flo_dom_alloc ) 
    452452      ! 
    453       IF( lk_mpp             )   CALL mpp_sum ( flo_dom_alloc ) 
    454       IF( flo_dom_alloc /= 0 )   CALL ctl_warn('flo_dom_alloc: failed to allocate arrays') 
     453      CALL mpp_sum ( 'flodom', flo_dom_alloc ) 
     454      IF( flo_dom_alloc /= 0 )   CALL ctl_stop( 'STOP', 'flo_dom_alloc: failed to allocate arrays' ) 
    455455   END FUNCTION flo_dom_alloc 
    456456 
Note: See TracChangeset for help on using the changeset viewer.