223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

corrected some problems in building mesh

This commit is contained in:
Martin Diehl 2010-07-01 15:20:39 +00:00
parent 2ec39c936c
commit 661bb97800
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
code/mesh.f90
View File

@ -228,6 +228,7 @@
call mesh_build_FEdata() ! --- get properties of the different types of elements call mesh_build_FEdata() ! --- get properties of the different types of elements
if (IO_open_inputFile(fileUnit)) then ! --- parse info from input file... if (IO_open_inputFile(fileUnit)) then ! --- parse info from input file...
select case (FEsolver) select case (FEsolver)
@ -283,6 +284,7 @@
forall (e = 1:mesh_NcpElems) FEsolving_execIP(2,e) = FE_Nips(mesh_element(2,e)) forall (e = 1:mesh_NcpElems) FEsolving_execIP(2,e) = FE_Nips(mesh_element(2,e))
allocate(calcMode(mesh_maxNips,mesh_NcpElems)) allocate(calcMode(mesh_maxNips,mesh_NcpElems))
write(6,*) '<<<+- mesh init done -+>>>'
calcMode = .false. ! pretend to have collected what first call is asking (F = I) calcMode = .false. ! pretend to have collected what first call is asking (F = I)
calcMode(ip,mesh_FEasCP('elem',element)) = .true. ! first ip,el needs to be already pingponged to "calc" calcMode(ip,mesh_FEasCP('elem',element)) = .true. ! first ip,el needs to be already pingponged to "calc"
lastMode = .true. ! and its mode is already known... lastMode = .true. ! and its mode is already known...
@ -417,6 +419,7 @@
endif endif
enddo enddo
candidate: do i = 1,minN ! iterate over lonelyNode's shared elements candidate: do i = 1,minN ! iterate over lonelyNode's shared elements
candidateElem = mesh_sharedElem(1+i,myFaceNodes(lonelyNode)) ! present candidate elem candidateElem = mesh_sharedElem(1+i,myFaceNodes(lonelyNode)) ! present candidate elem
if (candidateElem == elem) cycle candidate ! my own element ? if (candidateElem == elem) cycle candidate ! my own element ?
@ -2088,6 +2091,8 @@ subroutine mesh_marc_count_cpSizes (unit)
character(len=64) tag character(len=64) tag
character(len=1024) line character(len=1024) line
allocate ( mesh_node (3,mesh_Nnodes) ); mesh_node = 0_pInt
a = 1_pInt a = 1_pInt
b = 1_pInt b = 1_pInt
c = 1_pInt c = 1_pInt
@ -2323,7 +2328,7 @@ subroutine mesh_marc_count_cpSizes (unit)
mesh_element ( 2,e) = FE_mapElemtype('C3D8R') ! elem type mesh_element ( 2,e) = FE_mapElemtype('C3D8R') ! elem type
mesh_element ( 3,e) = homog ! homogenization mesh_element ( 3,e) = homog ! homogenization
mesh_element ( 4,e) = IO_IntValue(line,pos,1) ! microstructure mesh_element ( 4,e) = IO_IntValue(line,pos,1) ! microstructure
mesh_element ( 5,e) = (e-1) + (e-1)/a + (e-1)/a/b*(a+1) ! base node mesh_element ( 5,e) = e + (e-1)/a + (e-1)/a/b*(a+1) ! base node
mesh_element ( 6,e) = mesh_element ( 5,e) + 1 mesh_element ( 6,e) = mesh_element ( 5,e) + 1
mesh_element ( 7,e) = mesh_element ( 5,e) + (a+1) + 1 mesh_element ( 7,e) = mesh_element ( 5,e) + (a+1) + 1
mesh_element ( 8,e) = mesh_element ( 5,e) + (a+1) mesh_element ( 8,e) = mesh_element ( 5,e) + (a+1)
@ -2331,6 +2336,8 @@ subroutine mesh_marc_count_cpSizes (unit)
mesh_element (10,e) = mesh_element ( 9,e) + 1 mesh_element (10,e) = mesh_element ( 9,e) + 1
mesh_element (11,e) = mesh_element ( 9,e) + (a+1) + 1 mesh_element (11,e) = mesh_element ( 9,e) + (a+1) + 1
mesh_element (12,e) = mesh_element ( 9,e) + (a+1) mesh_element (12,e) = mesh_element ( 9,e) + (a+1)
mesh_maxValStateVar(1) = max(mesh_maxValStateVar(1),mesh_element(3,e)) !needed for statistics
mesh_maxValStateVar(2) = max(mesh_maxValStateVar(2),mesh_element(4,e))
enddo enddo
110 return 110 return