Changeset 825 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Feb 19, 2012 3:03:44 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r824 r825 1478 1478 WRITE ( io, 433 ) 1479 1479 IF ( curvature_solution_effects ) WRITE ( io, 434 ) 1480 IF ( collision_kernel /= 'none' ) THEN 1481 WRITE ( io, 435 ) TRIM( collision_kernel ) 1482 ELSE 1483 WRITE ( io, 436 ) 1484 ENDIF 1480 1485 ENDIF 1481 1486 … … 1955 1960 434 FORMAT (' Curvature and solution effecs are considered for growth of', & 1956 1961 ' droplets < 1.0E-6 m') 1962 435 FORMAT (' Droplet collision is handled by ',A,'-kernel') 1963 436 FORMAT (' Droplet collision is switched off') 1957 1964 450 FORMAT (//' LES / Turbulence quantities:'/ & 1958 1965 ' ---------------------------'/)
Note: See TracChangeset
for help on using the changeset viewer.