Changeset 1824 for palm


Ignore:
Timestamp:
Apr 7, 2016 9:55:29 AM (8 years ago)
Author:
gronemeier
Message:

check if roughness_length < dz/2

File:
1 edited

Legend:

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

    r1823 r1824  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Check if roughness_length < dz/2. Moved location_message(finished) to the end.
    2222!
    2323! Former revisions:
     
    40704070    ENDIF
    40714071
    4072     CALL location_message( 'finished', .TRUE. )
    4073 
    40744072!
    40754073!-- Prevent empty time records in volume, cross-section and masked data in case of
     
    40954093    ENDIF
    40964094
     4095!
     4096!-- Check roughness length, which has to be smaller than dz/2
     4097    IF ( ( constant_flux_layer .OR.  &
     4098           INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 ) &
     4099         .AND. roughness_length <= 0.5 * dz )  THEN
     4100       message_string = 'roughness_length must be smaller than dz/2'
     4101       CALL message( 'check_parameters', 'PA0424', 1, 2, 0, 6, 0 )
     4102    ENDIF
     4103
     4104    CALL location_message( 'finished', .TRUE. )
    40974105!
    40984106!-- Check &userpar parameters
Note: See TracChangeset for help on using the changeset viewer.