Ignore:
Timestamp:
Jun 12, 2018 7:03:02 AM (3 years ago)
Author:
Giersch
Message:

New vertical stretching procedure has been introduced

File:
1 edited

Legend:

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

    r3049 r3065  
    2525! -----------------
    2626! $Id$
     27! dz was replaced by dz(1), error message revised
     28!
     29! 3049 2018-05-29 13:52:36Z Giersch
    2730! add variable description
    2831!
     
    41784181    IF ( ( constant_flux_layer .OR.  &
    41794182           INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 )       &
    4180          .AND. roughness_length >= 0.5 * dz )  THEN
     4183         .AND. roughness_length >= 0.5 * dz(1) )  THEN
    41814184       message_string = 'roughness_length must be smaller than dz/2'
    41824185       CALL message( 'check_parameters', 'PA0424', 1, 2, 0, 6, 0 )
     
    41984201!-- Check if vertical grid stretching is switched off in case of complex
    41994202!-- terrain simulations
    4200     IF ( complex_terrain  .AND.  dz_stretch_level < 100000.0_wp )  THEN
     4203    IF ( complex_terrain  .AND.                                                &
     4204         ANY( dz_stretch_level_start /= -9999999.9_wp ) )  THEN
    42014205       message_string = 'Vertical grid stretching is not allowed for ' //      &
    42024206                        'complex_terrain = .T.'
Note: See TracChangeset for help on using the changeset viewer.