wind_effect Subroutine

public subroutine wind_effect(currentSite, bc_in)

**********.

Arguments

Type	Intent	Optional	Attributes		Name
type(ed_site_type),	intent(inout),		target	::	currentSite
type(bc_in_type),	intent(in)			::	bc_in