Ignore:
Timestamp:
Aug 10, 2017 3:44:04 PM (4 years ago)
Author:
Giersch
Message:

Add parameter ptich_rate to namelist and revise/add error messages

File:
1 edited

Legend:

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

    r2343 r2349  
    2626! -----------------
    2727! $Id$
     28! Add parameter pitch_rate to namelist and revise/add error messages
     29!
     30! 2343 2017-08-08 11:28:43Z Giersch
    2831! Unit correction in Doxygen comments
    2932!
     
    423426                                  rnac, rr, segment_length, segment_width,     &
    424427                                  slope2, speed_control, tilt, time_turbine_on,&
    425                                   turb_cd_nacelle, turb_cd_tower,              &
     428                                  turb_cd_nacelle, turb_cd_tower, pitch_rate,  &
    426429                                  yaw_control, yaw_speed, tl_cor
    427430
     
    438441!--    Read user-defined namelist
    439442       READ ( 11, wind_turbine_par, IOSTAT=ierrn )
    440        
     443
    441444       IF ( ierrn < 0 )  THEN
    442           message_string = 'errors in \$wind_turbine_par'
     445          message_string = 'no wind_turbine_par-NAMELIST found: '  //          &
     446                           'End of file has reached'
    443447          CALL message( 'wtm_parin', 'PA0460', 1, 2, 0, 6, 0 )
     448       ELSEIF ( ierrn > 0 ) THEN
     449          message_string = 'errors in wind_turbine_par-NAMELIST: '  //          &
     450                           'some variables for steering may not be properly set'
     451          CALL message( 'wtm_parin', 'PA0466', 1, 2, 0, 6, 0 )               
    444452       ENDIF
    445453       
Note: See TracChangeset for help on using the changeset viewer.