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

Implementation of 3D cartesian coordinates completed. Last commit before

Browse source 
testing.
This commit is contained in:
Jorge Gonzalez 2021-03-11 16:25:30 +01:00
commit 7e5b78f72f
4 changed files with 223 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/modules/moduleInput.f90
View file

@ -653,6 +653,7 @@ MODULE moduleInput
!Read the geometry (mesh) for the case
SUBROUTINE readGeometry(config)
USE moduleMesh
USE moduleMesh3DCartRead, ONLY: mesh3DCartGeneric
USE moduleMesh2DCylRead, ONLY: mesh2DCylGeneric
USE moduleMesh2DCartRead, ONLY: mesh2DCartGeneric
USE moduleMesh1DCartRead, ONLY: mesh1DCartGeneric
@ -670,6 +671,10 @@ MODULE moduleInput
!Selects the type of geometry.
CALL config%get('geometry.type', geometryType, found)
SELECT CASE(geometryType)
CASE ("3DCart")
!Creates a 3D cylindrical mesh
ALLOCATE(mesh3DCartGeneric:: mesh)
CASE ("2DCyl")
!Creates a 2D cylindrical mesh
ALLOCATE(mesh2DCylGeneric:: mesh)