Changeset 2180 for palm

Timestamp:

Mar 17, 2017 1:33:05 PM (8 years ago)

Author:

hellstea

Message:

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

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Checks to ensure (2178) that pdims match the grid dimensions in the
+! automatic determination of pdims are canceled as unnecessary
 ! 
 ! Former revisions:
@@ -265 +266 @@
        numproc_sqr = SQRT( REAL( numprocs, KIND=wp ) )
        pdims(1)    = MAX( numproc_sqr , 1 )
+       DO  WHILE ( MOD( numprocs , pdims(1) ) /= 0 )
+          pdims(1) = pdims(1) - 1
+       ENDDO
        pdims(2) = numprocs / pdims(1)
-       DO  WHILE ( MOD( numprocs , pdims(1) ) /= 0  .OR.                        &
-              MOD( nx+1, pdims(1) ) /= 0  .OR.                                  &
-              MOD( ny+1, pdims(2) ) /= 0 ) 
-          pdims(1) = pdims(1) - 1
-          pdims(2) = numprocs / pdims(1)
-       ENDDO
 
     ELSEIF ( npex /= -1  .AND.  npey /= -1 )  THEN