Extend the DT range for 30 s Q65 submodes to include EME delays.

This commit is contained in:
Joe Taylor 2020-12-22 09:43:25 -05:00
parent 575a5c5a7a
commit cac6577127

View File

@ -102,11 +102,9 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
dtstep=nsps/(NSTEP*12000.0) !Step size in seconds dtstep=nsps/(NSTEP*12000.0) !Step size in seconds
lag1=-1.0/dtstep lag1=-1.0/dtstep
lag2=1.0/dtstep + 0.9999 lag2=1.0/dtstep + 0.9999
if(nsps.ge.3600 .and. emedelay.gt.0) lag2=4.0/dtstep + 0.9999 !Include EME
j0=0.5/dtstep j0=0.5/dtstep
if(nsps.ge.7200) then if(nsps.ge.7200) j0=1.0/dtstep !Nominal start-signal index
j0=1.0/dtstep !Nominal index for start of signal
lag2=4.0/dtstep + 0.9999 !Include EME delays
endif
if(ncw.lt.1) go to 100 if(ncw.lt.1) go to 100