From 6eaa7b0b5eec6d4ac385eac0c676950de86caf55 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 2 Jun 2015 16:59:22 +0000 Subject: [PATCH] Reconnect computed EME delay, for display to user. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5497 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/astro.f90 | 3 +-- lib/astro0.f90 | 1 + 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/astro.f90 b/lib/astro.f90 index f80beb91e..d6d9623ad 100644 --- a/lib/astro.f90 +++ b/lib/astro.f90 @@ -43,7 +43,7 @@ subroutine astro(nyear,month,nday,uth,freq8,Mygrid, & AzSun,ElSun,mjd,day) 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 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.2) poloffset2=rad*atan2(yy,xx) - techo=2.0 * dist/2.99792458e5 !Echo delay time doppler=-freq8*vr/2.99792458e5 !One-way Doppler call coord(0.,0.,-1.570796,1.161639,RAMoon/rad,DecMoon/rad,el,eb) diff --git a/lib/astro0.f90 b/lib/astro0.f90 index f9ce47bfb..0e3e16613 100644 --- a/lib/astro0.f90 +++ b/lib/astro0.f90 @@ -33,6 +33,7 @@ subroutine astro0(nyear,month,nday,uth8,freq8,mygrid,hisgrid, & xl1a=xl(2) b1=b(1) b1a=b(2) + techo8=techo fghz=1.d-9*freq8 dldt1=DEGS*(xl1a-xl1)