Changeset 1214 for palm/trunk


Ignore:
Timestamp:
Aug 21, 2013 12:29:17 PM (11 years ago)
Author:
kanani
Message:

additional check for simultaneous use of vertical grid stretching

File:
1 edited

Legend:

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

    r1213 r1214  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! additional check for simultaneous use of vertical grid stretching
     23! and particle advection
    2324!
    2425! Former revisions:
     
    568569
    569570    END SELECT
     571
     572!
     573!-- Check if vertical grid stretching is used together with particles
     574    IF ( dz_stretch_level < 100000.0 .AND. particle_advection )  THEN
     575       message_string = 'Vertical grid stretching is not allowed together ' // &
     576                        'with particle advection.'
     577       CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )
     578    ENDIF
    570579
    571580!
Note: See TracChangeset for help on using the changeset viewer.