Changeset 2410 for palm/trunk/SOURCE


Ignore:
Timestamp:
Sep 6, 2017 8:16:30 AM (7 years ago)
Author:
Giersch
Message:

Revise error message PA0462 and change lclocal to lcmuk in testsuite

File:
1 edited

Legend:

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

    r2349 r2410  
    2626! -----------------
    2727! $Id$
     28! Revise error message PA0462
     29!
     30! 2349 2017-08-10 15:44:04Z Giersch
    2831! Add parameter pitch_rate to namelist and revise/add error messages
    2932!
     
    474477       IF ( ANY( omega_rot(1:nturbines) < 0.0 ) )  THEN
    475478          message_string = 'omega_rot < 0.0, Please set omega_rot to '     // &
    476                            'a value larger than zero'
     479                           'a value larger than or equal to zero'
    477480          CALL message( 'wtm_check_parameters', 'PA0462', 1, 2, 0, 6, 0 )
    478481       ENDIF
     
    23502353       min_reg25 = ( slope25 - SQRT( slope25 * ( slope25 - 4.0_wp *            &
    23512354                                                 slope2 * vs_sysp ) ) ) /      &
    2352                    ( 2.0_wp * slope2 )
     2355                   ( 2.0_wp * slope2 ) 
    23532356!
    23542357!--    Frequency for the simple low pass filter
Note: See TracChangeset for help on using the changeset viewer.