From f0a27c05295e110829f91c23f1624b9596d1df32 Mon Sep 17 00:00:00 2001 From: JGonzalez Date: Fri, 12 Jul 2024 13:17:02 +0200 Subject: [PATCH] More comments So if the source vector is being updated every time step, it might be "easy" to implement these things. --- src/modules/solver/electromagnetic/moduleEM.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/modules/solver/electromagnetic/moduleEM.f90 b/src/modules/solver/electromagnetic/moduleEM.f90 index f6c7112..ce33570 100644 --- a/src/modules/solver/electromagnetic/moduleEM.f90 +++ b/src/modules/solver/electromagnetic/moduleEM.f90 @@ -49,7 +49,7 @@ MODULE moduleEM END DO - END SUBROUTINE + END SUBROUTINE apply !Assemble the source vector based on the charge density to solve Poisson's equation SUBROUTINE assembleSourceVector(vectorF) @@ -130,6 +130,7 @@ MODULE moduleEM ALLOCATE(tempF(1:mesh%numNodes)) !$OMP END SINGLE + !TODO: Is this done every time step??? Then things are gonna be really simple. CALL assembleSourceVector(tempF) !$OMP SINGLE