set_length Subroutine

private subroutine set_length(self, length)

How far behind the body's center the shadow is drawn (scene units; 0: automatic, twice the umbra's length).

Type Bound

ShadowCones

Arguments

Type IntentOptional Attributes Name
class(ShadowCones), intent(inout) :: self
real(kind=wp), intent(in) :: length

scene units (0: automatic)

Source Code

    subroutine set_length(self, length)
        class(ShadowCones), intent(inout) :: self
        real(wp), intent(in) :: length                      !! scene units (0: automatic)
        self%length_ = max(0.0_wp, length)
    end subroutine set_length