Ignore:
Timestamp:
Mar 17, 2017 1:33:05 PM (4 years ago)
Author:
hellstea
Message:

Checks to ensure (2178) that pdims match the grid dimensions in the

File:
1 edited

Legend:

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

    r2179 r2180  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Checks to ensure (2178) that pdims match the grid dimensions in the
     23! automatic determination of pdims are canceled as unnecessary
    2324!
    2425! Former revisions:
     
    265266       numproc_sqr = SQRT( REAL( numprocs, KIND=wp ) )
    266267       pdims(1)    = MAX( numproc_sqr , 1 )
     268       DO  WHILE ( MOD( numprocs , pdims(1) ) /= 0 )
     269          pdims(1) = pdims(1) - 1
     270       ENDDO
    267271       pdims(2) = numprocs / pdims(1)
    268        DO  WHILE ( MOD( numprocs , pdims(1) ) /= 0  .OR.                        &
    269               MOD( nx+1, pdims(1) ) /= 0  .OR.                                  &
    270               MOD( ny+1, pdims(2) ) /= 0 )
    271           pdims(1) = pdims(1) - 1
    272           pdims(2) = numprocs / pdims(1)
    273        ENDDO
    274272
    275273    ELSEIF ( npex /= -1  .AND.  npey /= -1 )  THEN
Note: See TracChangeset for help on using the changeset viewer.