compute_gravity_acceleration_normalized_pines Subroutine

private subroutine compute_gravity_acceleration_normalized_pines(me, r, n, m, a)

Wrapper for normalized Pines method.

Type Bound

geopotential_model_normalized_pines

Arguments

Type IntentOptional Attributes Name
class(geopotential_model_normalized_pines), intent(inout) :: me
real(kind=wp), intent(in), dimension(3) :: r
integer, intent(in) :: n
integer, intent(in) :: m
real(kind=wp), intent(out), dimension(3) :: a

Calls

proc~~compute_gravity_acceleration_normalized_pines~~CallsGraph proc~compute_gravity_acceleration_normalized_pines geopotential_module::geopotential_model_normalized_pines%compute_gravity_acceleration_normalized_pines proc~pinesnorm geopotential_module::pinesnorm proc~compute_gravity_acceleration_normalized_pines->proc~pinesnorm

Source Code

    subroutine compute_gravity_acceleration_normalized_pines(me,r,n,m,a)

    implicit none

    class(geopotential_model_normalized_pines),intent(inout) :: me
    real(wp),dimension(3),intent(in)   :: r
    integer,intent(in)                 :: n
    integer,intent(in)                 :: m
    real(wp),dimension(3),intent(out)  :: a

    a = pinesnorm(me%mu,me%re,r,me%cnm,me%snm,n,m)

    end subroutine compute_gravity_acceleration_normalized_pines