compute_gravity_acceleration_lear Subroutine

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

Wrapper for Lear method.

Type Bound

geopotential_model_lear

Arguments

Type IntentOptional Attributes Name
class(geopotential_model_lear), 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_lear~~CallsGraph proc~compute_gravity_acceleration_lear geopotential_module::geopotential_model_lear%compute_gravity_acceleration_lear proc~grav geopotential_module::grav proc~compute_gravity_acceleration_lear->proc~grav

Source Code

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

    implicit none

    class(geopotential_model_lear),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 grav(me%mu,r,me%re,n,m,me%cnm,me%snm,a)

    end subroutine compute_gravity_acceleration_lear