Activate the W3SZ code for 'q5' decodes only when max_drift = 50.

This commit is contained in:
Joe Taylor 2021-10-22 10:22:23 -04:00
parent a969f304ab
commit 385f0e7b62
2 changed files with 3 additions and 4 deletions

View File

@ -241,9 +241,8 @@ contains
nused=navg(iseq)
endif
100 stageno = 5
if(idec.lt.0) then
100 if(idec.lt.0 .and. max_drift.eq.50) then
stageno = 5
call timer('q65_dec0',0)
! Call top-level routine in q65 module: establish sync and try for a
! q3 or q0 decode.

View File

@ -268,7 +268,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
idec=5
endif
endif ! if(idec.lt.0 .and. maxdrift.eq.50 .and. stageno.eq.5)
endif ! if(idec.lt.0 .and. max_drift.eq.50 .and. stageno.eq.5)
return
end subroutine q65_dec0