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

Renaming of code. New name is FPAKC.

Browse source
This commit is contained in:
Jorge Gonzalez 2020-11-16 18:25:42 +01:00
commit 7b707e7806
7 changed files with 1591 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/modules/moduleEM.f95
View file

@ -79,7 +79,7 @@ MODULE moduleEM
vectorF = 0.D0
!$OMP END SINGLE
!$OMP SINGLE
!$OMP DO REDUCTION(+:vectorF)
DO e = 1, mesh%numVols
nodes = mesh%vols(e)%obj%getNodes()
nNodes = SIZE(nodes)
@ -112,7 +112,7 @@ MODULE moduleEM
DEALLOCATE(nodes, rho)
END DO
!$OMP END SINGLE
!$OMP END DO
!Apply boundary conditions
!$OMP DO