diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index c2d0d6ee2..0a9e7cfd8 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -351,9 +351,6 @@ module subroutine netcdf_open(self, param, readonly) ! Internals integer(I4B) :: mode, status character(len=NF90_MAX_NAME) :: str_dim_name - integer(I4B) :: idmax - real(DP), dimension(:), allocatable :: gmtemp - logical, dimension(:), allocatable :: tpmask, plmask, plmmask mode = NF90_WRITE !if (present(readonly)) then