From 9a41e6862b19ba2a912c6ee0ab357f4c0bdde301 Mon Sep 17 00:00:00 2001
From: Kristen Bathmann <kristen.bathmann@noaa.gov>
Date: Fri, 15 Oct 2021 20:00:04 +0000
Subject: [PATCH] cleaned up cov_calc.f90

---
 util/Correlated_Obs/cov_calc.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/util/Correlated_Obs/cov_calc.f90 b/util/Correlated_Obs/cov_calc.f90
index 3482f0fcf3..38f8ca86f8 100644
--- a/util/Correlated_Obs/cov_calc.f90
+++ b/util/Correlated_Obs/cov_calc.f90
@@ -336,8 +336,8 @@ program cov_calc
 reclen=kind(Rcov(1,1))
 open(26,file=trim(cov_file),form='unformatted')
 write(26) nch_active, nctot, reclen
-write(26) indRf(1:nch_active)
-write(26) Rcov(1:nch_active,1:nch_active)
+write(26) indRf
+write(26) Rcov
 close(26)
 
 if (out_wave) then