From 161f456101eac447547d45a83ea3fc25d90acdd1 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 23 Feb 2024 14:42:09 -0500 Subject: [PATCH] Tweaks to sfox_sync routine. --- lib/superfox/sfox_sync.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/superfox/sfox_sync.f90 b/lib/superfox/sfox_sync.f90 index e91da4494..0149a8b2b 100644 --- a/lib/superfox/sfox_sync.f90 +++ b/lib/superfox/sfox_sync.f90 @@ -34,12 +34,13 @@ subroutine sfox_sync(crcvd,fsample,isync,f,t) pmax=0. ntol=100 - iz=nint(ntol/df) + iz=nint(ntol/df)+2 i0=nint(1500.0/df) ipk=-999 jpk=-999 jz=nsz-8*NS allocate(ccf(-iz:iz,1:jz)) + ccf=0. do j=1,jz do i=-iz,iz p=0.