AllocateWeatherData Subroutine

private subroutine AllocateWeatherData()

Arguments

None
Called By

Source Code

SUBROUTINE AllocateWeatherData

          ! SUBROUTINE INFORMATION:
          !       AUTHOR         Linda Lawrie
          !       DATE WRITTEN   December 2000
          !       MODIFIED       na
          !       RE-ENGINEERED  na

          ! PURPOSE OF THIS SUBROUTINE:
          ! This subroutine allocates the weather data structures (Today, Tomorrow,
          ! Design Day) to the proper number of "time steps in hour" requested by the user.
          ! Interpolation of data is done later after either setting up the design day (hourly
          ! data) or reading in hourly weather data.

          ! METHODOLOGY EMPLOYED:
          ! na

          ! REFERENCES:
          ! na

          ! USE STATEMENTS:
          ! na

  IMPLICIT NONE    ! Enforce explicit typing of all variables in this routine

          ! SUBROUTINE ARGUMENT DEFINITIONS:
          ! na

          ! SUBROUTINE PARAMETER DEFINITIONS:
          ! na

          ! INTERFACE BLOCK SPECIFICATIONS:
          ! na

          ! DERIVED TYPE DEFINITIONS:
          ! na

          ! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
          ! na

  ALLOCATE(TodayIsRain(24,NumOfTimeStepInHour))
  TodayIsRain=.false.
  ALLOCATE(TodayIsSnow(24,NumOfTimeStepInHour))
  TodayIsSnow=.false.
  ALLOCATE(TodayOutDryBulbTemp(24,NumOfTimeStepInHour))
  TodayOutDryBulbTemp=0.0d0
  ALLOCATE(TodayOutDewPointTemp(24,NumOfTimeStepInHour))
  TodayOutDewPointTemp=0.0d0
  ALLOCATE(TodayOutBaroPress(24,NumOfTimeStepInHour))
  TodayOutBaroPress=0.0d0
  ALLOCATE(TodayOutRelHum(24,NumOfTimeStepInHour))
  TodayOutRelHum=0.0d0
  ALLOCATE(TodayWindSpeed(24,NumOfTimeStepInHour))
  TodayWindSpeed=0.0d0
  ALLOCATE(TodayWindDir(24,NumOfTimeStepInHour))
  TodayWindDir=0.0d0
  ALLOCATE(TodaySkyTemp(24,NumOfTimeStepInHour))
  TodaySkyTemp=0.0d0
  ALLOCATE(TodayHorizIRSky(24,NumOfTimeStepInHour))
  TodayHorizIRSky=0.0d0
  ALLOCATE(TodayBeamSolarRad(24,NumOfTimeStepInHour))
  TodayBeamSolarRad=0.0d0
  ALLOCATE(TodayDifSolarRad(24,NumOfTimeStepInHour))
  TodayDifSolarRad=0.0d0
  ALLOCATE(TodayAlbedo(24,NumOfTimeStepInHour))
  TodayAlbedo=0.0d0
  ALLOCATE(TodayLiquidPrecip(24,NumOfTimeStepInHour))
  TodayLiquidPrecip=0.0d0

  ALLOCATE(TomorrowIsRain(24,NumOfTimeStepInHour))
  TomorrowIsRain=.false.
  ALLOCATE(TomorrowIsSnow(24,NumOfTimeStepInHour))
  TomorrowIsSnow=.false.
  ALLOCATE(TomorrowOutDryBulbTemp(24,NumOfTimeStepInHour))
  TomorrowOutDryBulbTemp=0.0d0
  ALLOCATE(TomorrowOutDewPointTemp(24,NumOfTimeStepInHour))
  TomorrowOutDewPointTemp=0.0d0
  ALLOCATE(TomorrowOutBaroPress(24,NumOfTimeStepInHour))
  TomorrowOutBaroPress=0.0d0
  ALLOCATE(TomorrowOutRelHum(24,NumOfTimeStepInHour))
  TomorrowOutRelHum=0.0d0
  ALLOCATE(TomorrowWindSpeed(24,NumOfTimeStepInHour))
  TomorrowWindSpeed=0.0d0
  ALLOCATE(TomorrowWindDir(24,NumOfTimeStepInHour))
  TomorrowWindDir=0.0d0
  ALLOCATE(TomorrowSkyTemp(24,NumOfTimeStepInHour))
  TomorrowSkyTemp=0.0d0
  ALLOCATE(TomorrowHorizIRSky(24,NumOfTimeStepInHour))
  TomorrowHorizIRSky=0.0d0
  ALLOCATE(TomorrowBeamSolarRad(24,NumOfTimeStepInHour))
  TomorrowBeamSolarRad=0.0d0
  ALLOCATE(TomorrowDifSolarRad(24,NumOfTimeStepInHour))
  TomorrowDifSolarRad=0.0d0
  ALLOCATE(TomorrowAlbedo(24,NumOfTimeStepInHour))
  TomorrowAlbedo=0.0d0
  ALLOCATE(TomorrowLiquidPrecip(24,NumOfTimeStepInHour))
  TomorrowLiquidPrecip=0.0d0

  RETURN

END SUBROUTINE AllocateWeatherData
All Procedures
