Changeset 2410 for palm/trunk/SOURCE

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:

• palm/trunk/SOURCE/wind_turbine_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Revise error message PA0462
+! 
+! 2349 2017-08-10 15:44:04Z Giersch
 ! Add parameter pitch_rate to namelist and revise/add error messages 
 ! 
@@ -474 +477 @@
        IF ( ANY( omega_rot(1:nturbines) < 0.0 ) )  THEN
           message_string = 'omega_rot < 0.0, Please set omega_rot to '     // &
-                           'a value larger than zero'
+                           'a value larger than or equal to zero'
           CALL message( 'wtm_check_parameters', 'PA0462', 1, 2, 0, 6, 0 )
        ENDIF
@@ -2350 +2353 @@
        min_reg25 = ( slope25 - SQRT( slope25 * ( slope25 - 4.0_wp *            &
                                                  slope2 * vs_sysp ) ) ) /      &
-                   ( 2.0_wp * slope2 )
+                   ( 2.0_wp * slope2 ) 
 !
 !--    Frequency for the simple low pass filter