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

Reorganization of solver

Browse source 
I started grouping similar modules in subfolders to ease the expansion
process.
This commit is contained in:
Jorge Gonzalez 2022-12-24 12:59:23 +01:00
commit d9a1869564
13 changed files with 341 additions and 297 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/modules/mesh/1DRad/moduleMesh1DRad.f90
View file

@ -265,11 +265,11 @@ MODULE moduleMesh1DRad
l = 2.D0*detJ
self%volume = r*l
!Computes volume per node
xi = (/-5.D-1, 0.D0, 0.D0/)
r = DOT_PRODUCT(self%fPsi(xi),self%r)
Xii = (/-5.D-1, 0.D0, 0.D0/)
r = DOT_PRODUCT(self%fPsi(Xii),self%r)
self%arNodes(1) = fPsi(1)*r*l
xi = (/ 5.D-1, 0.D0, 0.D0/)
r = DOT_PRODUCT(self%fPsi(xi),self%r)
Xii = (/ 5.D-1, 0.D0, 0.D0/)
r = DOT_PRODUCT(self%fPsi(Xii),self%r)
self%arNodes(2) = fPsi(2)*r*l
END SUBROUTINE areaRad