Ignore:
Timestamp:
2018-12-14T17:27:24+01:00 (23 months ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 5 introduce mpp_delay_sum, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mppini.F90

    r10357 r10397  
    182182      ! then we calculate them here now that we have our communicator size 
    183183      IF( jpni < 1 .OR. jpnj < 1 )   CALL mpp_init_bestpartition( mppsize, jpni, jpnj ) 
     184!!$      IF( jpni < 1 .OR. jpnj < 1 ) THEN 
     185!!$         CALL mpp_init_bestpartition( mppsize, jpni, jpnj ) 
     186!!$      ELSE 
     187!!$         CALL mpp_init_bestpartition( mppsize, inbi, inbj ) 
     188!!$         CALL mpp_basic_decomposition( jpni, jpnj, jpimax, jpjmax ) 
     189!!$         CALL mpp_basic_decomposition( inbi, inbj,  iimax,  ijmax ) 
     190!!$         IF( iimax*ijmax < jpimax*jpjmax ) THEN 
     191!!$            WRITE(ctmp1,*) '   The chossen domain decomposition ', jpni, jpnj 
     192!!$            WRITE(ctmp2,*) '   exceeds the maximum number of ocean subdomains = ', inijmin 
     193!!$            WRITE(ctmp3,*) '   we suppressed ', jpni*jpnj - mppsize, ' land subdomains ' 
     194!!$            WRITE(ctmp4,*) '   BUT we had to keep ', mppsize - inijmin, ' land subdomains that are useless...' 
     195!!$            CALL ctl_warn( 'mpp_init:', '~~~~~~~~ ', ctmp1, ctmp2, ctmp3, ctmp4 ) 
     196!!$         ENDIF 
     197!!$      ENDIF 
    184198       
    185199      ! look for land mpi subdomains... 
Note: See TracChangeset for help on using the changeset viewer.