w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Reconnect computed EME delay, for display to user.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5497 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-06-02 16:59:22 +00:00
parent e837b9209e
commit 639b9f8dcf
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/astro.f90
View File

@ -43,7 +43,7 @@ subroutine astro(nyear,month,nday,uth,freq8,Mygrid, &
AzSun,ElSun,mjd,day) AzSun,ElSun,mjd,day)
call MoonDopJPL(nyear,month,nday,uth,lon,lat,RAMoon,DecMoon, & call MoonDopJPL(nyear,month,nday,uth,lon,lat,RAMoon,DecMoon, &
LST,HA,AzMoon,ElMoon,vr,dist) LST,HA,AzMoon,ElMoon,vr,techo)
! Compute spatial polarization offset ! Compute spatial polarization offset
xx=sin(lat/rad)*cos(ElMoon/rad) - cos(lat/rad)* & xx=sin(lat/rad)*cos(ElMoon/rad) - cos(lat/rad)* &
@ -52,7 +52,6 @@ subroutine astro(nyear,month,nday,uth,freq8,Mygrid, &
if(NStation.eq.1) poloffset1=rad*atan2(yy,xx) if(NStation.eq.1) poloffset1=rad*atan2(yy,xx)
if(NStation.eq.2) poloffset2=rad*atan2(yy,xx) if(NStation.eq.2) poloffset2=rad*atan2(yy,xx)
techo=2.0 * dist/2.99792458e5 !Echo delay time
doppler=-freq8*vr/2.99792458e5 !One-way Doppler doppler=-freq8*vr/2.99792458e5 !One-way Doppler
call coord(0.,0.,-1.570796,1.161639,RAMoon/rad,DecMoon/rad,el,eb) call coord(0.,0.,-1.570796,1.161639,RAMoon/rad,DecMoon/rad,el,eb)

1
lib/astro0.f90
View File

@ -33,6 +33,7 @@ subroutine astro0(nyear,month,nday,uth8,freq8,mygrid,hisgrid, &
xl1a=xl(2) xl1a=xl(2)
b1=b(1) b1=b(1)
b1a=b(2) b1a=b(2)
techo8=techo
fghz=1.d-9*freq8 fghz=1.d-9*freq8
dldt1=DEGS*(xl1a-xl1) dldt1=DEGS*(xl1a-xl1)