From 82ed2b5872812ddeca4f0fdd5c60c55c39495aa6 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 7 Mar 2023 11:19:14 -0500
Subject: [PATCH] Remove a call from Q65-pileup list when moon elevation is
 below -5 deg.

---
 lib/get_q3list.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/get_q3list.f90 b/lib/get_q3list.f90
index 8828c659f..a6b6de813 100644
--- a/lib/get_q3list.f90
+++ b/lib/get_q3list.f90
@@ -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