set_heating Subroutine

public subroutine set_heating(heating_in)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	heating_in

Contents

Source Code

set_heating

Source Code

  subroutine set_heating(heating_in)
    logical, intent(in) :: heating_in
    heating = heating_in
  end subroutine set_heating