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

Location:
NEMO/trunk/src/OCE/FLO
Files:
5 edited

Legend:

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

    r10068 r10425  
    6464         &      tpifl(jpnfl)    , tpjfl(jpnfl)  , tpkfl(jpnfl)   , STAT=flo_oce_alloc ) 
    6565      ! 
    66       IF( lk_mpp             )   CALL mpp_sum ( flo_oce_alloc ) 
    67       IF( flo_oce_alloc /= 0 )   CALL ctl_warn('flo_oce_alloc: failed to allocate arrays') 
     66      CALL mpp_sum ( 'flo_oce', flo_oce_alloc ) 
     67      IF( flo_oce_alloc /= 0 )   CALL ctl_stop( 'STOP', 'flo_oce_alloc: failed to allocate arrays' ) 
    6868   END FUNCTION flo_oce_alloc 
    6969 
  • NEMO/trunk/src/OCE/FLO/floblk.F90

    r10068 r10425  
    330330       
    331331      ! synchronisation 
    332       IF( lk_mpp )   CALL mpp_sum( zgifl , jpnfl )   ! sums over the global domain 
    333       IF( lk_mpp )   CALL mpp_sum( zgjfl , jpnfl ) 
    334       IF( lk_mpp )   CALL mpp_sum( zgkfl , jpnfl ) 
    335       IF( lk_mpp )   CALL mpp_sum( zagefl, jpnfl ) 
    336       IF( lk_mpp )   CALL mpp_sum( iil   , jpnfl ) 
    337       IF( lk_mpp )   CALL mpp_sum( ijl   , jpnfl ) 
     332      CALL mpp_sum( 'floblk', zgifl , jpnfl )   ! sums over the global domain 
     333      CALL mpp_sum( 'floblk', zgjfl , jpnfl ) 
     334      CALL mpp_sum( 'floblk', zgkfl , jpnfl ) 
     335      CALL mpp_sum( 'floblk', zagefl, jpnfl ) 
     336      CALL mpp_sum( 'floblk', iil   , jpnfl ) 
     337      CALL mpp_sum( 'floblk', ijl   , jpnfl ) 
    338338       
    339339      ! Test to know if a  float hasn't integrated enought time 
  • 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 
  • NEMO/trunk/src/OCE/FLO/florst.F90

    r10068 r10425  
    3939      ALLOCATE( iperproc(jpnij), STAT=flo_rst_alloc ) 
    4040      !   
    41       IF( lk_mpp             )   CALL mpp_sum ( flo_rst_alloc ) 
    42       IF( flo_rst_alloc /= 0 )   CALL ctl_warn('flo_rst_alloc: failed to allocate arrays.') 
     41      CALL mpp_sum ( 'florst', flo_rst_alloc ) 
     42      IF( flo_rst_alloc /= 0 )   CALL ctl_stop( 'STOP', 'flo_rst_alloc: failed to allocate arrays.' ) 
    4343   END FUNCTION flo_rst_alloc 
    4444 
     
    109109               ENDIF 
    110110            END DO 
    111             CALL mpp_sum( iperproc, jpnij ) 
     111            CALL mpp_sum( 'florst', iperproc, jpnij ) 
    112112            ! 
    113113            IF(lwp) THEN 
  • NEMO/trunk/src/OCE/FLO/flowri.F90

    r10068 r10425  
    5151                zlon(jpnfl) , zlat(jpnfl) , zdep(jpnfl) , STAT=flo_wri_alloc) 
    5252      !   
    53       IF( lk_mpp             )   CALL mpp_sum ( flo_wri_alloc ) 
    54       IF( flo_wri_alloc /= 0 )   CALL ctl_warn('flo_wri_alloc: failed to allocate arrays.') 
     53      CALL mpp_sum ( 'flowri', flo_wri_alloc ) 
     54      IF( flo_wri_alloc /= 0 )   CALL ctl_stop( 'STOP', 'flo_wri_alloc: failed to allocate arrays.' ) 
    5555   END FUNCTION flo_wri_alloc 
    5656 
     
    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.