Merge branch '30_parsePhasePartOnce' into 19-NewStylePhenopowerlaw
This commit is contained in:
commit
c7da8c7f75
369
src/material.f90
369
src/material.f90
|
@ -305,7 +305,10 @@ module material
|
||||||
vacancyConcRate, & !< vacancy conc change field
|
vacancyConcRate, & !< vacancy conc change field
|
||||||
hydrogenConcRate !< hydrogen conc change field
|
hydrogenConcRate !< hydrogen conc change field
|
||||||
|
|
||||||
type(tPartitionedStringList), public,protected, allocatable, dimension(:) :: phaseConfig
|
type(tPartitionedStringList), public,protected, allocatable, dimension(:) :: &
|
||||||
|
phaseConfig, &
|
||||||
|
microstructureConfig, &
|
||||||
|
crystalliteConfig
|
||||||
|
|
||||||
public :: &
|
public :: &
|
||||||
material_init, &
|
material_init, &
|
||||||
|
@ -375,8 +378,12 @@ subroutine material_init()
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
IO_error, &
|
IO_error, &
|
||||||
IO_open_file, &
|
IO_open_file, &
|
||||||
|
IO_read, &
|
||||||
|
IO_lc, &
|
||||||
IO_open_jobFile_stat, &
|
IO_open_jobFile_stat, &
|
||||||
IO_timeStamp
|
IO_getTag, &
|
||||||
|
IO_timeStamp, &
|
||||||
|
IO_EOF
|
||||||
use debug, only: &
|
use debug, only: &
|
||||||
debug_level, &
|
debug_level, &
|
||||||
debug_material, &
|
debug_material, &
|
||||||
|
@ -401,6 +408,9 @@ subroutine material_init()
|
||||||
integer(pInt), dimension(:), allocatable :: CrystallitePosition
|
integer(pInt), dimension(:), allocatable :: CrystallitePosition
|
||||||
integer(pInt), dimension(:), allocatable :: HomogenizationPosition
|
integer(pInt), dimension(:), allocatable :: HomogenizationPosition
|
||||||
|
|
||||||
|
character(len=65536) :: &
|
||||||
|
line,part
|
||||||
|
|
||||||
myDebug = debug_level(debug_material)
|
myDebug = debug_level(debug_material)
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- material init -+>>>'
|
write(6,'(/,a)') ' <<<+- material init -+>>>'
|
||||||
|
@ -409,16 +419,36 @@ subroutine material_init()
|
||||||
|
|
||||||
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
|
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
|
||||||
call IO_open_file(FILEUNIT,material_configFile) ! ...open material.config file
|
call IO_open_file(FILEUNIT,material_configFile) ! ...open material.config file
|
||||||
|
|
||||||
|
rewind(fileUnit)
|
||||||
|
line = '' ! to have it initialized
|
||||||
|
do while (trim(line) /= IO_EOF)
|
||||||
|
part = IO_lc(IO_getTag(line,'<','>'))
|
||||||
|
|
||||||
|
select case (trim(part))
|
||||||
|
|
||||||
|
case (trim(material_partPhase))
|
||||||
|
line = material_parsePhase(FILEUNIT)
|
||||||
|
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Phase parsed'; flush(6)
|
||||||
|
|
||||||
|
case (trim(material_partMicrostructure))
|
||||||
|
line = material_parseMicrostructure(FILEUNIT)
|
||||||
|
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Microstructure parsed'; flush(6)
|
||||||
|
|
||||||
|
case (trim(material_partCrystallite))
|
||||||
|
line = material_parseCrystallite(FILEUNIT)
|
||||||
|
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Crystallite parsed'; flush(6)
|
||||||
|
|
||||||
|
case default
|
||||||
|
line = IO_read(fileUnit)
|
||||||
|
end select
|
||||||
|
|
||||||
|
enddo
|
||||||
|
|
||||||
call material_parseHomogenization(FILEUNIT,material_partHomogenization)
|
call material_parseHomogenization(FILEUNIT,material_partHomogenization)
|
||||||
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Homogenization parsed'; flush(6)
|
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Homogenization parsed'; flush(6)
|
||||||
call material_parseMicrostructure(FILEUNIT,material_partMicrostructure)
|
|
||||||
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Microstructure parsed'; flush(6)
|
|
||||||
call material_parseCrystallite(FILEUNIT,material_partCrystallite)
|
|
||||||
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Crystallite parsed'; flush(6)
|
|
||||||
call material_parseTexture(FILEUNIT,material_partTexture)
|
call material_parseTexture(FILEUNIT,material_partTexture)
|
||||||
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Texture parsed'; flush(6)
|
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Texture parsed'; flush(6)
|
||||||
call material_parsePhase(FILEUNIT,material_partPhase)
|
|
||||||
if (iand(myDebug,debug_levelBasic) /= 0_pInt) write(6,'(a)') ' Phase parsed'; flush(6)
|
|
||||||
close(FILEUNIT)
|
close(FILEUNIT)
|
||||||
|
|
||||||
allocate(plasticState (material_Nphase))
|
allocate(plasticState (material_Nphase))
|
||||||
|
@ -689,22 +719,22 @@ subroutine material_parseHomogenization(fileUnit,myPart)
|
||||||
call IO_error(500_pInt,ext_msg=trim(IO_stringValue(line,chunkPos,2_pInt)))
|
call IO_error(500_pInt,ext_msg=trim(IO_stringValue(line,chunkPos,2_pInt)))
|
||||||
end select
|
end select
|
||||||
|
|
||||||
case ('nconstituents','ngrains')
|
case ('nconstituents')
|
||||||
homogenization_Ngrains(section) = IO_intValue(line,chunkPos,2_pInt)
|
homogenization_Ngrains(section) = IO_intValue(line,chunkPos,2_pInt)
|
||||||
|
|
||||||
case ('initialtemperature','initialt')
|
case ('t0')
|
||||||
thermal_initialT(section) = IO_floatValue(line,chunkPos,2_pInt)
|
thermal_initialT(section) = IO_floatValue(line,chunkPos,2_pInt)
|
||||||
|
|
||||||
case ('initialdamage')
|
case ('initialdamage')
|
||||||
damage_initialPhi(section) = IO_floatValue(line,chunkPos,2_pInt)
|
damage_initialPhi(section) = IO_floatValue(line,chunkPos,2_pInt)
|
||||||
|
|
||||||
case ('initialvacancyconc','initialcv')
|
case ('cv0')
|
||||||
vacancyflux_initialCv(section) = IO_floatValue(line,chunkPos,2_pInt)
|
vacancyflux_initialCv(section) = IO_floatValue(line,chunkPos,2_pInt)
|
||||||
|
|
||||||
case ('initialporosity')
|
case ('initialporosity')
|
||||||
porosity_initialPhi(section) = IO_floatValue(line,chunkPos,2_pInt)
|
porosity_initialPhi(section) = IO_floatValue(line,chunkPos,2_pInt)
|
||||||
|
|
||||||
case ('initialhydrogenconc','initialch')
|
case ('ch0')
|
||||||
hydrogenflux_initialCh(section) = IO_floatValue(line,chunkPos,2_pInt)
|
hydrogenflux_initialCh(section) = IO_floatValue(line,chunkPos,2_pInt)
|
||||||
|
|
||||||
end select
|
end select
|
||||||
|
@ -728,7 +758,7 @@ end subroutine material_parseHomogenization
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief parses the microstructure part in the material configuration file
|
!> @brief parses the microstructure part in the material configuration file
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine material_parseMicrostructure(fileUnit,myPart)
|
character(len=65536) function material_parseMicrostructure(fileUnit)
|
||||||
use prec, only: &
|
use prec, only: &
|
||||||
dNeq
|
dNeq
|
||||||
use IO
|
use IO
|
||||||
|
@ -737,159 +767,163 @@ subroutine material_parseMicrostructure(fileUnit,myPart)
|
||||||
mesh_NcpElems
|
mesh_NcpElems
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
character(len=*), intent(in) :: myPart
|
|
||||||
integer(pInt), intent(in) :: fileUnit
|
integer(pInt), intent(in) :: fileUnit
|
||||||
|
|
||||||
|
character(len=64), dimension(:), allocatable :: &
|
||||||
|
str
|
||||||
integer(pInt), allocatable, dimension(:) :: chunkPos
|
integer(pInt), allocatable, dimension(:) :: chunkPos
|
||||||
integer(pInt) :: Nsections, section, constituent, e, i
|
integer(pInt), allocatable, dimension(:,:) :: chunkPoss
|
||||||
|
integer(pInt) :: e, m, constituent, i
|
||||||
character(len=65536) :: &
|
character(len=65536) :: &
|
||||||
tag, line
|
tag,line,devNull
|
||||||
logical :: echo
|
logical :: echo
|
||||||
|
|
||||||
echo = IO_globalTagInPart(fileUnit,myPart,'/echo/')
|
allocate(microstructure_name(0))
|
||||||
|
allocate(MicrostructureConfig(0))
|
||||||
Nsections = IO_countSections(fileUnit,myPart)
|
line = '' ! to have it initialized
|
||||||
material_Nmicrostructure = Nsections
|
m = 0_pInt
|
||||||
if (Nsections < 1_pInt) call IO_error(160_pInt,ext_msg=myPart)
|
echo =.false.
|
||||||
|
|
||||||
allocate(microstructure_name(Nsections)); microstructure_name = ''
|
|
||||||
allocate(microstructure_crystallite(Nsections), source=0_pInt)
|
|
||||||
allocate(microstructure_Nconstituents(Nsections), source=0_pInt)
|
|
||||||
allocate(microstructure_active(Nsections), source=.false.)
|
|
||||||
allocate(microstructure_elemhomo(Nsections), source=.false.)
|
|
||||||
|
|
||||||
if(any(mesh_element(4,1:mesh_NcpElems) > Nsections)) &
|
|
||||||
call IO_error(155_pInt,ext_msg='More microstructures in geometry than sections in material.config')
|
|
||||||
|
|
||||||
forall (e = 1_pInt:mesh_NcpElems) microstructure_active(mesh_element(4,e)) = .true. ! current microstructure used in model? Elementwise view, maximum N operations for N elements
|
|
||||||
|
|
||||||
microstructure_Nconstituents = IO_countTagInPart(fileUnit,myPart,'(constituent)',Nsections)
|
|
||||||
microstructure_maxNconstituents = maxval(microstructure_Nconstituents)
|
|
||||||
microstructure_elemhomo = IO_spotTagInPart(fileUnit,myPart,'/elementhomogeneous/',Nsections)
|
|
||||||
|
|
||||||
allocate(microstructure_phase (microstructure_maxNconstituents,Nsections),source=0_pInt)
|
|
||||||
allocate(microstructure_texture (microstructure_maxNconstituents,Nsections),source=0_pInt)
|
|
||||||
allocate(microstructure_fraction(microstructure_maxNconstituents,Nsections),source=0.0_pReal)
|
|
||||||
|
|
||||||
rewind(fileUnit)
|
|
||||||
line = '' ! to have it initialized
|
|
||||||
section = 0_pInt ! - " -
|
|
||||||
constituent = 0_pInt ! - " -
|
|
||||||
|
|
||||||
do while (trim(line) /= IO_EOF .and. IO_lc(IO_getTag(line,'<','>')) /= myPart) ! wind forward to <microstructure>
|
|
||||||
line = IO_read(fileUnit)
|
|
||||||
enddo
|
|
||||||
if (echo) write(6,'(/,1x,a)') trim(line) ! echo part header
|
|
||||||
|
|
||||||
do while (trim(line) /= IO_EOF) ! read through sections of material part
|
do while (trim(line) /= IO_EOF) ! read through sections of material part
|
||||||
line = IO_read(fileUnit)
|
line = IO_read(fileUnit)
|
||||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||||
if (IO_getTag(line,'<','>') /= '') then ! stop at next part
|
foundNextPart: if (IO_getTag(line,'<','>') /= '') then
|
||||||
line = IO_read(fileUnit, .true.) ! reset IO_read
|
devNull = IO_read(fileUnit, .true.) ! reset IO_read
|
||||||
exit
|
exit
|
||||||
endif
|
endif foundNextPart
|
||||||
if (echo) write(6,'(2x,a)') trim(line) ! echo back read lines
|
nextSection: if (IO_getTag(line,'[',']') /= '') then
|
||||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
m = m + 1_pInt
|
||||||
section = section + 1_pInt
|
microstructureConfig = [microstructureConfig, emptyList]
|
||||||
constituent = 0_pInt
|
microstructure_name = [microstructure_Name,IO_getTag(line,'[',']')]
|
||||||
microstructure_name(section) = IO_getTag(line,'[',']')
|
endif nextSection
|
||||||
endif
|
chunkPos = IO_stringPos(line)
|
||||||
if (section > 0_pInt) then
|
tag = IO_lc(IO_stringValue(trim(line),chunkPos,1_pInt)) ! extract key
|
||||||
|
inSection: if (m > 0_pInt) then
|
||||||
chunkPos = IO_stringPos(line)
|
chunkPos = IO_stringPos(line)
|
||||||
tag = IO_lc(IO_stringValue(line,chunkPos,1_pInt)) ! extract key
|
call microstructureConfig(m)%add(IO_lc(trim(line)),chunkPos)
|
||||||
select case(tag)
|
else inSection
|
||||||
case ('crystallite')
|
echo = (trim(tag) == '/echo/')
|
||||||
microstructure_crystallite(section) = IO_intValue(line,chunkPos,2_pInt)
|
endif inSection
|
||||||
case ('(constituent)')
|
|
||||||
constituent = constituent + 1_pInt
|
|
||||||
do i = 2_pInt,6_pInt,2_pInt
|
|
||||||
tag = IO_lc(IO_stringValue(line,chunkPos,i))
|
|
||||||
select case (tag)
|
|
||||||
case('phase')
|
|
||||||
microstructure_phase(constituent,section) = IO_intValue(line,chunkPos,i+1_pInt)
|
|
||||||
case('texture')
|
|
||||||
microstructure_texture(constituent,section) = IO_intValue(line,chunkPos,i+1_pInt)
|
|
||||||
case('fraction')
|
|
||||||
microstructure_fraction(constituent,section) = IO_floatValue(line,chunkPos,i+1_pInt)
|
|
||||||
end select
|
|
||||||
enddo
|
|
||||||
end select
|
|
||||||
endif
|
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
!sanity check
|
material_Nmicrostructure = size(microstructureConfig)
|
||||||
do section = 1_pInt, Nsections
|
if (material_Nmicrostructure < 1_pInt) call IO_error(160_pInt,ext_msg=material_partMicrostructure)
|
||||||
if (dNeq(sum(microstructure_fraction(:,section)),1.0_pReal)) &
|
|
||||||
call IO_error(153_pInt,ext_msg=microstructure_name(section))
|
|
||||||
enddo
|
|
||||||
|
|
||||||
end subroutine material_parseMicrostructure
|
allocate(microstructure_crystallite(material_Nmicrostructure), source=0_pInt)
|
||||||
|
allocate(microstructure_Nconstituents(material_Nmicrostructure), source=0_pInt)
|
||||||
|
allocate(microstructure_active(material_Nmicrostructure), source=.false.)
|
||||||
|
allocate(microstructure_elemhomo(material_Nmicrostructure), source=.false.)
|
||||||
|
|
||||||
|
if(any(mesh_element(4,1:mesh_NcpElems) > material_Nmicrostructure)) &
|
||||||
|
call IO_error(155_pInt,ext_msg='More microstructures in geometry than sections in material.config')
|
||||||
|
|
||||||
|
forall (e = 1_pInt:mesh_NcpElems) microstructure_active(mesh_element(4,e)) = .true. ! current microstructure used in model? Elementwise view, maximum N operations for N elements
|
||||||
|
|
||||||
|
do m=1_pInt, material_Nmicrostructure
|
||||||
|
microstructure_Nconstituents(m) = microstructureConfig(m)%countKeys('(constituent)')
|
||||||
|
microstructure_crystallite(m) = microstructureConfig(m)%getInt('crystallite')
|
||||||
|
! microstructure_elemhomo = IO_spotTagInPart(fileUnit,myPart,'/elementhomogeneous/',Nsections)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
microstructure_maxNconstituents = maxval(microstructure_Nconstituents)
|
||||||
|
allocate(microstructure_phase (microstructure_maxNconstituents,material_Nmicrostructure),source=0_pInt)
|
||||||
|
allocate(microstructure_texture (microstructure_maxNconstituents,material_Nmicrostructure),source=0_pInt)
|
||||||
|
allocate(microstructure_fraction(microstructure_maxNconstituents,material_Nmicrostructure),source=0.0_pReal)
|
||||||
|
|
||||||
|
do m=1_pInt, material_Nmicrostructure
|
||||||
|
call microstructureConfig(m)%getRaws('(constituent)',str,chunkPoss)
|
||||||
|
do constituent = 1_pInt, size(str)
|
||||||
|
print*, trim(str(constituent))
|
||||||
|
do i = 2_pInt,6_pInt,2_pInt
|
||||||
|
tag = IO_lc(IO_stringValue(str(constituent),chunkPoss(:,constituent),i))
|
||||||
|
|
||||||
|
select case (tag)
|
||||||
|
case('phase')
|
||||||
|
microstructure_phase(constituent,m) = IO_intValue(str(constituent),chunkPos,i+1_pInt)
|
||||||
|
|
||||||
|
case('texture')
|
||||||
|
microstructure_texture(constituent,m) = IO_intValue(str(constituent),chunkPos,i+1_pInt)
|
||||||
|
|
||||||
|
case('fraction')
|
||||||
|
microstructure_fraction(constituent,m) = IO_floatValue(str(constituent),chunkPos,i+1_pInt)
|
||||||
|
|
||||||
|
end select
|
||||||
|
enddo
|
||||||
|
enddo
|
||||||
|
enddo
|
||||||
|
!sanity check
|
||||||
|
do m = 1_pInt, material_Nmicrostructure
|
||||||
|
if (dNeq(sum(microstructure_fraction(:,m)),1.0_pReal)) &
|
||||||
|
call IO_error(153_pInt,ext_msg=microstructure_name(m))
|
||||||
|
enddo
|
||||||
|
|
||||||
|
material_parseMicrostructure = line
|
||||||
|
end function material_parseMicrostructure
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief parses the crystallite part in the material configuration file
|
!> @brief parses the crystallite part in the material configuration file
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine material_parseCrystallite(fileUnit,myPart)
|
character(len=65536) function material_parseCrystallite(fileUnit)
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
IO_read, &
|
IO_read, &
|
||||||
IO_countSections, &
|
|
||||||
IO_error, &
|
IO_error, &
|
||||||
IO_countTagInPart, &
|
|
||||||
IO_globalTagInPart, &
|
|
||||||
IO_getTag, &
|
IO_getTag, &
|
||||||
IO_lc, &
|
IO_lc, &
|
||||||
|
IO_stringPos, &
|
||||||
|
IO_stringValue, &
|
||||||
IO_isBlank, &
|
IO_isBlank, &
|
||||||
IO_EOF
|
IO_EOF
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
character(len=*), intent(in) :: myPart
|
|
||||||
integer(pInt), intent(in) :: fileUnit
|
integer(pInt), intent(in) :: fileUnit
|
||||||
|
integer(pInt), allocatable, dimension(:) :: chunkPos
|
||||||
|
|
||||||
integer(pInt) :: Nsections, &
|
integer(pInt) :: c
|
||||||
section
|
character(len=65536) :: line, tag,devNull
|
||||||
character(len=65536) :: line
|
|
||||||
logical :: echo
|
logical :: echo
|
||||||
|
|
||||||
echo = IO_globalTagInPart(fileUnit,myPart,'/echo/')
|
allocate(crystallite_name(0))
|
||||||
|
allocate(crystalliteConfig(0))
|
||||||
Nsections = IO_countSections(fileUnit,myPart)
|
c = 0_pInt
|
||||||
material_Ncrystallite = Nsections
|
|
||||||
if (Nsections < 1_pInt) call IO_error(160_pInt,ext_msg=myPart)
|
|
||||||
|
|
||||||
allocate(crystallite_name(Nsections)); crystallite_name = ''
|
|
||||||
allocate(crystallite_Noutput(Nsections), source=0_pInt)
|
|
||||||
|
|
||||||
crystallite_Noutput = IO_countTagInPart(fileUnit,myPart,'(output)',Nsections)
|
|
||||||
|
|
||||||
rewind(fileUnit)
|
|
||||||
line = '' ! to have it initialized
|
|
||||||
section = 0_pInt ! - " -
|
|
||||||
do while (trim(line) /= IO_EOF .and. IO_lc(IO_getTag(line,'<','>')) /= myPart) ! wind forward to <Crystallite>
|
|
||||||
line = IO_read(fileUnit)
|
|
||||||
enddo
|
|
||||||
if (echo) write(6,'(/,1x,a)') trim(line) ! echo part header
|
|
||||||
|
|
||||||
do while (trim(line) /= IO_EOF) ! read through sections of material part
|
do while (trim(line) /= IO_EOF) ! read through sections of material part
|
||||||
line = IO_read(fileUnit)
|
line = IO_read(fileUnit)
|
||||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||||
if (IO_getTag(line,'<','>') /= '') then ! stop at next part
|
foundNextPart: if (IO_getTag(line,'<','>') /= '') then
|
||||||
line = IO_read(fileUnit, .true.) ! reset IO_read
|
devNull = IO_read(fileUnit, .true.) ! reset IO_read
|
||||||
exit
|
exit
|
||||||
endif
|
endif foundNextPart
|
||||||
if (echo) write(6,'(2x,a)') trim(line) ! echo back read lines
|
nextSection: if (IO_getTag(line,'[',']') /= '') then
|
||||||
if (IO_getTag(line,'[',']') /= '') then ! next section
|
c = c + 1_pInt
|
||||||
section = section + 1_pInt
|
crystalliteConfig = [crystalliteConfig, emptyList]
|
||||||
crystallite_name(section) = IO_getTag(line,'[',']')
|
crystallite_name = [crystallite_name,IO_getTag(line,'[',']')]
|
||||||
endif
|
endif nextSection
|
||||||
|
chunkPos = IO_stringPos(line)
|
||||||
|
tag = IO_lc(IO_stringValue(trim(line),chunkPos,1_pInt)) ! extract key
|
||||||
|
inSection: if (c > 0_pInt) then
|
||||||
|
chunkPos = IO_stringPos(line)
|
||||||
|
call crystalliteConfig(c)%add(IO_lc(trim(line)),chunkPos)
|
||||||
|
else inSection
|
||||||
|
echo = (trim(tag) == '/echo/')
|
||||||
|
endif inSection
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
end subroutine material_parseCrystallite
|
material_Ncrystallite = size(crystalliteConfig)
|
||||||
|
if (material_Ncrystallite < 1_pInt) call IO_error(160_pInt,ext_msg=material_partCrystallite)
|
||||||
|
|
||||||
|
allocate(crystallite_Noutput(material_Ncrystallite), source=0_pInt)
|
||||||
|
do c=1_pInt, material_Ncrystallite
|
||||||
|
crystallite_Noutput(c) = crystalliteConfig(c)%countKeys('(output)')
|
||||||
|
enddo
|
||||||
|
|
||||||
|
material_parseCrystallite = line
|
||||||
|
end function material_parseCrystallite
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief parses the phase part in the material configuration file
|
!> @brief parses the phase part in the material configuration file
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine material_parsePhase(fileUnit,myPart)
|
character(len=65536) function material_parsePhase(fileUnit)
|
||||||
use chained_list, only: &
|
use chained_list, only: &
|
||||||
emptyList
|
emptyList
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
|
@ -907,14 +941,13 @@ subroutine material_parsePhase(fileUnit,myPart)
|
||||||
IO_EOF
|
IO_EOF
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
character(len=*), intent(in) :: myPart
|
|
||||||
integer(pInt), intent(in) :: fileUnit
|
integer(pInt), intent(in) :: fileUnit
|
||||||
|
|
||||||
|
|
||||||
integer(pInt), allocatable, dimension(:) :: chunkPos
|
integer(pInt), allocatable, dimension(:) :: chunkPos
|
||||||
integer(pInt) :: Nsections, section, sourceCtr, kinematicsCtr, stiffDegradationCtr, p
|
integer(pInt) :: sourceCtr, kinematicsCtr, stiffDegradationCtr, p
|
||||||
character(len=65536) :: &
|
character(len=65536) :: &
|
||||||
tag,line
|
tag,line,devNull
|
||||||
character(len=64), dimension(:), allocatable :: &
|
character(len=64), dimension(:), allocatable :: &
|
||||||
str
|
str
|
||||||
logical :: echo
|
logical :: echo
|
||||||
|
@ -922,49 +955,44 @@ subroutine material_parsePhase(fileUnit,myPart)
|
||||||
allocate(phase_name(0))
|
allocate(phase_name(0))
|
||||||
allocate(phaseConfig(0))
|
allocate(phaseConfig(0))
|
||||||
line = '' ! to have it initialized
|
line = '' ! to have it initialized
|
||||||
section = 0_pInt ! - " -
|
p = 0_pInt ! - " -
|
||||||
echo =.false.
|
echo =.false.
|
||||||
|
|
||||||
rewind(fileUnit)
|
|
||||||
do while (trim(line) /= IO_EOF .and. IO_lc(IO_getTag(line,'<','>')) /= myPart) ! wind forward to <Phase>
|
|
||||||
line = IO_read(fileUnit)
|
|
||||||
enddo
|
|
||||||
|
|
||||||
do while (trim(line) /= IO_EOF) ! read through sections of material part
|
do while (trim(line) /= IO_EOF) ! read through sections of material part
|
||||||
line = IO_read(fileUnit)
|
line = IO_read(fileUnit)
|
||||||
if (IO_isBlank(line)) cycle ! skip empty lines
|
if (IO_isBlank(line)) cycle ! skip empty lines
|
||||||
foundNextPart: if (IO_getTag(line,'<','>') /= '') then
|
foundNextPart: if (IO_getTag(line,'<','>') /= '') then
|
||||||
line = IO_read(fileUnit, .true.) ! reset IO_read
|
devNull = IO_read(fileUnit, .true.) ! reset IO_read
|
||||||
exit
|
exit
|
||||||
endif foundNextPart
|
endif foundNextPart
|
||||||
nextSection: if (IO_getTag(line,'[',']') /= '') then
|
nextSection: if (IO_getTag(line,'[',']') /= '') then
|
||||||
section = section + 1_pInt
|
p = p + 1_pInt
|
||||||
phaseConfig = [phaseConfig, emptyList]
|
phaseConfig = [phaseConfig, emptyList]
|
||||||
phase_name = [phase_Name,IO_getTag(line,'[',']')]
|
phase_name = [phase_Name,IO_getTag(line,'[',']')]
|
||||||
endif nextSection
|
endif nextSection
|
||||||
chunkPos = IO_stringPos(line)
|
chunkPos = IO_stringPos(line)
|
||||||
tag = IO_lc(IO_stringValue(trim(line),chunkPos,1_pInt)) ! extract key
|
tag = IO_lc(IO_stringValue(trim(line),chunkPos,1_pInt)) ! extract key
|
||||||
inSection: if (section > 0_pInt) then
|
inSection: if (p > 0_pInt) then
|
||||||
chunkPos = IO_stringPos(line)
|
chunkPos = IO_stringPos(line)
|
||||||
call phaseConfig(section)%add(IO_lc(trim(line)),chunkPos)
|
call phaseConfig(p)%add(IO_lc(trim(line)),chunkPos)
|
||||||
else inSection
|
else inSection
|
||||||
echo = (trim(tag) == '/echo/')
|
echo = (trim(tag) == '/echo/')
|
||||||
endif inSection
|
endif inSection
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
Nsections = size(phaseConfig)
|
|
||||||
material_Nphase = Nsections
|
|
||||||
if (Nsections < 1_pInt) call IO_error(160_pInt,ext_msg=myPart)
|
|
||||||
|
|
||||||
allocate(phase_elasticity(Nsections),source=ELASTICITY_undefined_ID)
|
material_Nphase = size(phaseConfig)
|
||||||
allocate(phase_plasticity(Nsections),source=PLASTICITY_undefined_ID)
|
if (material_Nphase < 1_pInt) call IO_error(160_pInt,ext_msg=material_partPhase)
|
||||||
allocate(phase_Nsources(Nsections), source=0_pInt)
|
|
||||||
allocate(phase_Nkinematics(Nsections), source=0_pInt)
|
|
||||||
allocate(phase_NstiffnessDegradations(Nsections),source=0_pInt)
|
|
||||||
allocate(phase_Noutput(Nsections), source=0_pInt)
|
|
||||||
allocate(phase_localPlasticity(Nsections), source=.false.)
|
|
||||||
|
|
||||||
do p=1_pInt, Nsections
|
allocate(phase_elasticity(material_Nphase),source=ELASTICITY_undefined_ID)
|
||||||
|
allocate(phase_plasticity(material_Nphase),source=PLASTICITY_undefined_ID)
|
||||||
|
allocate(phase_Nsources(material_Nphase), source=0_pInt)
|
||||||
|
allocate(phase_Nkinematics(material_Nphase), source=0_pInt)
|
||||||
|
allocate(phase_NstiffnessDegradations(material_Nphase),source=0_pInt)
|
||||||
|
allocate(phase_Noutput(material_Nphase), source=0_pInt)
|
||||||
|
allocate(phase_localPlasticity(material_Nphase), source=.false.)
|
||||||
|
|
||||||
|
do p=1_pInt, material_Nphase
|
||||||
phase_Noutput(p) = phaseConfig(p)%countKeys('(output)')
|
phase_Noutput(p) = phaseConfig(p)%countKeys('(output)')
|
||||||
phase_Nsources(p) = phaseConfig(p)%countKeys('(source)')
|
phase_Nsources(p) = phaseConfig(p)%countKeys('(source)')
|
||||||
phase_Nkinematics(p) = phaseConfig(p)%countKeys('(kinematics)')
|
phase_Nkinematics(p) = phaseConfig(p)%countKeys('(kinematics)')
|
||||||
|
@ -999,33 +1027,33 @@ subroutine material_parsePhase(fileUnit,myPart)
|
||||||
|
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
allocate(phase_source(maxval(phase_Nsources),Nsections), source=SOURCE_undefined_ID)
|
allocate(phase_source(maxval(phase_Nsources),material_Nphase), source=SOURCE_undefined_ID)
|
||||||
allocate(phase_kinematics(maxval(phase_Nkinematics),Nsections), source=KINEMATICS_undefined_ID)
|
allocate(phase_kinematics(maxval(phase_Nkinematics),material_Nphase), source=KINEMATICS_undefined_ID)
|
||||||
allocate(phase_stiffnessDegradation(maxval(phase_NstiffnessDegradations),Nsections), &
|
allocate(phase_stiffnessDegradation(maxval(phase_NstiffnessDegradations),material_Nphase), &
|
||||||
source=STIFFNESS_DEGRADATION_undefined_ID)
|
source=STIFFNESS_DEGRADATION_undefined_ID)
|
||||||
do p=1_pInt, Nsections
|
do p=1_pInt, material_Nphase
|
||||||
if (phase_Nsources(p) /= 0_pInt) then
|
if (phase_Nsources(p) /= 0_pInt) then
|
||||||
str = phaseConfig(p)%getStrings('(source)')
|
str = phaseConfig(p)%getStrings('(source)')
|
||||||
do sourceCtr = 1_pInt, size(str)
|
do sourceCtr = 1_pInt, size(str)
|
||||||
select case (trim(str(sourceCtr)))
|
select case (trim(str(sourceCtr)))
|
||||||
case (SOURCE_thermal_dissipation_label)
|
case (SOURCE_thermal_dissipation_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_thermal_dissipation_ID
|
phase_source(sourceCtr,p) = SOURCE_thermal_dissipation_ID
|
||||||
case (SOURCE_thermal_externalheat_label)
|
case (SOURCE_thermal_externalheat_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_thermal_externalheat_ID
|
phase_source(sourceCtr,p) = SOURCE_thermal_externalheat_ID
|
||||||
case (SOURCE_damage_isoBrittle_label)
|
case (SOURCE_damage_isoBrittle_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_damage_isoBrittle_ID
|
phase_source(sourceCtr,p) = SOURCE_damage_isoBrittle_ID
|
||||||
case (SOURCE_damage_isoDuctile_label)
|
case (SOURCE_damage_isoDuctile_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_damage_isoDuctile_ID
|
phase_source(sourceCtr,p) = SOURCE_damage_isoDuctile_ID
|
||||||
case (SOURCE_damage_anisoBrittle_label)
|
case (SOURCE_damage_anisoBrittle_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_damage_anisoBrittle_ID
|
phase_source(sourceCtr,p) = SOURCE_damage_anisoBrittle_ID
|
||||||
case (SOURCE_damage_anisoDuctile_label)
|
case (SOURCE_damage_anisoDuctile_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_damage_anisoDuctile_ID
|
phase_source(sourceCtr,p) = SOURCE_damage_anisoDuctile_ID
|
||||||
case (SOURCE_vacancy_phenoplasticity_label)
|
case (SOURCE_vacancy_phenoplasticity_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_vacancy_phenoplasticity_ID
|
phase_source(sourceCtr,p) = SOURCE_vacancy_phenoplasticity_ID
|
||||||
case (SOURCE_vacancy_irradiation_label)
|
case (SOURCE_vacancy_irradiation_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_vacancy_irradiation_ID
|
phase_source(sourceCtr,p) = SOURCE_vacancy_irradiation_ID
|
||||||
case (SOURCE_vacancy_thermalfluc_label)
|
case (SOURCE_vacancy_thermalfluc_label)
|
||||||
phase_source(sourceCtr,section) = SOURCE_vacancy_thermalfluc_ID
|
phase_source(sourceCtr,p) = SOURCE_vacancy_thermalfluc_ID
|
||||||
end select
|
end select
|
||||||
enddo
|
enddo
|
||||||
endif
|
endif
|
||||||
|
@ -1034,15 +1062,15 @@ subroutine material_parsePhase(fileUnit,myPart)
|
||||||
do kinematicsCtr = 1_pInt, size(str)
|
do kinematicsCtr = 1_pInt, size(str)
|
||||||
select case (trim(str(kinematicsCtr)))
|
select case (trim(str(kinematicsCtr)))
|
||||||
case (KINEMATICS_cleavage_opening_label)
|
case (KINEMATICS_cleavage_opening_label)
|
||||||
phase_kinematics(kinematicsCtr,section) = KINEMATICS_cleavage_opening_ID
|
phase_kinematics(kinematicsCtr,p) = KINEMATICS_cleavage_opening_ID
|
||||||
case (KINEMATICS_slipplane_opening_label)
|
case (KINEMATICS_slipplane_opening_label)
|
||||||
phase_kinematics(kinematicsCtr,section) = KINEMATICS_slipplane_opening_ID
|
phase_kinematics(kinematicsCtr,p) = KINEMATICS_slipplane_opening_ID
|
||||||
case (KINEMATICS_thermal_expansion_label)
|
case (KINEMATICS_thermal_expansion_label)
|
||||||
phase_kinematics(kinematicsCtr,section) = KINEMATICS_thermal_expansion_ID
|
phase_kinematics(kinematicsCtr,p) = KINEMATICS_thermal_expansion_ID
|
||||||
case (KINEMATICS_vacancy_strain_label)
|
case (KINEMATICS_vacancy_strain_label)
|
||||||
phase_kinematics(kinematicsCtr,section) = KINEMATICS_vacancy_strain_ID
|
phase_kinematics(kinematicsCtr,p) = KINEMATICS_vacancy_strain_ID
|
||||||
case (KINEMATICS_hydrogen_strain_label)
|
case (KINEMATICS_hydrogen_strain_label)
|
||||||
phase_kinematics(kinematicsCtr,section) = KINEMATICS_hydrogen_strain_ID
|
phase_kinematics(kinematicsCtr,p) = KINEMATICS_hydrogen_strain_ID
|
||||||
end select
|
end select
|
||||||
enddo
|
enddo
|
||||||
endif
|
endif
|
||||||
|
@ -1051,23 +1079,24 @@ subroutine material_parsePhase(fileUnit,myPart)
|
||||||
do stiffDegradationCtr = 1_pInt, size(str)
|
do stiffDegradationCtr = 1_pInt, size(str)
|
||||||
select case (trim(str(stiffDegradationCtr)))
|
select case (trim(str(stiffDegradationCtr)))
|
||||||
case (STIFFNESS_DEGRADATION_damage_label)
|
case (STIFFNESS_DEGRADATION_damage_label)
|
||||||
phase_stiffnessDegradation(stiffDegradationCtr,section) = STIFFNESS_DEGRADATION_damage_ID
|
phase_stiffnessDegradation(stiffDegradationCtr,p) = STIFFNESS_DEGRADATION_damage_ID
|
||||||
case (STIFFNESS_DEGRADATION_porosity_label)
|
case (STIFFNESS_DEGRADATION_porosity_label)
|
||||||
phase_stiffnessDegradation(stiffDegradationCtr,section) = STIFFNESS_DEGRADATION_porosity_ID
|
phase_stiffnessDegradation(stiffDegradationCtr,p) = STIFFNESS_DEGRADATION_porosity_ID
|
||||||
end select
|
end select
|
||||||
enddo
|
enddo
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
allocate(phase_plasticityInstance(Nsections), source=0_pInt)
|
allocate(phase_plasticityInstance(material_Nphase), source=0_pInt)
|
||||||
allocate(phase_elasticityInstance(Nsections), source=0_pInt)
|
allocate(phase_elasticityInstance(material_Nphase), source=0_pInt)
|
||||||
|
|
||||||
do p=1_pInt, Nsections
|
do p=1_pInt, material_Nphase
|
||||||
phase_elasticityInstance(p) = count(phase_elasticity(1:p) == phase_elasticity(p))
|
phase_elasticityInstance(p) = count(phase_elasticity(1:p) == phase_elasticity(p))
|
||||||
phase_plasticityInstance(p) = count(phase_plasticity(1:p) == phase_plasticity(p))
|
phase_plasticityInstance(p) = count(phase_plasticity(1:p) == phase_plasticity(p))
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
end subroutine material_parsePhase
|
material_parsePhase = line
|
||||||
|
end function material_parsePhase
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief parses the texture part in the material configuration file
|
!> @brief parses the texture part in the material configuration file
|
||||||
|
|
Loading…
Reference in New Issue