Ignore:
Timestamp:
Nov 6, 2012 2:36:29 AM (9 years ago)
Author:
raasch
Message:

2d virtual processor topology is used by default for all machines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_pegrid.f90

    r1037 r1041  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! a 2d-topology is used by default for all machines
    2323!
    2424! Former revisions:
     
    184184!
    185185!--    Automatic determination of the topology
    186 !--    The default on SMP- and cluster-hosts is a 1d-decomposition along x
    187        IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec'      .OR. &
    188             ( host(1:2) == 'lc'  .AND.  host(3:5) /= 'sgi'  .AND.  &
    189               host(3:4) /= 'xt'  .AND.  host(3:5) /= 'tit'  .AND.  &
    190               host(3:6) /= 'flow' )  .OR.  host(1:3) == 'dec' )  THEN
    191 
    192           pdims(1) = numprocs
    193           pdims(2) = 1
    194 
    195        ELSE
    196 
    197           numproc_sqr = SQRT( REAL( numprocs ) )
    198           pdims(1)    = MAX( numproc_sqr , 1 )
    199           DO  WHILE ( MOD( numprocs , pdims(1) ) /= 0 )
    200              pdims(1) = pdims(1) - 1
    201           ENDDO
    202           pdims(2) = numprocs / pdims(1)
    203 
    204        ENDIF
     186       numproc_sqr = SQRT( REAL( numprocs ) )
     187       pdims(1)    = MAX( numproc_sqr , 1 )
     188       DO  WHILE ( MOD( numprocs , pdims(1) ) /= 0 )
     189          pdims(1) = pdims(1) - 1
     190       ENDDO
     191       pdims(2) = numprocs / pdims(1)
    205192
    206193    ELSEIF ( npex /= -1  .AND.  npey /= -1 )  THEN
Note: See TracChangeset for help on using the changeset viewer.