From 6db670d3a0fd7dbfeb886091bf4569e68355e332 Mon Sep 17 00:00:00 2001
From: Jan Mandel <jan.mandel@gmail.com>
Date: Mon, 6 Sep 2021 00:17:27 -0600
Subject: [PATCH] cleanup

---
 femwind/fortran/netcdf_test.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/femwind/fortran/netcdf_test.f90 b/femwind/fortran/netcdf_test.f90
index edbb0b1..547f488 100644
--- a/femwind/fortran/netcdf_test.f90
+++ b/femwind/fortran/netcdf_test.f90
@@ -6,9 +6,8 @@ use module_wrfout
 
 !*** local
 character(len=128)::filename
-integer::ncid,chsum0,frame,chsum0_fmw
+integer::ncid,frame
 real, pointer, dimension(:,:,:)::u0_fmw,v0_fmw,w0_fmw
-integer::sr(2)
 
 !*** executable
 filename = "wrf.nc"
-- 
2.11.4.GIT