SUBROUTINE test_sub

    USE anemometer_def

    print *, "In test_sub"

    print *, "std_anemometer_init values ", anemHght, aeroRougStatHght, dispHghtWeatStat, aeroAnemFlg

    aeroAnemFlg = 1

    print *, "std_anemometer_init values ", anemHght, aeroRougStatHght, dispHghtWeatStat, aeroAnemFlg

RETURN
END SUBROUTINE