etilt Subroutine

public subroutine etilt(tjd, oblm, oblt, eqeq, dpsi, deps)

THIS SUBROUTINE COMPUTES QUANTITIES RELATED TO THE ORIENTATION OF THE EARTH'S ROTATION AXIS AT JULIAN DATE TJD.

 TJD    = TDB JULIAN DATE FOR ORIENTATION PARAMETERS (IN)
 OBLM   = MEAN OBLIQUITY OF THE ECLIPTIC IN DEGREES AT
          DATE TJD (OUT)
 OBLT   = TRUE OBLIQUITY OF THE ECLIPTIC IN DEGREES AT
          DATE TJD (OUT)
 EQEQ   = EQUATION OF THE EQUINOXES IN TIME SECONDS AT
          DATE TJD (OUT)
 DPSI   = NUTATION IN LONGITUDE IN ARCSECONDS AT
          DATE TJD (OUT)
 DEPS   = NUTATION IN OBLIQUITY IN ARCSECONDS AT
          DATE TJD (OUT)

NOTE: THE EQUATION OF THE EQUINOXES INCLUDES THE COMPLEMENTARY TERMS.

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjd
real(kind=wp) :: oblm
real(kind=wp) :: oblt
real(kind=wp) :: eqeq
real(kind=wp) :: dpsi
real(kind=wp) :: deps

Calls

proc~~etilt~~CallsGraph proc~etilt novas_module::etilt celpol celpol proc~etilt->celpol getmod getmod proc~etilt->getmod proc~eect2000 novas_module::eect2000 proc~etilt->proc~eect2000 proc~frame novas_module::frame proc~etilt->proc~frame proc~funarg novas_module::funarg proc~etilt->proc~funarg proc~nod~2 novas_module::nod proc~etilt->proc~nod~2 proc~preces novas_module::preces proc~etilt->proc~preces proc~anmp novas_module::anmp proc~eect2000->proc~anmp 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~nu2000k->proc~funarg

Called by

proc~~etilt~~CalledByGraph proc~etilt novas_module::etilt 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