From d7859062bb2809e03c9dc0b8440483fad79e7919 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 23 Jan 2023 15:40:48 -0500
Subject: [PATCH] At least for Q65-60C, maxdist=5 is big enough.

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

diff --git a/lib/qra/q65/q65_loops.f90 b/lib/qra/q65/q65_loops.f90
index ec93adb09..3220648e6 100644
--- a/lib/qra/q65/q65_loops.f90
+++ b/lib/qra/q65/q65_loops.f90
@@ -37,7 +37,7 @@ subroutine q65_loops(c00,npts2,nsps2,nsubmode,ndepth,jpk0,    &
   if(iand(ndepth,3).eq.3) then
      idfmax=5
      idtmax=5
-     maxdist=15
+     maxdist=5
   endif
 
   napmin=99