snow/dockapps
1
0
Fork 0
Code Issues Releases Activity

wmmoonclock: Remove unused variables.

Browse source
This commit is contained in:
Doug Torrance 2017-08-14 18:49:26 -04:00 committed by Carlos R. Mafra
parent b602284e2e
commit 49b3e6a9f3
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
wmmoonclock/src/CalcEphem.c
View file

@ -9,7 +9,7 @@ CTrans *c; /* structure containing all the relevent coord trans info */
{ {
int year, month, day; int year, month, day;
double TU, TU2, TU3, T0, gmst; double TU, TU2, TU3, T0;
double varep, varpi; double varep, varpi;
double eccen, epsilon; double eccen, epsilon;
double days, M, E, nu, lambnew; double days, M, E, nu, lambnew;
@ -18,7 +18,7 @@ CTrans *c; /* structure containing all the relevent coord trans info */
double TDT, AGE, LambdaMoon, BetaMoon, R; double TDT, AGE, LambdaMoon, BetaMoon, R;
double jd(), hour24(), angle2pi(), angle360(), kepler(), Moon(), NewMoon(); double jd(), hour24(), angle2pi(), angle360(), kepler(), Moon(), NewMoon();
double Ta, Tb, Tc, frac(); double Ta, Tb, Tc, frac();
double SinGlat, CosGlat, SinGlon, CosGlon, Tau, lmst, x, y, z; double SinGlat, CosGlat, Tau, lmst, x, y, z;
double SinTau, CosTau, SinDec, CosDec; double SinTau, CosTau, SinDec, CosDec;
@ -52,10 +52,6 @@ CTrans *c; /* structure containing all the relevent coord trans info */
T0 = hour24(T0); T0 = hour24(T0);
c->gmst = hour24(T0 + UT*1.002737909); c->gmst = hour24(T0 + UT*1.002737909);
/* convert to radians for ease later on */
gmst = c->gmst*15.0*M_PI/180.0;
lmst = 24.0*frac( (c->gmst - c->Glon/15.0) / 24.0 ); lmst = 24.0*frac( (c->gmst - c->Glon/15.0) / 24.0 );
@ -160,7 +156,6 @@ CTrans *c; /* structure containing all the relevent coord trans info */
*/ */
Tau = (15.0*lmst - RA_Moon)*RadPerDeg; Tau = (15.0*lmst - RA_Moon)*RadPerDeg;
CosGlat = cos(c->Glat*RadPerDeg); SinGlat = sin(c->Glat*RadPerDeg); CosGlat = cos(c->Glat*RadPerDeg); SinGlat = sin(c->Glat*RadPerDeg);
CosGlon = cos(c->Glon*RadPerDeg); SinGlon = sin(c->Glon*RadPerDeg);
CosTau = cos(Tau); SinTau = sin(Tau); CosTau = cos(Tau); SinTau = sin(Tau);
SinDec = sin(DEC_Moon*RadPerDeg); CosDec = cos(DEC_Moon*RadPerDeg); SinDec = sin(DEC_Moon*RadPerDeg); CosDec = cos(DEC_Moon*RadPerDeg);
x = CosDec*CosTau*SinGlat - SinDec*CosGlat; x = CosDec*CosTau*SinGlat - SinDec*CosGlat;