nod Subroutine

public subroutine nod(t, dpsi, deps)

This subroutine returns the values for nutation in longitude and nutation in obliquity for a given TDB Julian date.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: t

tdb time in julian centuries since j2000.0
real(kind=wp), intent(out) :: dpsi

nutation in longitude in arcseconds
real(kind=wp), intent(out) :: deps

nutation in obliquity in arcseconds

Calls

proc~~nod~2~~CallsGraph proc~nod~2 novas_module::nod getmod getmod proc~nod~2->getmod proc~nu2000a novas_module::nu2000a proc~nod~2->proc~nu2000a proc~nu2000k novas_module::nu2000k proc~nod~2->proc~nu2000k proc~funarg novas_module::funarg proc~nu2000k->proc~funarg

Called by

proc~~nod~2~~CalledByGraph proc~nod~2 novas_module::nod proc~etilt novas_module::etilt proc~etilt->proc~nod~2 proc~eceq novas_module::eceq proc~eceq->proc~etilt proc~eqec novas_module::eqec proc~eqec->proc~etilt proc~eqxra novas_module::eqxra proc~eqxra->proc~etilt proc~geopos novas_module::geopos proc~geopos->proc~etilt proc~nutate novas_module::nutate proc~geopos->proc~nutate proc~sidtim novas_module::sidtim proc~geopos->proc~sidtim proc~nutate->proc~etilt proc~sidtim->proc~etilt proc~sidtim->proc~eqxra proc~sidtim->proc~nutate proc~ciobas novas_module::ciobas proc~sidtim->proc~ciobas proc~cioloc novas_module::cioloc proc~sidtim->proc~cioloc proc~celter novas_module::celter proc~celter->proc~nutate proc~celter->proc~sidtim proc~celter->proc~ciobas proc~celter->proc~cioloc proc~ciobas->proc~nutate proc~cioloc->proc~eqxra proc~ciora novas_module::ciora proc~ciora->proc~nutate proc~ciora->proc~ciobas proc~ciora->proc~cioloc proc~eqecl novas_module::eqecl proc~eqecl->proc~eqec proc~gcrseq novas_module::gcrseq proc~gcrseq->proc~nutate proc~gcrseq->proc~ciobas proc~gcrseq->proc~cioloc proc~place novas_module::place proc~place->proc~geopos proc~place->proc~nutate proc~place->proc~ciobas proc~place->proc~cioloc proc~tercel novas_module::tercel proc~tercel->proc~nutate proc~tercel->proc~sidtim proc~tercel->proc~ciobas proc~tercel->proc~cioloc proc~mpstar novas_module::mpstar proc~mpstar->proc~place proc~places novas_module::places proc~places->proc~place proc~zdaz novas_module::zdaz proc~zdaz->proc~tercel

Source Code

    subroutine nod (t,dpsi,deps)

    real(wp),intent(in) :: t !! tdb time in julian centuries since j2000.0
    real(wp),intent(out) :: dpsi !! nutation in longitude in arcseconds
    real(wp),intent(out) :: deps !! nutation in obliquity in arcseconds

    real(wp) :: t1,dp,de

    ! get method/accuracy mode
    call getmod ( mode )

    t1 = t * 36525.0_wp

    ! evaluate nutation series
    ! resulting nutation in longitude and obliquity in arcseconds

    ! call subroutine to evaluate nutation series
    if ( mod ( mode, 2 ) == 0 ) then
        ! high accuracy mode -- iers subroutine
        call nu2000a ( jd_j2000, t1, dp, de )
    else
        ! low accuracy mode -- modification of iers subroutine
        call nu2000k ( jd_j2000, t1, dp, de )
    end if
    dpsi = dp * seccon
    deps = de * seccon

    end subroutine nod