Commit 8f1b21ef authored by Luc Maisonobe's avatar Luc Maisonobe

Updated spherical trigonometry patch.

parent 7865994b
Pipeline #1 failed with stages
--- eclips_Dec2017.f.orig 2018-09-20 14:49:13.576395932 +0200
+++ eclips_Dec2017.f 2018-09-20 14:49:44.284396704 +0200
--- eclips_Dec2017.f.orig 2018-09-27 17:17:04.673121101 +0200
+++ eclips_Dec2017.f 2018-09-27 17:30:29.725097562 +0200
@@ -110,6 +110,9 @@
C Jul 09, 2018 FIXED BODY-X UNIT VECTOR FOR BEIDOU,
C CONSIDERING NON-PERFECTLY CIRCULAR
......@@ -23,6 +23,17 @@
C Dec 12, 2013
REAL*8 YBIAS
INTEGER*4 IBLK(*), J, I
@@ -420,8 +423,8 @@
BETAINI(IPRN)= BETADG
ECLSTM(IPRN,1) = TTAG
ENDIF
-C DET - APPROX ORBIT ANGLE
- DET= 180.0D0-ACOS(SVBCOS)/DTR
+C DET - ORBIT ANGLE
+ DET= 180.0D0-ACOS(SVBCOS / COS(BETADG*DTR))/DTR
IF(ABS(YANGLE).GT.90.0D0) DET= 360.0D0 -DET
C May 03, 2017 THE ON LIMIT BETADG <= 4 DEG
C MEO YS/ON SWITCHING DELTA BETA LIMIT
@@ -530,7 +533,7 @@
END IF
C Jan 10, 2017 end
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment