From e6817a4b918c43eb3ddc71fee13914d64f281921 Mon Sep 17 00:00:00 2001 From: Benjamin Auer Date: Mon, 9 Dec 2019 12:59:23 -0500 Subject: [PATCH] remove unused variable --- MAPL_Base/MAPL_CFIO.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/MAPL_Base/MAPL_CFIO.F90 b/MAPL_Base/MAPL_CFIO.F90 index c94929fde296..078d7407819d 100644 --- a/MAPL_Base/MAPL_CFIO.F90 +++ b/MAPL_Base/MAPL_CFIO.F90 @@ -5420,7 +5420,7 @@ subroutine MAPL_CFIOReadBundleRead(MCFIO,tindex,hw,rc) type(Ptr2Arr) :: PtrTypeOut(2) integer, allocatable :: varids(:) logical, allocatable :: transDone(:) - integer :: status1,status2,rotation,gridStagger + integer :: status1,status2 integer :: alloc_ra if (present(hw)) then