Changeset 237 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Feb 16, 2009 9:57:56 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r226 r237 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Output of cluster_size 7 7 ! 8 8 ! Former revisions: … … 952 952 i = i + 1 953 953 ENDDO 954 955 IF ( TRIM( topography ) /= 'flat' .AND. cluster_size > 1 ) THEN 956 WRITE ( io, 364 ) cluster_size 957 ENDIF 958 954 959 ENDIF 955 960 #endif … … 1503 1508 362 FORMAT (' Sectional plane ',A) 1504 1509 363 FORMAT (' Particles') 1510 364 FORMAT (/' Polygon reduction for topography: cluster_size = ', I1) 1505 1511 #endif 1506 1512 #if defined( __spectra )
Note: See TracChangeset
for help on using the changeset viewer.