!$Author: wjr $
!$Date: 2012-03-30 09:46:26 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12162 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/inc/p1const.inc $

! This is a replacement for subroutine init_anemometer.for
! This is also a partial replacement for p1const.inc
! The remainder is in constants_def.f95

MODULE anemometer_def

    IMPLICIT NONE

!! Methods defined in this module

    PUBLIC :: std_anemometer_init

!! Data defined in this module

    real :: anemHght                 !! anemometer height (m)
    real :: dispHghtWeatStat         !! weather station zero plane displacement height (mm)
    real :: aeroRougStatHght         !! aerodynamic roughness height at weather station (mm)
    integer :: aeroAnemFlg           !! Flag = 0 for constant anemometer aeroRoughStatHght at weather station
                                     !! Flag = 1 for variable anemometer aeroRoughStatHght at weather station
                                     !! in the eroding field
    CONTAINS

    ! Provides initial default values for weather station variables
    ! The anemometer height and weather station zero plane displacement
    ! can be changed by inputs in the standalone erosion code.
    ! If the anemometer is in the eroding field, i.e., aeroAnemFlg = 1,
    ! then dispHghtWeatStat is set equal to the field zo in sbwus.

    SUBROUTINE std_anemometer_init()

        anemHght = 10.0 
        dispHghtWeatStat = 0.0
        aeroRougStatHght = 25.0 
        aeroAnemFlg = 0

    END SUBROUTINE std_anemometer_init

END MODULE anemometer_def