Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
deleted unused variables
Browse files Browse the repository at this point in the history
  • Loading branch information
cwishard committed Nov 10, 2022
1 parent d36c9a2 commit 58ac545
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions src/netcdf/netcdf.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 58ac545

Please sign in to comment.