compute_gravity_acceleration_mueller Subroutine

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

Wrapper for Mueller method.

Type Bound

geopotential_model_mueller

Arguments

Type IntentOptional Attributes Name
class(geopotential_model_mueller), 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_mueller~~CallsGraph proc~compute_gravity_acceleration_mueller geopotential_model_mueller%compute_gravity_acceleration_mueller proc~geopot geopot proc~compute_gravity_acceleration_mueller->proc~geopot

Called by

proc~~compute_gravity_acceleration_mueller~~CalledByGraph proc~compute_gravity_acceleration_mueller geopotential_model_mueller%compute_gravity_acceleration_mueller proc~geopotential_module_test geopotential_module_test proc~geopotential_module_test->proc~compute_gravity_acceleration_mueller

Source Code

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

    implicit none

    class(geopotential_model_mueller),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 geopot(r(1),r(2),r(3),n,m+1,me%re,me%mu,me%c,me%s,a(1),a(2),a(3))

    end subroutine compute_gravity_acceleration_mueller