Use exponential message averaging (ntc=3) rather than simple sums in Q65.

This commit is contained in:
Joe Taylor 2021-02-08 11:10:02 -05:00
parent 3ccf949691
commit a6779ecda3
2 changed files with 4 additions and 1 deletions

View File

@ -9,6 +9,7 @@ ef4787: 3 10 6 14 30 33
ada5a6: 3 6 6 10 29 36
10f574: 2 7 97.6 6 10 95.4 21 33 80.7
b8ea4c: 2 7 100.5 6 10 96.9 21 33 81.0
1 6 95.2 6 11 90.1 21 33 67.3
Mode: Q65-30A
Data: 30A_N0AN_6m_Ionoscatter (69 files, 6m ionoscatter)

View File

@ -234,7 +234,9 @@ subroutine q65_symspec(iwave,nmax,iz,jz,s1)
enddo
enddo
if(lnewdat) then
s1a(:,:,iseq)=s1a(:,:,iseq) + s1
ntc=3
u=1.0/ntc
s1a(:,:,iseq)=u*s1 + (1.0-u)*s1a(:,:,iseq)
navg(iseq)=navg(iseq) + 1
endif