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