set_body_radius Subroutine

private subroutine set_body_radius(self, radius)

The body's radius (scene units; 0: the body's own, a Sphere's equatorial radius or a TerrainBody's).

Type Bound

ShadowCones

Arguments

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

scene units (0: the body's own)

Called by

proc~~set_body_radius~~CalledByGraph proc~set_body_radius ShadowCones%set_body_radius proc~new_shadow_cones new_shadow_cones proc~new_shadow_cones->proc~set_body_radius proc~set_body ShadowCones%set_body proc~set_body->proc~set_body_radius interface~shadowcones ShadowCones interface~shadowcones->proc~new_shadow_cones

Source Code

    subroutine set_body_radius(self, radius)
        class(ShadowCones), intent(inout) :: self
        real(wp), intent(in) :: radius                      !! scene units (0: the body's own)
        self%body_radius_ = max(0.0_wp, radius)
    end subroutine set_body_radius