Ignore:
Timestamp:
Mar 27, 2015 9:56:27 AM (9 years ago)
Author:
raasch
Message:

optimized multigrid method installed, new parameter seed_follows_topography for particle release, small adjustment in subjob for HLRN

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r1561 r1575  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! adjustments for psolver-queries, output of seed_follows_topography
    2323!
    2424! Former revisions:
     
    227227               particles_per_point, pdx, pdy, pdz,  psb, psl, psn, psr, pss,   &
    228228               pst, radius, radius_classes, random_start_position,             &
     229               seed_follows_topography,                                        &
    229230               total_number_of_particles, use_particle_tails,                  &
    230231               use_sgs_for_particles, total_number_of_tails,                   &
     
    424425    ELSEIF ( psolver == 'sor' )  THEN
    425426       WRITE ( io, 112 )  nsor_ini, nsor, omega_sor
    426     ELSEIF ( psolver == 'multigrid' )  THEN
    427        WRITE ( io, 135 )  cycle_mg, maximum_grid_level, ngsrb
     427    ELSEIF ( psolver(1:9) == 'multigrid' )  THEN
     428       WRITE ( io, 135 )  TRIM(psolver), cycle_mg, maximum_grid_level, ngsrb
    428429       IF ( mg_cycles == -1 )  THEN
    429430          WRITE ( io, 140 )  residual_limit
     
    17881789       IF ( use_sgs_for_particles )  WRITE ( io, 488 )  dt_min_part
    17891790       IF ( random_start_position )  WRITE ( io, 481 )
     1791       IF ( seed_follows_topography )  WRITE ( io, 496 )
    17901792       IF ( particles_per_point > 1 )  WRITE ( io, 489 )  particles_per_point
    17911793       WRITE ( io, 495 )  total_number_of_particles
     
    19071909133 FORMAT ('     Precipitation parameterization via Kessler-Scheme')
    19081910134 FORMAT (' --> Additional prognostic equation for a passive scalar')
    1909 135 FORMAT (' --> Solve perturbation pressure via multigrid method (', &
     1911135 FORMAT (' --> Solve perturbation pressure via ',A,' method (', &
    19101912                  A,'-cycle)'/ &
    19111913            '     number of grid levels:                   ',I2/ &
     
    23262328                    F8.2,' s'/)
    23272329495 FORMAT ('       Number of particles in total domain: ',I10/)
     2330496 FORMAT ('       Initial vertical particle positions are interpreted ', &
     2331                    'as relative to the given topography')
    23282332500 FORMAT (//' 1D-Model parameters:'/                           &
    23292333              ' -------------------'//                           &
Note: See TracChangeset for help on using the changeset viewer.