TYPE EnvironmentData
CHARACTER(len=100) :: Title = Blank ! Environment name
CHARACTER(len=100) :: cKindOfEnvrn = Blank ! kind of environment
INTEGER :: KindOfEnvrn = 0 ! Type of environment (see Parameters for KindOfSim in DataGlobals)
INTEGER :: TotalDays = 0 ! Number of days in environment
INTEGER :: StartJDay = 0 ! Day of year of first day of environment
INTEGER :: StartMonth = 0
INTEGER :: StartDay = 0
INTEGER :: StartYear = 0
INTEGER :: StartDate = 0
INTEGER :: EndMonth = 0
INTEGER :: EndDay = 0
INTEGER :: EndJDay = 0
INTEGER :: EndYear = 0
INTEGER :: EndDate = 0
INTEGER :: DayOfWeek = 0 ! Starting Day of Week for the (Weather) RunPeriod (User Input)
LOGICAL :: UseDST = .false. ! True if DaylightSavingTime is used for this RunPeriod
LOGICAL :: UseHolidays = .false. ! True if Holidays are used for this RunPeriod (from WeatherFile)
LOGICAL :: ApplyWeekendRule = .false. ! True if "Weekend Rule" is to be applied to RunPeriod
LOGICAL :: UseRain = .true. ! True if Rain from weather file should be used (set rain to true)
LOGICAL :: UseSnow = .true. ! True if Snow from weather file should be used (set Snow to true)
INTEGER, DIMENSION(12) :: MonWeekDay = 0
LOGICAL :: SetWeekDays =.false. ! true when weekdays will be reset (after first year or on repeat)
INTEGER :: NumSimYears = 1 ! Total Number of times this period to be performed
INTEGER :: CurrentCycle = 0 ! Current cycle through weather file in NumSimYears repeats
INTEGER :: WP_Type1 = 0 ! WeatherProperties SkyTemperature Pointer
INTEGER :: CurrentYear = 0 ! Current year
LOGICAL :: IsLeapYear =.false. ! True if current year is leap year.
LOGICAL :: RollDayTypeOnRepeat =.true. ! If repeating run period, increment day type on repeat.
LOGICAL :: TreatYearsAsConsecutive =.true. ! When year rolls over, increment year and recalculate Leap Year
LOGICAL :: MatchYear = .false. ! for actual weather will be true
LOGICAL :: ActualWeather = .false. ! true when using actual weather data
INTEGER :: RawSimDays = 0 ! number of basic sim days.
END TYPE EnvironmentData