w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-21 11:38:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove a call from Q65-pileup list when moon elevation is below -5 deg.

Browse Source
This commit is contained in:
Joe Taylor 2023-03-07 11:19:14 -05:00
parent 29f6d50663
commit 82ed2b5872
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/get_q3list.f90
View File

@ -46,7 +46,7 @@ subroutine get_q3list(fname,bDiskData,nlist,list)
AzSun,ElSun,mjd,day)
call moondopjpl(nt(1),nt(2),nt(3),uth,-xlon,xlat,RAMoon,DecMoon, &
xLST,HA,AzMoon,ElMoon,vr,techo)
if(ElMoon.lt.0.0 .and. (.not.bDiskData)) cycle
if(ElMoon.lt.-5.0 .and. (.not.bDiskData)) cycle
j=j+1 !Keep this one...
callers(j)=ctmp(i)
callers(j)%moonel=nint(ElMoon) !... and save its current moonel