remove unused variable

GEOS-ESM · Dec 9, 2019 · e6817a4 · e6817a4
1 parent 8f52ee2
commit e6817a4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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