Changeset 237 for palm/trunk/SOURCE/header.f90

Timestamp:

Feb 16, 2009 9:57:56 AM (15 years ago)

Author:

raasch

Message:

polygon reduction for topography and ground plate isosurface (dvr)

File:

• palm/trunk/SOURCE/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Output of cluster_size
 !
 ! Former revisions:
@@ -952 +952 @@
           i = i + 1
        ENDDO
+
+       IF ( TRIM( topography ) /= 'flat'  .AND.  cluster_size > 1 )  THEN
+          WRITE ( io, 364 )  cluster_size
+       ENDIF
+
     ENDIF
 #endif
@@ -1503 +1508 @@
 362 FORMAT ('       Sectional plane ',A)
 363 FORMAT ('       Particles')
+364 FORMAT (/'       Polygon reduction for topography: cluster_size = ', I1)
 #endif
 #if defined( __spectra )