From a70788b95d66d69f017c6b1d3e34e4e5b1e442fd Mon Sep 17 00:00:00 2001 From: Jorge Gonzalez Date: Wed, 8 Mar 2023 19:42:15 +0100 Subject: [PATCH] Fix an issue with compilation Copy paste error. Now the code compiles. --- src/modules/mesh/moduleMesh.f90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/modules/mesh/moduleMesh.f90 b/src/modules/mesh/moduleMesh.f90 index a62cfb2..7c3c4c3 100644 --- a/src/modules/mesh/moduleMesh.f90 +++ b/src/modules/mesh/moduleMesh.f90 @@ -1067,7 +1067,9 @@ MODULE moduleMesh END DO !Divide total momentum exchanged among all the particles of species j - normDeltaV = totalDeltaV_ij / REAL(cell%listPart_in(j)%amount) * (self%sp_i%weight*self%sp_i%m)/(self%sp_j%weight*self%sp_j%m) + normDeltaV = totalDeltaV_ij / REAL(cell%listPart_in(j)%amount) * & + (coulombMatrix(k)%sp_i%weight*coulombMatrix(k)%sp_i%m) / & + (coulombMatrix(k)%sp_j%weight*coulombMatrix(k)%sp_j%m) !Loop over particles of species_j partTemp => cell%listPart_in(j)%head DO WHILE(ASSOCIATED(partTemp)) @@ -1124,6 +1126,8 @@ MODULE moduleMesh END DO + DEALLOCATE(densityNodes, velocityNodes, temperatureNodes) + END DO !$OMP END DO