terrain_bound Subroutine

private subroutine terrain_bound(self, center, radius)

The body's bounding sphere (frame coordinates): its equatorial radius, at the origin.

Type Bound

TerrainBody

Arguments

Type IntentOptional Attributes Name
class(TerrainBody), intent(in) :: self
real(kind=wp), intent(out) :: center(3)

the bounding sphere, frame coordinates (scene units)
real(kind=wp), intent(out) :: radius

the bounding sphere, frame coordinates (scene units)

Calls

proc~~terrain_bound~~CallsGraph proc~terrain_bound TerrainBody%terrain_bound proc~body_radius~2 TerrainBody%body_radius proc~terrain_bound->proc~body_radius~2

Source Code

    subroutine terrain_bound(self, center, radius)
        class(TerrainBody), intent(in) :: self
        real(wp), intent(out) :: center(3), radius          !! the bounding sphere, frame coordinates (scene units)
        center = 0.0_wp
        radius = self%body_radius()
    end subroutine terrain_bound