Ignore:
Timestamp:
2018-12-17T17:07:54+01:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: no more need of lk_mpp for mpp_sum/max/min, see #2133

Location:
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/diawri.F90

    r10380 r10402  
    110110      ! 
    111111      ALLOCATE( ndex_hT(jpi*jpj), ndex_hU(jpi*jpj), ndex_hV(jpi*jpj), STAT=dia_wri_alloc ) 
    112       IF( lk_mpp )   CALL mpp_sum( 'diawri', dia_wri_alloc ) 
     112      CALL mpp_sum( 'diawri', dia_wri_alloc ) 
    113113      ! 
    114114   END FUNCTION dia_wri_alloc 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/nemogcm.F90

    r10297 r10402  
    9494      ! check that all process are still there... If some process have an error, 
    9595      ! they will never enter in step and other processes will wait until the end of the cpu time! 
    96       IF( lk_mpp )   CALL mpp_max( 'nemogcm', nstop ) 
     96      CALL mpp_max( 'nemogcm', nstop ) 
    9797 
    9898      IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
     
    486486      ierr = ierr + bdy_oce_alloc()          ! bdy masks (incl. initialization) 
    487487      ! 
    488       IF( lk_mpp    )   CALL mpp_sum( 'nemogcm', ierr ) 
     488      CALL mpp_sum( 'nemogcm', ierr ) 
    489489      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 
    490490      ! 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/SAS/stpctl.F90

    r10358 r10402  
    9191         zmax(2) = MAXVAL( ABS( u_ice(:,:) ) )                                         ! max ice velocity (zonal only) 
    9292         zmax(3) = MAXVAL(     -tm_i (:,:)+273.15_wp , mask = ssmask(:,:) == 1._wp )   ! min ice temperature 
    93          IF( lk_mpp ) CALL mpp_max( "stpctl", zmax )                                   ! max over the global domain 
     93         CALL mpp_max( "stpctl", zmax )                                   ! max over the global domain 
    9494      END IF 
    9595      !                                            !==  run statistics  ==!   ("run.stat" file) 
Note: See TracChangeset for help on using the changeset viewer.