Changeset 2932 for palm/trunk/SOURCE/wind_turbine_model_mod.f90

Timestamp:

Mar 26, 2018 9:39:22 AM (6 years ago)

Author:

maronga

Message:

renamed all Fortran NAMELISTS

File:

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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! renamed wind_turbine_par to wind_turbine_parameters
+! 
+! 2894 2018-03-15 09:17:58Z Giersch
 ! variable named found has been introduced for checking if restart data was 
 ! found, reading of restart strings has been moved completely to 
@@ -493 +496 @@
                                   turb_cd_nacelle, turb_cd_tower, pitch_rate,  &
                                   yaw_control, yaw_speed, tl_cor
-
+                                  
+       NAMELIST /wind_turbine_parameters/                                      &
+                                  air_dens, dtow, gear_eff, gear_ratio,        &
+                                  gen_eff, inertia_gen, inertia_rot, max_miss, &
+                                  max_torque_gen, max_trq_rate, min_miss,      &
+                                  min_reg15, min_reg2, nairfoils, nturbines,   &
+                                  omega_rot, phi_yaw, pitch_add, pitch_control,&
+                                  rated_genspeed, rated_power, rcx, rcy, rcz,  &
+                                  rnac, rr, segment_length, segment_width,     &
+                                  slope2, speed_control, tilt, time_turbine_on,&
+                                  turb_cd_nacelle, turb_cd_tower, pitch_rate,  &
+                                  yaw_control, yaw_speed, tl_cor
 !
 !--    Try to find wind turbine model package
        REWIND ( 11 )
        line = ' '
+       DO  WHILE ( INDEX( line, '&wind_turbine_parameters' ) == 0 )
+          READ ( 11, '(A)', END=10 )  line
+       ENDDO
+       BACKSPACE ( 11 )
+
+!
+!--    Read user-defined namelist
+       READ ( 11, wind_turbine_parameters, IOSTAT=ierrn )
+
+       IF ( ierrn < 0 )  THEN
+          message_string = 'no wind_turbine_parameters-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_parameters-NAMELIST: '  //   &
+                           'some variables for steering may not be properly set'
+          CALL message( 'wtm_parin', 'PA0466', 1, 2, 0, 6, 0 )               
+       ENDIF
+       
+!
+!--    Set flag that indicates that the wind turbine model is switched on
+       wind_turbine = .TRUE.
+       
+       GOTO 12
+
+!
+!--    Try to find wind turbine model package
+ 10    REWIND ( 11 )
+       line = ' '
        DO  WHILE ( INDEX( line, '&wind_turbine_par' ) == 0 )
-          READ ( 11, '(A)', END=10 )  line
+          READ ( 11, '(A)', END=12 )  line
        ENDDO
        BACKSPACE ( 11 )
@@ -512 +555 @@
           CALL message( 'wtm_parin', 'PA0460', 1, 2, 0, 6, 0 )
        ELSEIF ( ierrn > 0 ) THEN
-          message_string = 'errors in wind_turbine_par-NAMELIST: '  //          &
+          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
-       
+      
+       message_string = 'namelist wind_tubrine_par is deprecated and will ' // &
+                        'be removed in near future. Please &use namelist ' //  &
+                        'wind_turbine_parameters instead' 
+       CALL message( 'wtm_parin', 'PA0487', 0, 1, 0, 6, 0 )     
+      
 !
 !--    Set flag that indicates that the wind turbine model is switched on
        wind_turbine = .TRUE.
 
-
- 10    CONTINUE   ! TBD Change from continue, mit ierrn machen
+ 12    CONTINUE   ! TBD Change from continue, mit ierrn machen