Commit 259912f6 authored by gepir's avatar gepir
Browse files

moved 'newtimestep' variable

parent 6b581e65
......@@ -277,7 +277,6 @@ subroutine init_regulation(array1, array2) bind(c, name='init_regulation')
TAve_Pitch = 0.0_mk
! Initiate the dynamic variables
stepno = 0
newtimestep = .TRUE.
time_old = 0.0_mk
AddedPitchRate = 0.0_mk
PitchAngles=0.0_mk
......
......@@ -8,6 +8,7 @@ module dtu_we_controller_fcns
! Constants
integer maxwplines
parameter(maxwplines=100)
logical :: newtimestep=.TRUE.
! Types
type Tpidvar
real(mk) Kpro,Kdif,Kint,outmin,outmax,velmax,error1,outset1,outres1
......
......@@ -18,7 +18,6 @@ module turbine_controller_mod
real(mk) TAve_Pitch,DeltaPitchThreshold,AveragedMeanPitchAngles(3),AveragedPitchReference(3)
! Dynamic variables
integer :: stepno = 0, w_region = 0
logical :: newtimestep
real(mk) AddedPitchRate, PitchColRef0, GenTorqueRef0
real(mk) :: PitchColRefOld=0.0_mk
real(mk) :: GenTorqueRefOld=0.0_mk
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment