Changeset 1322 for palm/trunk/SOURCE/init_pegrid.f90
- Timestamp:
- Mar 20, 2014 4:38:49 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_pegrid.f90
r1321 r1322 19 19 ! 20 20 ! Current revisions: 21 ! ----------------- 21 ! ------------------ 22 ! REAL functions provided with KIND-attribute 22 23 ! 23 24 ! Former revisions: … … 174 175 ! 175 176 !-- Automatic determination of the topology 176 numproc_sqr = SQRT( REAL( numprocs ) )177 numproc_sqr = SQRT( REAL( numprocs, KIND=wp ) ) 177 178 pdims(1) = MAX( numproc_sqr , 1 ) 178 179 DO WHILE ( MOD( numprocs , pdims(1) ) /= 0 )
Note: See TracChangeset
for help on using the changeset viewer.