Skeleton implementation of text mesh for simple 1D cases.
This commit is contained in:
parent
d5bcf8ce50
commit
9f9bacca7c
6 changed files with 179 additions and 1 deletions
|
|
@ -910,6 +910,7 @@ MODULE moduleInput
|
|||
USE moduleMeshInputGmsh2, ONLY: initGmsh2
|
||||
USE moduleMeshInputVTU, ONLY: initVTU
|
||||
USE moduleMeshInput0D, ONLY: init0D
|
||||
USE moduleMeshInputText, ONLY: initText
|
||||
USE moduleMesh3DCart
|
||||
USE moduleMesh2DCyl
|
||||
USE moduleMesh2DCart
|
||||
|
|
@ -1058,6 +1059,20 @@ MODULE moduleInput
|
|||
|
||||
END IF
|
||||
|
||||
case ("text")
|
||||
!Check if the geometry is right.
|
||||
if (mesh%dimen /= 1) then
|
||||
call criticalError("Text mesh is only allowed for 1D geometries", 'readGeometry')
|
||||
|
||||
end if
|
||||
|
||||
!Read the mesh
|
||||
call initText(mesh)
|
||||
if (doubleMesh) then
|
||||
call initText(meshColl)
|
||||
|
||||
end if
|
||||
|
||||
CASE DEFAULT
|
||||
CALL criticalError('Mesh format ' // meshFormat // ' not defined.', 'readGeometry')
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue