funarg Subroutine

public subroutine funarg(t, el, elp, f, d, omega)

THIS SUBROUTINE COMPUTES FUNDAMENTAL ARGUMENTS (MEAN ELEMENTS) OF THE SUN AND MOON. SEE SIMON ET AL. (1994) ASTRONOMY AND ASTROPHYSICS 282, 663-683, ESPECIALLY SECTIONS 3.4-3.5.

 T      = TDB TIME IN JULIAN CENTURIES SINCE J2000.0 (IN)
 EL     = MEAN ANOMALY OF THE MOON IN RADIANS
          AT DATE TJD (OUT)
 ELP    = MEAN ANOMALY OF THE SUN IN RADIANS
          AT DATE TJD (OUT)
 F      = MEAN LONGITUDE OF THE MOON MINUS MEAN LONGITUDE
          OF THE MOON'S ASCENDING NODE IN RADIANS
          AT DATE TJD (OUT)
 D      = MEAN ELONGATION OF THE MOON FROM THE SUN IN
          RADIANS AT DATE TJD (OUT)
 OMEGA  = MEAN LONGITUDE OF THE MOON'S ASCENDING NODE
             IN RADIANS AT DATE TJD (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: t
real(kind=wp) :: el
real(kind=wp) :: elp
real(kind=wp) :: f
real(kind=wp) :: d
real(kind=wp) :: omega

Called by

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