compute_gravity_acceleration_kuga_carrara Subroutine

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

Wrapper for Kuga/Carrara method.

Note

Only computes n x n field (m input is ignored).

Type Bound

geopotential_model_kuga_carrara

Arguments

Type IntentOptional Attributes Name
class(geopotential_model_kuga_carrara), 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_kuga_carrara~~CallsGraph proc~compute_gravity_acceleration_kuga_carrara geopotential_module::geopotential_model_kuga_carrara%compute_gravity_acceleration_kuga_carrara proc~kuga_carrara_geopotential geopotential_module::kuga_carrara_geopotential proc~compute_gravity_acceleration_kuga_carrara->proc~kuga_carrara_geopotential

Source Code

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

    implicit none

    class(geopotential_model_kuga_carrara),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 kuga_carrara_geopotential(me%nmax,n,me%re,me%mu,me%cnm,me%snm,r,a)

    end subroutine compute_gravity_acceleration_kuga_carrara