compute_gravity_acceleration_pines Subroutine

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

Wrapper for Pines method.

Type Bound

geopotential_model_pines

Arguments

Type IntentOptional Attributes Name
class(geopotential_model_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_pines~~CallsGraph proc~compute_gravity_acceleration_pines geopotential_module::geopotential_model_pines%compute_gravity_acceleration_pines proc~gravpot geopotential_module::gravpot proc~compute_gravity_acceleration_pines->proc~gravpot

Source Code

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

    implicit none

    class(geopotential_model_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

    call gravpot(r,n,me%re,me%mu,me%cnm,me%snm,a)

    end subroutine compute_gravity_acceleration_pines