mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-20 11:08:31 -04:00
Remove a call from Q65-pileup list when moon elevation is below -5 deg.
This commit is contained in:
parent
29f6d50663
commit
82ed2b5872
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user