Merge remote-tracking branch 'remotes/origin/54-populate-grains-deprecated' into development
This commit is contained in:
commit
a498e5580a
|
@ -343,13 +343,6 @@ Phenopowerlaw_singleSlip:
|
||||||
- master
|
- master
|
||||||
- release
|
- release
|
||||||
|
|
||||||
HybridIA:
|
|
||||||
stage: spectral
|
|
||||||
script: HybridIA/test.py
|
|
||||||
except:
|
|
||||||
- master
|
|
||||||
- release
|
|
||||||
|
|
||||||
TextureComponents:
|
TextureComponents:
|
||||||
stage: spectral
|
stage: spectral
|
||||||
script: TextureComponents/test.py
|
script: TextureComponents/test.py
|
||||||
|
@ -423,14 +416,6 @@ SpectralExample:
|
||||||
only:
|
only:
|
||||||
- development
|
- development
|
||||||
|
|
||||||
AbaqusExample:
|
|
||||||
stage: example
|
|
||||||
script:
|
|
||||||
- module load $IntelAbaqus $Abaqus
|
|
||||||
- Abaqus_example/test.py
|
|
||||||
only:
|
|
||||||
- development
|
|
||||||
|
|
||||||
###################################################################################################
|
###################################################################################################
|
||||||
SpectralRuntime:
|
SpectralRuntime:
|
||||||
stage: performance
|
stage: performance
|
||||||
|
|
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
@ -1,23 +0,0 @@
|
||||||
# Save by m.diehl on 2017_12_06-18.38.26; build 2017 2016_09_27-23.54.59 126836
|
|
||||||
from abaqus import *
|
|
||||||
upgradeMdb(
|
|
||||||
'/nethome/storage/raid4/m.diehl/DAMASK/examples/AbaqusStandard/SX_PX_compression-6.9-1.cae'
|
|
||||||
,
|
|
||||||
'/nethome/storage/raid4/m.diehl/DAMASK/examples/AbaqusStandard/SX_PX_compression.cae')
|
|
||||||
# Save by m.diehl on 2017_12_06-18.38.26; build 2017 2016_09_27-23.54.59 126836
|
|
||||||
from part import *
|
|
||||||
from material import *
|
|
||||||
from section import *
|
|
||||||
from assembly import *
|
|
||||||
from step import *
|
|
||||||
from interaction import *
|
|
||||||
from load import *
|
|
||||||
from mesh import *
|
|
||||||
from optimization import *
|
|
||||||
from job import *
|
|
||||||
from sketch import *
|
|
||||||
from visualization import *
|
|
||||||
from connectorBehavior import *
|
|
||||||
mdb.jobs['Job_sx-px'].setValues(description='compression', userSubroutine=
|
|
||||||
'$HOME/DAMASK/src/DAMASK_abaqus_std.f')
|
|
||||||
# Save by m.diehl on 2017_12_06-18.39.44; build 2017 2016_09_27-23.54.59 126836
|
|
|
@ -1,93 +0,0 @@
|
||||||
#-------------------#
|
|
||||||
<homogenization>
|
|
||||||
#-------------------#
|
|
||||||
|
|
||||||
[dummy]
|
|
||||||
mech none
|
|
||||||
|
|
||||||
[poly]
|
|
||||||
mech isostrain
|
|
||||||
Nconstituents 10
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#-------------------#
|
|
||||||
<microstructure>
|
|
||||||
#-------------------#
|
|
||||||
|
|
||||||
|
|
||||||
[Aluminum_001]
|
|
||||||
crystallite 1
|
|
||||||
(constituent) phase 1 texture 1 fraction 1.0
|
|
||||||
|
|
||||||
[Aluminum_10]
|
|
||||||
crystallite 1
|
|
||||||
(constituent) phase 1 texture 2 fraction 1.0
|
|
||||||
|
|
||||||
#-------------------#
|
|
||||||
<crystallite>
|
|
||||||
#-------------------#
|
|
||||||
|
|
||||||
[orientation]
|
|
||||||
(output) eulerangles
|
|
||||||
(output) grainrotation # deviation from initial orientation as axis (1-3) and angle in degree (4)
|
|
||||||
|
|
||||||
#-------------------#
|
|
||||||
<phase>
|
|
||||||
#-------------------#
|
|
||||||
|
|
||||||
|
|
||||||
[Aluminum_phenopowerlaw]
|
|
||||||
# slip only
|
|
||||||
elasticity hooke
|
|
||||||
plasticity phenopowerlaw
|
|
||||||
|
|
||||||
(output) resistance_slip
|
|
||||||
(output) shearrate_slip
|
|
||||||
(output) resolvedstress_slip
|
|
||||||
(output) totalshear
|
|
||||||
(output) resistance_twin
|
|
||||||
(output) shearrate_twin
|
|
||||||
(output) resolvedstress_twin
|
|
||||||
(output) totalvolfrac
|
|
||||||
|
|
||||||
lattice_structure fcc
|
|
||||||
Nslip 12
|
|
||||||
Ntwin 0
|
|
||||||
|
|
||||||
c11 106.75e9
|
|
||||||
c12 60.41e9
|
|
||||||
c44 28.34e9
|
|
||||||
|
|
||||||
gdot0_slip 0.001
|
|
||||||
n_slip 20
|
|
||||||
tau0_slip 31e6 # per family
|
|
||||||
tausat_slip 63e6 # per family
|
|
||||||
a_slip 2.25
|
|
||||||
gdot0_twin 0.001
|
|
||||||
n_twin 20
|
|
||||||
tau0_twin 31e6 # per family
|
|
||||||
s_pr 0 # push-up factor for slip saturation due to twinning
|
|
||||||
twin_b 0
|
|
||||||
twin_c 0
|
|
||||||
twin_d 0
|
|
||||||
twin_e 0
|
|
||||||
h0_slipslip 75e6
|
|
||||||
h0_sliptwin 0
|
|
||||||
h0_twinslip 0
|
|
||||||
h0_twintwin 0
|
|
||||||
interaction_slipslip 1 1 1.4 1.4 1.4 1.4
|
|
||||||
interaction_sliptwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
|
||||||
interaction_twinslip 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
|
||||||
interaction_twintwin 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
|
|
||||||
atol_resistance 1
|
|
||||||
|
|
||||||
|
|
||||||
#-------------------#
|
|
||||||
<texture>
|
|
||||||
#-------------------#
|
|
||||||
|
|
||||||
[001]
|
|
||||||
(gauss) phi1 0.000 Phi 45.000 phi2 0.000 scatter 0.000 fraction 1.000
|
|
||||||
|
|
||||||
[random]
|
|
|
@ -1 +0,0 @@
|
||||||
fixed_seed 1697667030
|
|
|
@ -1 +0,0 @@
|
||||||
DAMASK_marc.f90
|
|
220
src/IO.f90
220
src/IO.f90
|
@ -33,7 +33,6 @@ module IO
|
||||||
IO_write_jobIntFile, &
|
IO_write_jobIntFile, &
|
||||||
IO_read_realFile, &
|
IO_read_realFile, &
|
||||||
IO_read_intFile, &
|
IO_read_intFile, &
|
||||||
IO_hybridIA, &
|
|
||||||
IO_isBlank, &
|
IO_isBlank, &
|
||||||
IO_getTag, &
|
IO_getTag, &
|
||||||
IO_stringPos, &
|
IO_stringPos, &
|
||||||
|
@ -583,223 +582,6 @@ logical function IO_abaqus_hasNoPart(fileUnit)
|
||||||
620 end function IO_abaqus_hasNoPart
|
620 end function IO_abaqus_hasNoPart
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
!> @brief hybrid IA sampling of ODFfile
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
function IO_hybridIA(Nast,ODFfileName)
|
|
||||||
use prec, only: &
|
|
||||||
tol_math_check
|
|
||||||
|
|
||||||
implicit none
|
|
||||||
integer(pInt), intent(in) :: Nast !< number of samples?
|
|
||||||
real(pReal), dimension(3,Nast) :: IO_hybridIA
|
|
||||||
character(len=*), intent(in) :: ODFfileName !< name of ODF file including total path
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
! math module is not available
|
|
||||||
real(pReal), parameter :: PI = 3.141592653589793_pReal
|
|
||||||
real(pReal), parameter :: INRAD = PI/180.0_pReal
|
|
||||||
|
|
||||||
integer(pInt) :: i,j,bin,NnonZero,Nset,Nreps,reps,phi1,Phi,phi2
|
|
||||||
integer(pInt), allocatable, dimension(:) :: chunkPos
|
|
||||||
integer(pInt), dimension(3) :: steps !< number of steps in phi1, Phi, and phi2 direction
|
|
||||||
integer(pInt), dimension(4) :: columns !< columns in linearODF file where eulerangles and density are located
|
|
||||||
integer(pInt), dimension(:), allocatable :: binSet
|
|
||||||
real(pReal) :: center,sum_dV_V,prob,dg_0,C,lowerC,upperC,rnd
|
|
||||||
real(pReal), dimension(2,3) :: limits !< starting and end values for eulerangles
|
|
||||||
real(pReal), dimension(3) :: deltas, & !< angular step size in phi1, Phi, and phi2 direction
|
|
||||||
eulers !< euler angles when reading from file
|
|
||||||
real(pReal), dimension(:,:,:), allocatable :: dV_V
|
|
||||||
character(len=65536) :: line, keyword
|
|
||||||
integer(pInt) :: headerLength
|
|
||||||
integer(pInt), parameter :: FILEUNIT = 999_pInt
|
|
||||||
|
|
||||||
IO_hybridIA = 0.0_pReal ! initialize return value for case of error
|
|
||||||
write(6,'(/,a,/)',advance='no') ' Using linear ODF file: '//trim(ODFfileName)
|
|
||||||
write(6,'(/,a)') ' Eisenlohr et al., Computational Materials Science, 42(4):670–678, 2008'
|
|
||||||
write(6,'(a)') ' https://doi.org/10.1016/j.commatsci.2007.09.015'
|
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
! parse header of ODF file
|
|
||||||
call IO_open_file(FILEUNIT,ODFfileName)
|
|
||||||
headerLength = 0_pInt
|
|
||||||
line=IO_read(FILEUNIT)
|
|
||||||
chunkPos = IO_stringPos(line)
|
|
||||||
keyword = IO_lc(IO_StringValue(line,chunkPos,2_pInt,.true.))
|
|
||||||
if (keyword(1:4) == 'head') then
|
|
||||||
headerLength = IO_intValue(line,chunkPos,1_pInt) + 1_pInt
|
|
||||||
else
|
|
||||||
call IO_error(error_ID=156_pInt, ext_msg='no header found')
|
|
||||||
endif
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
! figure out columns containing data
|
|
||||||
do i = 1_pInt, headerLength-1_pInt
|
|
||||||
line=IO_read(FILEUNIT)
|
|
||||||
enddo
|
|
||||||
columns = 0_pInt
|
|
||||||
chunkPos = IO_stringPos(line)
|
|
||||||
do i = 1_pInt, chunkPos(1)
|
|
||||||
select case ( IO_lc(IO_StringValue(line,chunkPos,i,.true.)) )
|
|
||||||
case ('phi1')
|
|
||||||
columns(1) = i
|
|
||||||
case ('phi')
|
|
||||||
columns(2) = i
|
|
||||||
case ('phi2')
|
|
||||||
columns(3) = i
|
|
||||||
case ('intensity')
|
|
||||||
columns(4) = i
|
|
||||||
end select
|
|
||||||
enddo
|
|
||||||
|
|
||||||
if (any(columns<1)) call IO_error(error_ID = 156_pInt, ext_msg='could not find expected header')
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
! determine limits, number of steps and step size
|
|
||||||
limits(1,1:3) = 721.0_pReal
|
|
||||||
limits(2,1:3) = -1.0_pReal
|
|
||||||
steps = 0_pInt
|
|
||||||
|
|
||||||
line=IO_read(FILEUNIT)
|
|
||||||
do while (trim(line) /= IO_EOF)
|
|
||||||
chunkPos = IO_stringPos(line)
|
|
||||||
eulers=[IO_floatValue(line,chunkPos,columns(1)),&
|
|
||||||
IO_floatValue(line,chunkPos,columns(2)),&
|
|
||||||
IO_floatValue(line,chunkPos,columns(3))]
|
|
||||||
steps = steps + merge(1,0,eulers>limits(2,1:3))
|
|
||||||
limits(1,1:3) = min(limits(1,1:3),eulers)
|
|
||||||
limits(2,1:3) = max(limits(2,1:3),eulers)
|
|
||||||
line=IO_read(FILEUNIT)
|
|
||||||
enddo
|
|
||||||
|
|
||||||
deltas = (limits(2,1:3)-limits(1,1:3))/real(steps-1_pInt,pReal)
|
|
||||||
|
|
||||||
write(6,'(/,a,/,3(2x,f12.4,1x))',advance='no') ' Starting angles / ° = ',limits(1,1:3)
|
|
||||||
write(6,'(/,a,/,3(2x,f12.4,1x))',advance='no') ' Ending angles / ° = ',limits(2,1:3)
|
|
||||||
write(6,'(/,a,/,3(2x,f12.4,1x))',advance='no') ' Angular steps / ° = ',deltas
|
|
||||||
|
|
||||||
if (all(abs(limits(1,1:3)) < tol_math_check)) then
|
|
||||||
write(6,'(/,a,/)',advance='no') ' assuming vertex centered data'
|
|
||||||
center = 0.0_pReal ! no need to shift
|
|
||||||
if (any(mod(int(limits(2,1:3),pInt),90)==0)) &
|
|
||||||
call IO_error(error_ID = 156_pInt, ext_msg='linear ODF data repeated at right boundary')
|
|
||||||
else
|
|
||||||
write(6,'(/,a,/)',advance='no') ' assuming cell centered data'
|
|
||||||
center = 0.5_pReal ! shift data by half of a bin
|
|
||||||
endif
|
|
||||||
|
|
||||||
limits = limits*INRAD
|
|
||||||
deltas = deltas*INRAD
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
! read in data
|
|
||||||
allocate(dV_V(steps(3),steps(2),steps(1)),source=0.0_pReal)
|
|
||||||
sum_dV_V = 0.0_pReal
|
|
||||||
dg_0 = deltas(1)*deltas(3)*2.0_pReal*sin(deltas(2)/2.0_pReal)
|
|
||||||
NnonZero = 0_pInt
|
|
||||||
|
|
||||||
call IO_checkAndRewind(FILEUNIT) ! forward
|
|
||||||
do i = 1_pInt, headerLength
|
|
||||||
line=IO_read(FILEUNIT)
|
|
||||||
enddo
|
|
||||||
|
|
||||||
do phi1=1_pInt,steps(1); do Phi=1_pInt,steps(2); do phi2=1_pInt,steps(3)
|
|
||||||
line=IO_read(FILEUNIT)
|
|
||||||
chunkPos = IO_stringPos(line)
|
|
||||||
eulers=[IO_floatValue(line,chunkPos,columns(1)),& ! read in again for consistency check only
|
|
||||||
IO_floatValue(line,chunkPos,columns(2)),&
|
|
||||||
IO_floatValue(line,chunkPos,columns(3))]*INRAD
|
|
||||||
if (any(abs((real([phi1,phi,phi2],pReal) -1.0_pReal + center)*deltas-eulers)>tol_math_check)) & ! check if data is in expected order (phi2 fast) and correct for Fortran starting at 1
|
|
||||||
call IO_error(error_ID = 156_pInt, ext_msg='linear ODF data not in expected order')
|
|
||||||
|
|
||||||
prob = IO_floatValue(line,chunkPos,columns(4))
|
|
||||||
if (prob > 0.0_pReal) then
|
|
||||||
NnonZero = NnonZero+1_pInt
|
|
||||||
sum_dV_V = sum_dV_V+prob
|
|
||||||
else
|
|
||||||
prob = 0.0_pReal
|
|
||||||
endif
|
|
||||||
dV_V(phi2,Phi,phi1) = prob*dg_0*sin((real(Phi-1_pInt,pReal)+center)*deltas(2))
|
|
||||||
enddo; enddo; enddo
|
|
||||||
close(FILEUNIT)
|
|
||||||
dV_V = dV_V/sum_dV_V ! normalize to 1
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
! now fix bounds
|
|
||||||
Nset = max(Nast,NnonZero) ! if less than non-zero voxel count requested, sample at least that much
|
|
||||||
lowerC = 0.0_pReal
|
|
||||||
upperC = real(Nset, pReal)
|
|
||||||
|
|
||||||
do while (hybridIA_reps(dV_V,steps,upperC) < Nset)
|
|
||||||
lowerC = upperC
|
|
||||||
upperC = upperC*2.0_pReal
|
|
||||||
enddo
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
! binary search for best C
|
|
||||||
do
|
|
||||||
C = (upperC+lowerC)/2.0_pReal
|
|
||||||
Nreps = hybridIA_reps(dV_V,steps,C)
|
|
||||||
if (abs(upperC-lowerC) < upperC*1.0e-14_pReal) then
|
|
||||||
C = upperC
|
|
||||||
Nreps = hybridIA_reps(dV_V,steps,C)
|
|
||||||
exit
|
|
||||||
elseif (Nreps < Nset) then
|
|
||||||
lowerC = C
|
|
||||||
elseif (Nreps > Nset) then
|
|
||||||
upperC = C
|
|
||||||
else
|
|
||||||
exit
|
|
||||||
endif
|
|
||||||
enddo
|
|
||||||
|
|
||||||
allocate(binSet(Nreps))
|
|
||||||
bin = 0_pInt ! bin counter
|
|
||||||
i = 1_pInt ! set counter
|
|
||||||
do phi1=1_pInt,steps(1); do Phi=1_pInt,steps(2) ;do phi2=1_pInt,steps(3)
|
|
||||||
reps = nint(C*dV_V(phi2,Phi,phi1), pInt)
|
|
||||||
binSet(i:i+reps-1) = bin
|
|
||||||
bin = bin+1_pInt ! advance bin
|
|
||||||
i = i+reps ! advance set
|
|
||||||
enddo; enddo; enddo
|
|
||||||
|
|
||||||
do i=1_pInt,Nast
|
|
||||||
if (i < Nast) then
|
|
||||||
call random_number(rnd)
|
|
||||||
j = nint(rnd*real(Nreps-i,pReal)+real(i,pReal)+0.5_pReal,pInt)
|
|
||||||
else
|
|
||||||
j = i
|
|
||||||
endif
|
|
||||||
bin = binSet(j)
|
|
||||||
IO_hybridIA(1,i) = deltas(1)*(real(mod(bin/(steps(3)*steps(2)),steps(1)),pReal)+center) ! phi1
|
|
||||||
IO_hybridIA(2,i) = deltas(2)*(real(mod(bin/ steps(3) ,steps(2)),pReal)+center) ! Phi
|
|
||||||
IO_hybridIA(3,i) = deltas(3)*(real(mod(bin ,steps(3)),pReal)+center) ! phi2
|
|
||||||
binSet(j) = binSet(i)
|
|
||||||
enddo
|
|
||||||
|
|
||||||
contains
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
!> @brief counts hybrid IA repetitions
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
integer(pInt) pure function hybridIA_reps(dV_V,steps,C)
|
|
||||||
|
|
||||||
implicit none
|
|
||||||
integer(pInt), intent(in), dimension(3) :: steps !< number of bins in Euler space
|
|
||||||
real(pReal), intent(in), dimension(steps(3),steps(2),steps(1)) :: dV_V !< needs description
|
|
||||||
real(pReal), intent(in) :: C !< needs description
|
|
||||||
|
|
||||||
integer(pInt) :: phi1,Phi,phi2
|
|
||||||
|
|
||||||
hybridIA_reps = 0_pInt
|
|
||||||
do phi1=1_pInt,steps(1); do Phi =1_pInt,steps(2); do phi2=1_pInt,steps(3)
|
|
||||||
hybridIA_reps = hybridIA_reps+nint(C*dV_V(phi2,Phi,phi1), pInt)
|
|
||||||
enddo; enddo; enddo
|
|
||||||
|
|
||||||
end function hybridIA_reps
|
|
||||||
|
|
||||||
end function IO_hybridIA
|
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief identifies strings without content
|
!> @brief identifies strings without content
|
||||||
|
@ -1758,7 +1540,6 @@ integer(pInt) function IO_verifyIntValue (string,validChars,myName)
|
||||||
validChars, & !< valid characters in string
|
validChars, & !< valid characters in string
|
||||||
myName !< name of caller function (for debugging)
|
myName !< name of caller function (for debugging)
|
||||||
integer(pInt) :: readStatus, invalidWhere
|
integer(pInt) :: readStatus, invalidWhere
|
||||||
!character(len=len(trim(string))) :: trimmed does not work with ifort 14.0.1
|
|
||||||
|
|
||||||
IO_verifyIntValue = 0_pInt
|
IO_verifyIntValue = 0_pInt
|
||||||
|
|
||||||
|
@ -1788,7 +1569,6 @@ real(pReal) function IO_verifyFloatValue (string,validChars,myName)
|
||||||
myName !< name of caller function (for debugging)
|
myName !< name of caller function (for debugging)
|
||||||
|
|
||||||
integer(pInt) :: readStatus, invalidWhere
|
integer(pInt) :: readStatus, invalidWhere
|
||||||
!character(len=len(trim(string))) :: trimmed does not work with ifort 14.0.1
|
|
||||||
|
|
||||||
IO_verifyFloatValue = 0.0_pReal
|
IO_verifyFloatValue = 0.0_pReal
|
||||||
|
|
||||||
|
|
174
src/material.f90
174
src/material.f90
|
@ -169,18 +169,13 @@ module material
|
||||||
homogenization_maxNgrains !< max number of grains in any USED homogenization
|
homogenization_maxNgrains !< max number of grains in any USED homogenization
|
||||||
|
|
||||||
integer(pInt), dimension(:), allocatable, public, protected :: &
|
integer(pInt), dimension(:), allocatable, public, protected :: &
|
||||||
material_homogenizationAt, & !< homogenization ID of each element (copy of mesh_homogenizationAt)
|
|
||||||
phase_Nsources, & !< number of source mechanisms active in each phase
|
phase_Nsources, & !< number of source mechanisms active in each phase
|
||||||
phase_Nkinematics, & !< number of kinematic mechanisms active in each phase
|
phase_Nkinematics, & !< number of kinematic mechanisms active in each phase
|
||||||
phase_NstiffnessDegradations, & !< number of stiffness degradation mechanisms active in each phase
|
phase_NstiffnessDegradations, & !< number of stiffness degradation mechanisms active in each phase
|
||||||
phase_Noutput, & !< number of '(output)' items per phase
|
phase_Noutput, & !< number of '(output)' items per phase
|
||||||
phase_elasticityInstance, & !< instance of particular elasticity of each phase
|
phase_elasticityInstance, & !< instance of particular elasticity of each phase
|
||||||
phase_plasticityInstance !< instance of particular plasticity of each phase
|
phase_plasticityInstance, & !< instance of particular plasticity of each phase
|
||||||
|
crystallite_Noutput, & !< number of '(output)' items per crystallite setting
|
||||||
integer(pInt), dimension(:), allocatable, public, protected :: &
|
|
||||||
crystallite_Noutput !< number of '(output)' items per crystallite setting
|
|
||||||
|
|
||||||
integer(pInt), dimension(:), allocatable, public, protected :: &
|
|
||||||
homogenization_Ngrains, & !< number of grains in each homogenization
|
homogenization_Ngrains, & !< number of grains in each homogenization
|
||||||
homogenization_Noutput, & !< number of '(output)' items per homogenization
|
homogenization_Noutput, & !< number of '(output)' items per homogenization
|
||||||
homogenization_typeInstance, & !< instance of particular type of each homogenization
|
homogenization_typeInstance, & !< instance of particular type of each homogenization
|
||||||
|
@ -189,7 +184,7 @@ module material
|
||||||
vacancyflux_typeInstance, & !< instance of particular type of each vacancy flux
|
vacancyflux_typeInstance, & !< instance of particular type of each vacancy flux
|
||||||
porosity_typeInstance, & !< instance of particular type of each porosity model
|
porosity_typeInstance, & !< instance of particular type of each porosity model
|
||||||
hydrogenflux_typeInstance, & !< instance of particular type of each hydrogen flux
|
hydrogenflux_typeInstance, & !< instance of particular type of each hydrogen flux
|
||||||
microstructure_crystallite !< crystallite setting ID of each microstructure
|
microstructure_crystallite !< crystallite setting ID of each microstructure ! DEPRECATED !!!!
|
||||||
|
|
||||||
real(pReal), dimension(:), allocatable, public, protected :: &
|
real(pReal), dimension(:), allocatable, public, protected :: &
|
||||||
thermal_initialT, & !< initial temperature per each homogenization
|
thermal_initialT, & !< initial temperature per each homogenization
|
||||||
|
@ -198,12 +193,27 @@ module material
|
||||||
porosity_initialPhi, & !< initial posority per each homogenization
|
porosity_initialPhi, & !< initial posority per each homogenization
|
||||||
hydrogenflux_initialCh !< initial hydrogen concentration per each homogenization
|
hydrogenflux_initialCh !< initial hydrogen concentration per each homogenization
|
||||||
|
|
||||||
|
! NEW MAPPINGS
|
||||||
|
integer(pInt), dimension(:), allocatable, public, protected :: &
|
||||||
|
material_homogenizationAt, & !< homogenization ID of each element (copy of mesh_homogenizationAt)
|
||||||
|
material_homogenizationMemberAt, & !< position of the element within its homogenization instance
|
||||||
|
material_aggregateAt, & !< aggregate ID of each element FUTURE USE FOR OUTPUT
|
||||||
|
material_aggregatMemberAt !< position of the element within its aggregate instance FUTURE USE FOR OUTPUT
|
||||||
|
integer(pInt), dimension(:,:), allocatable, public, protected :: &
|
||||||
|
material_phaseAt, & !< phase ID of each element
|
||||||
|
material_phaseMemberAt, & !< position of the element within its phase instance
|
||||||
|
material_crystalliteAt, & !< crystallite ID of each element CURRENTLY NOT PER CONSTITUTENT
|
||||||
|
material_crystalliteMemberAt !< position of the element within its crystallite instance CURRENTLY NOT PER CONSTITUTENT
|
||||||
|
! END NEW MAPPINGS
|
||||||
|
|
||||||
|
! DEPRECATED: use material_phaseAt
|
||||||
integer(pInt), dimension(:,:,:), allocatable, public :: &
|
integer(pInt), dimension(:,:,:), allocatable, public :: &
|
||||||
material_phase !< phase (index) of each grain,IP,element
|
material_phase !< phase (index) of each grain,IP,element
|
||||||
! BEGIN DEPRECATED: use material_homogenizationAt
|
! DEPRECATED: use material_homogenizationAt
|
||||||
integer(pInt), dimension(:,:), allocatable, public :: &
|
integer(pInt), dimension(:,:), allocatable, public :: &
|
||||||
material_homog !< homogenization (index) of each IP,element
|
material_homog !< homogenization (index) of each IP,element
|
||||||
! END DEPRECATED
|
! END DEPRECATED
|
||||||
|
|
||||||
type(tPlasticState), allocatable, dimension(:), public :: &
|
type(tPlasticState), allocatable, dimension(:), public :: &
|
||||||
plasticState
|
plasticState
|
||||||
type(tSourceState), allocatable, dimension(:), public :: &
|
type(tSourceState), allocatable, dimension(:), public :: &
|
||||||
|
@ -227,10 +237,6 @@ module material
|
||||||
microstructure_elemhomo, & !< flag to indicate homogeneous microstructure distribution over element's IPs
|
microstructure_elemhomo, & !< flag to indicate homogeneous microstructure distribution over element's IPs
|
||||||
phase_localPlasticity !< flags phases with local constitutive law
|
phase_localPlasticity !< flags phases with local constitutive law
|
||||||
|
|
||||||
|
|
||||||
character(len=65536), dimension(:), allocatable, private :: &
|
|
||||||
texture_ODFfile !< name of each ODF file
|
|
||||||
|
|
||||||
integer(pInt), private :: &
|
integer(pInt), private :: &
|
||||||
microstructure_maxNconstituents, & !< max number of constituents in any phase
|
microstructure_maxNconstituents, & !< max number of constituents in any phase
|
||||||
texture_maxNgauss, & !< max number of Gauss components in any texture
|
texture_maxNgauss, & !< max number of Gauss components in any texture
|
||||||
|
@ -258,11 +264,13 @@ module material
|
||||||
logical, dimension(:), allocatable, private :: &
|
logical, dimension(:), allocatable, private :: &
|
||||||
homogenization_active
|
homogenization_active
|
||||||
|
|
||||||
|
! BEGIN DEPRECATED
|
||||||
integer(pInt), dimension(:,:,:), allocatable, public :: phaseAt !< phase ID of every material point (ipc,ip,el)
|
integer(pInt), dimension(:,:,:), allocatable, public :: phaseAt !< phase ID of every material point (ipc,ip,el)
|
||||||
integer(pInt), dimension(:,:,:), allocatable, public :: phasememberAt !< memberID of given phase at every material point (ipc,ip,el)
|
integer(pInt), dimension(:,:,:), allocatable, public :: phasememberAt !< memberID of given phase at every material point (ipc,ip,el)
|
||||||
integer(pInt), dimension(:,:,:), allocatable, public, target :: mappingCrystallite
|
|
||||||
integer(pInt), dimension(:,:,:), allocatable, public, target :: mappingHomogenization !< mapping from material points to offset in heterogenous state/field
|
integer(pInt), dimension(:,:,:), allocatable, public, target :: mappingHomogenization !< mapping from material points to offset in heterogenous state/field
|
||||||
integer(pInt), dimension(:,:), allocatable, public, target :: mappingHomogenizationConst !< mapping from material points to offset in constant state/field
|
integer(pInt), dimension(:,:), allocatable, private, target :: mappingHomogenizationConst !< mapping from material points to offset in constant state/field
|
||||||
|
! END DEPRECATED
|
||||||
|
|
||||||
type(tHomogMapping), allocatable, dimension(:), public :: &
|
type(tHomogMapping), allocatable, dimension(:), public :: &
|
||||||
thermalMapping, & !< mapping for thermal state/fields
|
thermalMapping, & !< mapping for thermal state/fields
|
||||||
|
@ -368,7 +376,6 @@ subroutine material_init()
|
||||||
use mesh, only: &
|
use mesh, only: &
|
||||||
mesh_homogenizationAt, &
|
mesh_homogenizationAt, &
|
||||||
mesh_NipsPerElem, &
|
mesh_NipsPerElem, &
|
||||||
mesh_maxNips, &
|
|
||||||
mesh_NcpElems, &
|
mesh_NcpElems, &
|
||||||
FE_geomtype
|
FE_geomtype
|
||||||
|
|
||||||
|
@ -378,11 +385,11 @@ subroutine material_init()
|
||||||
integer(pInt) :: &
|
integer(pInt) :: &
|
||||||
g, & !< grain number
|
g, & !< grain number
|
||||||
i, & !< integration point number
|
i, & !< integration point number
|
||||||
e, & !< element number
|
e !< element number
|
||||||
phase
|
integer(pInt), dimension(:), allocatable :: &
|
||||||
integer(pInt), dimension(:), allocatable :: ConstitutivePosition
|
PhaseCounter, &
|
||||||
integer(pInt), dimension(:), allocatable :: CrystallitePosition
|
CrystalliteCounter, &
|
||||||
integer(pInt), dimension(:), allocatable :: HomogenizationPosition
|
HomogenizationCounter
|
||||||
|
|
||||||
myDebug = debug_level(debug_material)
|
myDebug = debug_level(debug_material)
|
||||||
|
|
||||||
|
@ -473,30 +480,34 @@ subroutine material_init()
|
||||||
|
|
||||||
call material_populateGrains
|
call material_populateGrains
|
||||||
|
|
||||||
allocate(phaseAt ( homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems),source=0_pInt)
|
! BEGIN DEPRECATED
|
||||||
allocate(phasememberAt ( homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems),source=0_pInt)
|
allocate(phaseAt ( homogenization_maxNgrains,mesh_nIPsPerElem,mesh_NcpElems),source=0_pInt)
|
||||||
allocate(mappingHomogenization (2, mesh_maxNips,mesh_NcpElems),source=0_pInt)
|
allocate(phasememberAt ( homogenization_maxNgrains,mesh_nIPsPerElem,mesh_NcpElems),source=0_pInt)
|
||||||
allocate(mappingCrystallite (2,homogenization_maxNgrains, mesh_NcpElems),source=0_pInt)
|
allocate(mappingHomogenization (2, mesh_nIPsPerElem,mesh_NcpElems),source=0_pInt)
|
||||||
allocate(mappingHomogenizationConst( mesh_maxNips,mesh_NcpElems),source=1_pInt)
|
allocate(mappingHomogenizationConst( mesh_nIPsPerElem,mesh_NcpElems),source=1_pInt)
|
||||||
|
! END DEPRECATED
|
||||||
|
|
||||||
allocate(ConstitutivePosition (size(config_phase)), source=0_pInt)
|
allocate(material_homogenizationAt,source=mesh_homogenizationAt)
|
||||||
allocate(HomogenizationPosition(size(config_homogenization)),source=0_pInt)
|
allocate(PhaseCounter (size(config_phase)), source=0_pInt)
|
||||||
allocate(CrystallitePosition (size(config_phase)), source=0_pInt)
|
allocate(HomogenizationCounter(size(config_homogenization)),source=0_pInt)
|
||||||
|
|
||||||
ElemLoop:do e = 1_pInt,mesh_NcpElems
|
! BEGIN DEPRECATED
|
||||||
|
do e = 1_pInt,mesh_NcpElems
|
||||||
myHomog = mesh_homogenizationAt(e)
|
myHomog = mesh_homogenizationAt(e)
|
||||||
IPloop:do i = 1_pInt, mesh_NipsPerElem
|
do i = 1_pInt, mesh_NipsPerElem
|
||||||
HomogenizationPosition(myHomog) = HomogenizationPosition(myHomog) + 1_pInt
|
HomogenizationCounter(myHomog) = HomogenizationCounter(myHomog) + 1_pInt
|
||||||
mappingHomogenization(1:2,i,e) = [HomogenizationPosition(myHomog),myHomog]
|
mappingHomogenization(1:2,i,e) = [HomogenizationCounter(myHomog),myHomog]
|
||||||
GrainLoop:do g = 1_pInt,homogenization_Ngrains(myHomog)
|
do g = 1_pInt,homogenization_Ngrains(myHomog)
|
||||||
phase = material_phase(g,i,e)
|
myPhase = material_phase(g,i,e)
|
||||||
ConstitutivePosition(phase) = ConstitutivePosition(phase)+1_pInt ! not distinguishing between instances of same phase
|
PhaseCounter(myPhase) = PhaseCounter(myPhase)+1_pInt ! not distinguishing between instances of same phase
|
||||||
phaseAt(g,i,e) = phase
|
phaseAt(g,i,e) = myPhase
|
||||||
phasememberAt(g,i,e) = ConstitutivePosition(phase)
|
phasememberAt(g,i,e) = PhaseCounter(myPhase)
|
||||||
enddo GrainLoop
|
enddo
|
||||||
enddo IPloop
|
enddo
|
||||||
enddo ElemLoop
|
enddo
|
||||||
|
! END DEPRECATED
|
||||||
|
|
||||||
|
! REMOVE !!!!!
|
||||||
! hack needed to initialize field values used during constitutive and crystallite initializations
|
! hack needed to initialize field values used during constitutive and crystallite initializations
|
||||||
do myHomog = 1,size(config_homogenization)
|
do myHomog = 1,size(config_homogenization)
|
||||||
thermalMapping (myHomog)%p => mappingHomogenizationConst
|
thermalMapping (myHomog)%p => mappingHomogenizationConst
|
||||||
|
@ -937,9 +948,7 @@ subroutine material_parseTexture
|
||||||
integer(pInt) :: section, gauss, fiber, j, t, i
|
integer(pInt) :: section, gauss, fiber, j, t, i
|
||||||
character(len=65536), dimension(:), allocatable :: strings ! Values for given key in material config
|
character(len=65536), dimension(:), allocatable :: strings ! Values for given key in material config
|
||||||
integer(pInt), dimension(:), allocatable :: chunkPos
|
integer(pInt), dimension(:), allocatable :: chunkPos
|
||||||
character(len=65536) :: tag
|
|
||||||
|
|
||||||
allocate(texture_ODFfile(size(config_texture))); texture_ODFfile=''
|
|
||||||
allocate(texture_symmetry(size(config_texture)), source=1_pInt)
|
allocate(texture_symmetry(size(config_texture)), source=1_pInt)
|
||||||
allocate(texture_Ngauss(size(config_texture)), source=0_pInt)
|
allocate(texture_Ngauss(size(config_texture)), source=0_pInt)
|
||||||
allocate(texture_Nfiber(size(config_texture)), source=0_pInt)
|
allocate(texture_Nfiber(size(config_texture)), source=0_pInt)
|
||||||
|
@ -985,9 +994,6 @@ subroutine material_parseTexture
|
||||||
if(dNeq(math_det33(texture_transformation(1:3,1:3,t)),1.0_pReal)) call IO_error(157_pInt,t)
|
if(dNeq(math_det33(texture_transformation(1:3,1:3,t)),1.0_pReal)) call IO_error(157_pInt,t)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
tag=''
|
|
||||||
texture_ODFfile(t) = config_texture(t)%getString('hybridia',defaultVal=tag)
|
|
||||||
|
|
||||||
if (config_texture(t)%keyExists('symmetry')) then
|
if (config_texture(t)%keyExists('symmetry')) then
|
||||||
select case (config_texture(t)%getString('symmetry'))
|
select case (config_texture(t)%getString('symmetry'))
|
||||||
case('orthotropic')
|
case('orthotropic')
|
||||||
|
@ -1122,7 +1128,7 @@ end subroutine material_allocatePlasticState
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief populates the grains
|
!> @brief populates the grains
|
||||||
!> @details populates the grains by identifying active microstructure/homogenization pairs,
|
!> @details populates the grains by identifying active microstructure/homogenization pairs,
|
||||||
!! calculates the volume of the grains and deals with texture components and hybridIA
|
!! calculates the volume of the grains and deals with texture components
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine material_populateGrains
|
subroutine material_populateGrains
|
||||||
use prec, only: &
|
use prec, only: &
|
||||||
|
@ -1141,7 +1147,6 @@ subroutine material_populateGrains
|
||||||
mesh_elemType, &
|
mesh_elemType, &
|
||||||
mesh_homogenizationAt, &
|
mesh_homogenizationAt, &
|
||||||
mesh_microstructureAt, &
|
mesh_microstructureAt, &
|
||||||
mesh_maxNips, &
|
|
||||||
mesh_NcpElems, &
|
mesh_NcpElems, &
|
||||||
mesh_ipVolume, &
|
mesh_ipVolume, &
|
||||||
FE_geomtype
|
FE_geomtype
|
||||||
|
@ -1152,8 +1157,7 @@ subroutine material_populateGrains
|
||||||
homogenization_name, &
|
homogenization_name, &
|
||||||
microstructure_name
|
microstructure_name
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
IO_error, &
|
IO_error
|
||||||
IO_hybridIA
|
|
||||||
use debug, only: &
|
use debug, only: &
|
||||||
debug_level, &
|
debug_level, &
|
||||||
debug_material, &
|
debug_material, &
|
||||||
|
@ -1181,12 +1185,11 @@ subroutine material_populateGrains
|
||||||
|
|
||||||
myDebug = debug_level(debug_material)
|
myDebug = debug_level(debug_material)
|
||||||
|
|
||||||
allocate(material_volume(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), source=0.0_pReal)
|
allocate(material_volume(homogenization_maxNgrains,mesh_nIPsPerElem,mesh_NcpElems), source=0.0_pReal)
|
||||||
allocate(material_phase(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), source=0_pInt)
|
allocate(material_phase(homogenization_maxNgrains,mesh_nIPsPerElem,mesh_NcpElems), source=0_pInt)
|
||||||
allocate(material_homog(mesh_maxNips,mesh_NcpElems), source=0_pInt)
|
allocate(material_homog(mesh_nIPsPerElem,mesh_NcpElems), source=0_pInt)
|
||||||
allocate(material_homogenizationAt,source=mesh_homogenizationAt)
|
allocate(material_texture(homogenization_maxNgrains,mesh_nIPsPerElem,mesh_NcpElems), source=0_pInt)
|
||||||
allocate(material_texture(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), source=0_pInt)
|
allocate(material_EulerAngles(3,homogenization_maxNgrains,mesh_nIPsPerElem,mesh_NcpElems),source=0.0_pReal)
|
||||||
allocate(material_EulerAngles(3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems),source=0.0_pReal)
|
|
||||||
|
|
||||||
allocate(Ngrains(size(config_homogenization),size(config_microstructure)), source=0_pInt)
|
allocate(Ngrains(size(config_homogenization),size(config_microstructure)), source=0_pInt)
|
||||||
allocate(Nelems (size(config_homogenization),size(config_microstructure)), source=0_pInt)
|
allocate(Nelems (size(config_homogenization),size(config_microstructure)), source=0_pInt)
|
||||||
|
@ -1330,39 +1333,31 @@ subroutine material_populateGrains
|
||||||
real(texture_symmetry(textureID),pReal),pInt) ! max number of unique orientations (excl. symmetry)
|
real(texture_symmetry(textureID),pReal),pInt) ! max number of unique orientations (excl. symmetry)
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
! ...has texture components
|
! has texture components
|
||||||
if (texture_ODFfile(textureID) == '') then
|
gauss: do t = 1_pInt,texture_Ngauss(textureID) ! loop over Gauss components
|
||||||
gauss: do t = 1_pInt,texture_Ngauss(textureID) ! loop over Gauss components
|
do g = 1_pInt,int(real(myNorientations,pReal)*texture_Gauss(5,t,textureID),pInt) ! loop over required grain count
|
||||||
do g = 1_pInt,int(real(myNorientations,pReal)*texture_Gauss(5,t,textureID),pInt) ! loop over required grain count
|
orientationOfGrain(:,grain+constituentGrain+g) = &
|
||||||
orientationOfGrain(:,grain+constituentGrain+g) = &
|
math_sampleGaussOri(texture_Gauss(1:3,t,textureID),&
|
||||||
math_sampleGaussOri(texture_Gauss(1:3,t,textureID),&
|
texture_Gauss( 4,t,textureID))
|
||||||
texture_Gauss( 4,t,textureID))
|
enddo
|
||||||
enddo
|
constituentGrain = &
|
||||||
constituentGrain = &
|
constituentGrain + int(real(myNorientations,pReal)*texture_Gauss(5,t,textureID)) ! advance counter for grains of current constituent
|
||||||
constituentGrain + int(real(myNorientations,pReal)*texture_Gauss(5,t,textureID)) ! advance counter for grains of current constituent
|
enddo gauss
|
||||||
enddo gauss
|
|
||||||
|
|
||||||
fiber: do t = 1_pInt,texture_Nfiber(textureID) ! loop over fiber components
|
fiber: do t = 1_pInt,texture_Nfiber(textureID) ! loop over fiber components
|
||||||
do g = 1_pInt,int(real(myNorientations,pReal)*texture_Fiber(6,t,textureID),pInt) ! loop over required grain count
|
do g = 1_pInt,int(real(myNorientations,pReal)*texture_Fiber(6,t,textureID),pInt) ! loop over required grain count
|
||||||
orientationOfGrain(:,grain+constituentGrain+g) = &
|
orientationOfGrain(:,grain+constituentGrain+g) = &
|
||||||
math_sampleFiberOri(texture_Fiber(1:2,t,textureID),&
|
math_sampleFiberOri(texture_Fiber(1:2,t,textureID),&
|
||||||
texture_Fiber(3:4,t,textureID),&
|
texture_Fiber(3:4,t,textureID),&
|
||||||
texture_Fiber( 5,t,textureID))
|
texture_Fiber( 5,t,textureID))
|
||||||
enddo
|
enddo
|
||||||
constituentGrain = &
|
constituentGrain = &
|
||||||
constituentGrain + int(real(myNorientations,pReal)*texture_fiber(6,t,textureID),pInt) ! advance counter for grains of current constituent
|
constituentGrain + int(real(myNorientations,pReal)*texture_fiber(6,t,textureID),pInt) ! advance counter for grains of current constituent
|
||||||
enddo fiber
|
enddo fiber
|
||||||
|
|
||||||
random: do constituentGrain = constituentGrain+1_pInt,myNorientations ! fill remainder with random
|
random: do constituentGrain = constituentGrain+1_pInt,myNorientations ! fill remainder with random
|
||||||
orientationOfGrain(:,grain+constituentGrain) = math_sampleRandomOri()
|
orientationOfGrain(:,grain+constituentGrain) = math_sampleRandomOri()
|
||||||
enddo random
|
enddo random
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
! ...has hybrid IA
|
|
||||||
else
|
|
||||||
orientationOfGrain(1:3,grain+1_pInt:grain+myNorientations) = &
|
|
||||||
IO_hybridIA(myNorientations,texture_ODFfile(textureID))
|
|
||||||
if (all(dEq(orientationOfGrain(1:3,grain+1_pInt),-1.0_pReal))) call IO_error(156_pInt)
|
|
||||||
endif
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
! ...texture transformation
|
! ...texture transformation
|
||||||
|
@ -1479,12 +1474,7 @@ subroutine material_populateGrains
|
||||||
enddo microstructureLoop
|
enddo microstructureLoop
|
||||||
enddo homogenizationLoop
|
enddo homogenizationLoop
|
||||||
|
|
||||||
deallocate(volumeOfGrain)
|
|
||||||
deallocate(phaseOfGrain)
|
|
||||||
deallocate(textureOfGrain)
|
|
||||||
deallocate(orientationOfGrain)
|
|
||||||
deallocate(texture_transformation)
|
deallocate(texture_transformation)
|
||||||
deallocate(Nelems)
|
|
||||||
deallocate(elemsOfHomogMicro)
|
deallocate(elemsOfHomogMicro)
|
||||||
call config_deallocate('material.config/microstructure')
|
call config_deallocate('material.config/microstructure')
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue