From f086aeb95a16eb541136bb811a7f43a241b05671 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 23 Dec 2023 13:00:52 -0500 Subject: [PATCH] Correct a longstanding typo error in sun.f90. --- lib/sun.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/sun.f90 b/lib/sun.f90 index db258bb26..cfdc3a13b 100644 --- a/lib/sun.f90 +++ b/lib/sun.f90 @@ -50,7 +50,7 @@ subroutine sun(y,m,DD,UT,lon,lat,RA,Dec,LST,Az,El,mjd,day) MM = mod(356.0470d0 + 0.9856002585d0 * d + 360000.d0,360.d0) Ls = mod(w+MM+720.0,360.0) - EE = MM + e*rad*sin(MM/rad) * (1.0 + e*cos(M/rad)) + EE = MM + e*rad*sin(MM/rad) * (1.0 + e*cos(MM/rad)) EE = EE - (EE - e*rad*sin(EE/rad)-MM) / (1.0 - e*cos(EE/rad)) xv = cos(EE/rad) - e