From 2f5c368aadbe7d1d07e9a2f678eaf5d7d4da58b4 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 30 Jan 2021 14:59:55 -0500
Subject: [PATCH] Remove a diagnostic write.

---
 lib/spec64.f90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lib/spec64.f90 b/lib/spec64.f90
index dd752c692..b3b7d54d6 100644
--- a/lib/spec64.f90
+++ b/lib/spec64.f90
@@ -21,7 +21,6 @@ subroutine spec64(c0,nsps,mode_q65,jpk,s3,LL,NN)
      j=j+1
      ja=(k-1)*nsps + jpk
      jb=ja+nsps-1
-     write(71,*) k,ja,jb ; flush(71)
      cs(0:nfft-1)=c0(ja:jb)
      call four2a(cs,nsps,1,-1,1)             !c2c FFT to frequency
      do ii=1,LL