From ea84eaf5148ebb2b75ea7d3b9d7452d056d00d2c Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 28 Mar 2016 18:52:12 +0000 Subject: [PATCH] Change the definition of Doppler Spread (option "-d x" used in jt65sim so that specified spreads correspond to the full limb-to-limb spread for EME. Line widths at -3 dB will be 1/3 of the specified value. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6563 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fer65.f90 | 2 +- lib/jt65sim.f90 | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/fer65.f90 b/lib/fer65.f90 index 7ca60b106..d2c378870 100644 --- a/lib/fer65.f90 +++ b/lib/fer65.f90 @@ -189,7 +189,7 @@ program fer65 endif write(20,1100) snr,nsync,ngood,nbad,xsync,esync,dsnr,esnr, & xdt,edt,dfreq,efreq,xsum,esum,xwidth,ewidth -1100 format(f5.1,2i6i4,2f6.1,f6.1,f5.1,f6.2,f5.2,6f5.1) +1100 format(f5.1,2i6,i4,2f6.1,f6.1,f5.1,f6.2,f5.2,6f5.1) flush(20) if(ngood.ge.int(0.99*iters)) exit enddo diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90 index 17ce50b61..5bd349609 100644 --- a/lib/jt65sim.f90 +++ b/lib/jt65sim.f90 @@ -203,8 +203,9 @@ program jt65sim ! The following options were added 3/15/2016 to make the half-power tone ! widths equal to the requested Doppler spread. (Previously we effectively ! used b=1.0 and Gaussian shape, which made the tones 1.665 times wider.) -! b=2.0*sqrt(log(2.0)) !Gaussian - b=2.0 !Lorenzian +! b=2.0*sqrt(log(2.0)) !Gaussian (before 3/15/2016) +! b=2.0 !Lorenzian 3/15 - 3/27 + b=6.0 !Lorenzian 3/28 onward do i=1,NH f=i*df