cleaned up cov_calc.f90

KristenBathmann · Oct 15, 2021 · 9a41e68 · 9a41e68
1 parent 33e46e6
commit 9a41e68
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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