Changeset 2349 for palm/trunk/SOURCE

Timestamp:

Aug 10, 2017 3:44:04 PM (7 years ago)

Author:

Giersch

Message:

Add parameter ptich_rate to namelist and revise/add error messages

File:

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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Add parameter pitch_rate to namelist and revise/add error messages 
+! 
+! 2343 2017-08-08 11:28:43Z Giersch
 ! Unit correction in Doxygen comments
 ! 
@@ -423 +426 @@
                                   rnac, rr, segment_length, segment_width,     &
                                   slope2, speed_control, tilt, time_turbine_on,&
-                                  turb_cd_nacelle, turb_cd_tower,              &
+                                  turb_cd_nacelle, turb_cd_tower, pitch_rate,  &
                                   yaw_control, yaw_speed, tl_cor
 
@@ -438 +441 @@
 !--    Read user-defined namelist
        READ ( 11, wind_turbine_par, IOSTAT=ierrn )
-       
+
        IF ( ierrn < 0 )  THEN
-          message_string = 'errors in \$wind_turbine_par'
+          message_string = 'no wind_turbine_par-NAMELIST found: '  //          &
+                           'End of file has reached'
           CALL message( 'wtm_parin', 'PA0460', 1, 2, 0, 6, 0 )
+       ELSEIF ( ierrn > 0 ) THEN
+          message_string = 'errors in wind_turbine_par-NAMELIST: '  //          &
+                           'some variables for steering may not be properly set'
+          CALL message( 'wtm_parin', 'PA0466', 1, 2, 0, 6, 0 )               
        ENDIF