From 0f38903e9d20e7194e425eba607314bd30d9ba37 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 2 Jun 2015 17:09:44 +0000
Subject: [PATCH] Reconnect "Dgrd" (EME degradation) for user display.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5498 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/astro.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/astro.f90 b/lib/astro.f90
index d6d9623ad..a9f858d89 100644
--- a/lib/astro.f90
+++ b/lib/astro.f90
@@ -44,6 +44,7 @@ subroutine astro(nyear,month,nday,uth,freq8,Mygrid,                    &
 
   call MoonDopJPL(nyear,month,nday,uth,lon,lat,RAMoon,DecMoon,    &
        LST,HA,AzMoon,ElMoon,vr,techo)
+  dist=2.99792458d5*techo/2.d0
 
 ! Compute spatial polarization offset
   xx=sin(lat/rad)*cos(ElMoon/rad) - cos(lat/rad)*              &