Skip to content

Commit

Permalink
[RMV] Remove unused variable
Browse files Browse the repository at this point in the history
  • Loading branch information
miEsMar committed Dec 29, 2024
1 parent 36da4b4 commit 0e43606
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions bsa/bsa.F90
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,6 @@ module data
use BsaLib
implicit none (type, external)
public
integer(int32), parameter :: IUN_BSADATA = 22222
integer(int32), parameter :: IUN_EXTDATA = 22223
logical :: l_formmode = .false.
logical :: ext_data_read_ = .false.
Expand Down Expand Up @@ -982,8 +981,6 @@ subroutine releaseMemory(iexit)

inquire(unit=IUN_EXTDATA, opened=lflag)
if (lflag) close(IUN_EXTDATA)
inquire(unit=IUN_BSADATA, opened=lflag)
if (lflag) close(IUN_BSADATA)

istat = 0

Expand Down

0 comments on commit 0e43606

Please sign in to comment.