JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clean up and remove unused variables

Browse source
This commit is contained in:
Jorge Gonzalez 2026-03-19 13:20:09 +01:00
commit e0bddfecbf
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/modules/mesh/moduleMesh@boundaryParticle.f90
View file

@ -519,7 +519,6 @@ submodule(moduleMesh) boundaryParticle
! Apply ! Apply
module subroutine outflowAdaptive_apply(self, edge, part) module subroutine outflowAdaptive_apply(self, edge, part)
use moduleSpecies use moduleSpecies
use moduleRefParam, only: v_ref
implicit none implicit none
class(boundaryOutflowAdaptive), intent(inout):: self class(boundaryOutflowAdaptive), intent(inout):: self

4
src/modules/mesh/moduleMesh@elements.f90
View file

@ -32,7 +32,7 @@ submodule(moduleMesh) elements
inArray = .false. inArray = .false.
! I cannot use the procedure 'any' for this ! I cannot use the procedure 'any' for this
do n = 1 , size(self) do n = 1 , size(self)
IF (self(n) == nodeToAdd) THEN if (self(n) == nodeToAdd) then
! Node already in array ! Node already in array
inArray = .true. inArray = .true.
exit exit
@ -94,7 +94,7 @@ submodule(moduleMesh) elements
inArray = .false. inArray = .false.
! I cannot use the procedure 'any' for this ! I cannot use the procedure 'any' for this
do n = 1 , size(self) do n = 1 , size(self)
IF (self(n) == edgeToAdd) THEN if (self(n) == edgeToAdd) then
! Node already in array ! Node already in array
inArray = .true. inArray = .true.
exit exit