Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:
1 edited

Legend:

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

    r3182 r3241  
    2626! -----------------
    2727! $Id$
     28! unused variables removed
     29!
     30! 3182 2018-07-27 13:36:03Z suehring
    2831! Check for vertical stretching has been revised.
    2932!
     
    265268    INTEGER(iwp) ::  nrings_max   !< maximum number of rings (all turbines, required for allocation of arrays)
    266269    INTEGER(iwp) ::  ring         !< ring loop index (ring number)
    267     INTEGER(iwp) ::  rr_int       !<
    268270    INTEGER(iwp) ::  upper_end    !<
    269271
     
    16801682       INTEGER(iwp) ::  inot             !< turbine loop index (turbine id)
    16811683       INTEGER(iwp) ::  iialpha, iir     !<
    1682        INTEGER(iwp) ::  rseg, rseg_int   !<
    1683        INTEGER(iwp) ::  ring, ring_int   !<
     1684       INTEGER(iwp) ::  rseg             !<
     1685       INTEGER(iwp) ::  ring             !<
    16841686       INTEGER(iwp) ::  ii, jj, kk       !<
    16851687   
     
    16961698!
    16971699!      Variables for pitch control
    1698        REAL(wp)     ::  torque_max=0.0_wp
    1699        LOGICAL      ::  pitch_sw=.FALSE.
    1700 
    1701        INTEGER(iwp), DIMENSION(1) :: lct=0
    1702        REAL(wp), DIMENSION(1)     :: rad_d=0.0_wp
     1700       LOGICAL ::  pitch_sw = .FALSE.
     1701
     1702       INTEGER(iwp), DIMENSION(1) ::  lct = 0
     1703       REAL(wp), DIMENSION(1)     ::  rad_d = 0.0_wp
    17031704       
    17041705       REAL(wp) :: tl_factor !< factor for tip loss correction
Note: See TracChangeset for help on using the changeset viewer.