From e0bddfecbfe7de0ff18e65c8224e69e195e9a67a Mon Sep 17 00:00:00 2001 From: JGonzalez Date: Thu, 19 Mar 2026 13:20:09 +0100 Subject: [PATCH] Clean up and remove unused variables --- src/modules/mesh/moduleMesh@boundaryParticle.f90 | 1 - src/modules/mesh/moduleMesh@elements.f90 | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/modules/mesh/moduleMesh@boundaryParticle.f90 b/src/modules/mesh/moduleMesh@boundaryParticle.f90 index a20ffc2..2e2acfa 100644 --- a/src/modules/mesh/moduleMesh@boundaryParticle.f90 +++ b/src/modules/mesh/moduleMesh@boundaryParticle.f90 @@ -519,7 +519,6 @@ submodule(moduleMesh) boundaryParticle ! Apply module subroutine outflowAdaptive_apply(self, edge, part) use moduleSpecies - use moduleRefParam, only: v_ref implicit none class(boundaryOutflowAdaptive), intent(inout):: self diff --git a/src/modules/mesh/moduleMesh@elements.f90 b/src/modules/mesh/moduleMesh@elements.f90 index 93ea8ff..5eadf28 100644 --- a/src/modules/mesh/moduleMesh@elements.f90 +++ b/src/modules/mesh/moduleMesh@elements.f90 @@ -32,7 +32,7 @@ submodule(moduleMesh) elements inArray = .false. ! I cannot use the procedure 'any' for this do n = 1 , size(self) - IF (self(n) == nodeToAdd) THEN + if (self(n) == nodeToAdd) then ! Node already in array inArray = .true. exit @@ -94,7 +94,7 @@ submodule(moduleMesh) elements inArray = .false. ! I cannot use the procedure 'any' for this do n = 1 , size(self) - IF (self(n) == edgeToAdd) THEN + if (self(n) == edgeToAdd) then ! Node already in array inArray = .true. exit