nu2000k Subroutine

public subroutine nu2000k(date1, date2, dpsi, deps)

Nutation, IAU 2000A model (MHB_2000 without FCN) MODIFIED. Series truncated for speed of execution, and using Simon et al. (1994) fundamental arguments throughout. Accuracy, compared to IAU 2000 A series, is 0.1 mas in delta psi and 0.04 mas in delta epsilon and delta psi sin(epsilon) over 6 centuries centered at year 2000 (99% of errors less than these values).

Modified form of NU2000A, by Pat Wallace, given in subroutine annex to Chapter 5 of IERS Conventions (2003).

Given: DATE1,DATE2 d TT date (JD = DATE1+DATE2)

Returned: DPSI,DEPS d nutation (luni-solar + planetary, radians)

This revision: 2002 November 25 2004 March 1 (by G. Kaplan)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: date1
real(kind=wp) :: date2
real(kind=wp) :: dpsi
real(kind=wp) :: deps

Calls

proc~~nu2000k~~CallsGraph proc~nu2000k novas_module::nu2000k proc~funarg novas_module::funarg proc~nu2000k->proc~funarg

Called by

proc~~nu2000k~~CalledByGraph proc~nu2000k novas_module::nu2000k proc~nod~2 novas_module::nod proc~nod~2->proc~nu2000k 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