New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10297 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD – NEMO

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

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

Location:
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdglo.F90

    r10068 r10297  
    249249         ! --------------------------------- 
    250250         IF( lk_mpp ) THEN 
    251             CALL mpp_sum( peke ) 
    252             CALL mpp_sum( umo , jptot_dyn ) 
    253             CALL mpp_sum( vmo , jptot_dyn ) 
    254             CALL mpp_sum( hke , jptot_dyn ) 
     251            CALL mpp_sum( 'trdglo', peke ) 
     252            CALL mpp_sum( 'trdglo', umo , jptot_dyn ) 
     253            CALL mpp_sum( 'trdglo', vmo , jptot_dyn ) 
     254            CALL mpp_sum( 'trdglo', hke , jptot_dyn ) 
    255255         ENDIF 
    256256 
    … …  
    392392         ! ------------------------------- 
    393393         IF( lk_mpp ) THEN 
    394             CALL mpp_sum( tmo, jptot_tra )    
    395             CALL mpp_sum( smo, jptot_tra ) 
    396             CALL mpp_sum( t2 , jptot_tra ) 
    397             CALL mpp_sum( s2 , jptot_tra ) 
     394            CALL mpp_sum( 'trdglo', tmo, jptot_tra )    
     395            CALL mpp_sum( 'trdglo', smo, jptot_tra ) 
     396            CALL mpp_sum( 'trdglo', t2 , jptot_tra ) 
     397            CALL mpp_sum( 'trdglo', s2 , jptot_tra ) 
    398398         ENDIF 
    399399 
    … …  
    526526         tvolt = tvolt + SUM( e1e2t(:,:) * e3t_n(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) ) 
    527527      END DO 
    528       IF( lk_mpp )   CALL mpp_sum( tvolt )   ! sum over the global domain 
     528      IF( lk_mpp )   CALL mpp_sum( 'trdglo', tvolt )   ! sum over the global domain 
    529529 
    530530      IF(lwp) WRITE(numout,*) '                total ocean volume at T-point   tvolt = ',tvolt 
    … …  
    546546         END DO 
    547547      END DO 
    548       IF( lk_mpp )   CALL mpp_sum( tvolu )   ! sums over the global domain 
    549       IF( lk_mpp )   CALL mpp_sum( tvolv ) 
     548      IF( lk_mpp )   CALL mpp_sum( 'trdglo', tvolu )   ! sums over the global domain 
     549      IF( lk_mpp )   CALL mpp_sum( 'trdglo', tvolv ) 
    550550 
    551551      IF(lwp) THEN 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdken.F90

    r10170 r10297  
    5454      ALLOCATE( bu(jpi,jpj,jpk) , bv(jpi,jpj,jpk) , r1_bt(jpi,jpj,jpk) , STAT= trd_ken_alloc ) 
    5555      ! 
    56       IF( lk_mpp             )   CALL mpp_sum ( trd_ken_alloc ) 
     56      IF( lk_mpp             )   CALL mpp_sum ( 'trdken', trd_ken_alloc ) 
    5757      IF( trd_ken_alloc /= 0 )   CALL ctl_warn('trd_ken_alloc: failed to allocate arrays') 
    5858   END FUNCTION trd_ken_alloc 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdmxl.F90

    r10170 r10297  
    8181      ALLOCATE( ndextrd1(jpi*jpj) , STAT=trd_mxl_alloc ) 
    8282      ! 
    83       IF( lk_mpp             )   CALL mpp_sum ( trd_mxl_alloc ) 
     83      IF( lk_mpp             )   CALL mpp_sum ( 'trdmxl', trd_mxl_alloc ) 
    8484      IF( trd_mxl_alloc /= 0 )   CALL ctl_warn('trd_mxl_alloc: failed to allocate array ndextrd1') 
    8585   END FUNCTION trd_mxl_alloc 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdmxl_oce.F90

    r10068 r10297  
    127127      ! 
    128128      trdmxl_oce_alloc = MAXVAL( ierr ) 
    129       IF( lk_mpp                )   CALL mpp_sum ( trdmxl_oce_alloc ) 
     129      IF( lk_mpp                )   CALL mpp_sum ( 'trdmxl_oce', trdmxl_oce_alloc ) 
    130130      IF( trdmxl_oce_alloc /= 0 )   CALL ctl_warn('trdmxl_oce_alloc: failed to allocate arrays') 
    131131      ! 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdpen.F90

    r10068 r10297  
    5050      ALLOCATE( rab_pe(jpi,jpj,jpk,jpts) , STAT= trd_pen_alloc ) 
    5151      ! 
    52       IF( lk_mpp             )   CALL mpp_sum ( trd_pen_alloc ) 
     52      IF( lk_mpp             )   CALL mpp_sum ( 'trdpen', trd_pen_alloc ) 
    5353      IF( trd_pen_alloc /= 0 )   CALL ctl_warn( 'trd_pen_alloc: failed to allocate arrays' ) 
    5454   END FUNCTION trd_pen_alloc 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdtra.F90

    r10068 r10297  
    5555      ALLOCATE( trdtx(jpi,jpj,jpk) , trdty(jpi,jpj,jpk) , trdt(jpi,jpj,jpk) , avt_evd(jpi,jpj,jpk), STAT= trd_tra_alloc ) 
    5656      ! 
    57       IF( lk_mpp             )   CALL mpp_sum ( trd_tra_alloc ) 
     57      IF( lk_mpp             )   CALL mpp_sum ( 'trdtra', trd_tra_alloc ) 
    5858      IF( trd_tra_alloc /= 0 )   CALL ctl_warn('trd_tra_alloc: failed to allocate arrays') 
    5959   END FUNCTION trd_tra_alloc 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRD/trdvor.F90

    r10170 r10297  
    7373         &      ndexvor1  (jpi*jpj)                                ,   STAT= trd_vor_alloc ) 
    7474         ! 
    75       IF( lk_mpp             )   CALL mpp_sum ( trd_vor_alloc ) 
     75      IF( lk_mpp             )   CALL mpp_sum ( 'trdvor', trd_vor_alloc ) 
    7676      IF( trd_vor_alloc /= 0 )   CALL ctl_warn('trd_vor_alloc: failed to allocate arrays') 
    7777   END FUNCTION trd_vor_alloc 
Note: See TracChangeset for help on using the changeset viewer.