Changeset 1575 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Mar 27, 2015 9:56:27 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r1561 r1575 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! adjustments for psolver-queries, output of seed_follows_topography 23 23 ! 24 24 ! Former revisions: … … 227 227 particles_per_point, pdx, pdy, pdz, psb, psl, psn, psr, pss, & 228 228 pst, radius, radius_classes, random_start_position, & 229 seed_follows_topography, & 229 230 total_number_of_particles, use_particle_tails, & 230 231 use_sgs_for_particles, total_number_of_tails, & … … 424 425 ELSEIF ( psolver == 'sor' ) THEN 425 426 WRITE ( io, 112 ) nsor_ini, nsor, omega_sor 426 ELSEIF ( psolver == 'multigrid' ) THEN427 WRITE ( io, 135 ) cycle_mg, maximum_grid_level, ngsrb427 ELSEIF ( psolver(1:9) == 'multigrid' ) THEN 428 WRITE ( io, 135 ) TRIM(psolver), cycle_mg, maximum_grid_level, ngsrb 428 429 IF ( mg_cycles == -1 ) THEN 429 430 WRITE ( io, 140 ) residual_limit … … 1788 1789 IF ( use_sgs_for_particles ) WRITE ( io, 488 ) dt_min_part 1789 1790 IF ( random_start_position ) WRITE ( io, 481 ) 1791 IF ( seed_follows_topography ) WRITE ( io, 496 ) 1790 1792 IF ( particles_per_point > 1 ) WRITE ( io, 489 ) particles_per_point 1791 1793 WRITE ( io, 495 ) total_number_of_particles … … 1907 1909 133 FORMAT (' Precipitation parameterization via Kessler-Scheme') 1908 1910 134 FORMAT (' --> Additional prognostic equation for a passive scalar') 1909 135 FORMAT (' --> Solve perturbation pressure via multigridmethod (', &1911 135 FORMAT (' --> Solve perturbation pressure via ',A,' method (', & 1910 1912 A,'-cycle)'/ & 1911 1913 ' number of grid levels: ',I2/ & … … 2326 2328 F8.2,' s'/) 2327 2329 495 FORMAT (' Number of particles in total domain: ',I10/) 2330 496 FORMAT (' Initial vertical particle positions are interpreted ', & 2331 'as relative to the given topography') 2328 2332 500 FORMAT (//' 1D-Model parameters:'/ & 2329 2333 ' -------------------'// &
Note: See TracChangeset
for help on using the changeset viewer.