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

more work on homogenisation new state and introduced field state

This commit is contained in:
Luv Sharma 2014-09-03 17:12:06 +00:00
parent e286cf4c74
commit 79f572f869
8 changed files with 375 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
code/Makefile
View File

@ -353,10 +353,20 @@ PRECISION_gfortran :=-fdefault-real-8 -fdefault-double-8 -DFLOAT=8 -DINT=4
COMPILE =$(OPENMP_FLAG_$(F90)) $(COMPILE_OPTIONS_$(F90)) $(STANDARD_CHECK_$(F90)) $(OPTIMIZATION_$(OPTI)_$(F90)) $(INCLUDE_DIRS) $(PRECISION_$(F90)) COMPILE =$(OPENMP_FLAG_$(F90)) $(COMPILE_OPTIONS_$(F90)) $(STANDARD_CHECK_$(F90)) $(OPTIMIZATION_$(OPTI)_$(F90)) $(INCLUDE_DIRS) $(PRECISION_$(F90))
COMPILE_MAXOPTI =$(OPENMP_FLAG_$(F90)) $(COMPILE_OPTIONS_$(F90)) $(STANDARD_CHECK_$(F90)) $(OPTIMIZATION_$(MAXOPTI)_$(F90)) $(INCLUDE_DIRS) $(PRECISION_$(F90)) -DSpectral COMPILE_MAXOPTI =$(OPENMP_FLAG_$(F90)) $(COMPILE_OPTIONS_$(F90)) $(STANDARD_CHECK_$(F90)) $(OPTIMIZATION_$(MAXOPTI)_$(F90)) $(INCLUDE_DIRS) $(PRECISION_$(F90)) -DSpectral
################################################################################################### ###################################################################################################
ifeq "$(STATE)" "NEWH"
DAMAGE_FILES = \
damage_none.o damage_local.o
else
DAMAGE_FILES = \ DAMAGE_FILES = \
damage_none.o damage_local.o damage_gradient.o damage_none.o damage_local.o damage_gradient.o
endif
ifeq "$(STATE)" "NEWH"
THERMAL_FILES = \
thermal_none.o
else
THERMAL_FILES = \ THERMAL_FILES = \
thermal_none.o thermal_conduction.o thermal_none.o thermal_conduction.o
endif
CONSTITUTIVE_FILES = \ CONSTITUTIVE_FILES = \
constitutive_dislotwin.o constitutive_dislokmc.o constitutive_j2.o constitutive_phenopowerlaw.o \ constitutive_dislotwin.o constitutive_dislokmc.o constitutive_j2.o constitutive_phenopowerlaw.o \
constitutive_titanmod.o constitutive_nonlocal.o constitutive_none.o \ constitutive_titanmod.o constitutive_nonlocal.o constitutive_none.o \
@ -502,9 +512,7 @@ constitutive_none.o: constitutive_none.f90 \
lattice.o lattice.o
constitutive_damage.o: constitutive_damage.f90 \ constitutive_damage.o: constitutive_damage.f90 \
damage_none.o \ $(DAMAGE_FILES)
damage_local.o \
damage_gradient.o
damage_none.o: damage_none.f90 \ damage_none.o: damage_none.f90 \
lattice.o lattice.o
@ -516,8 +524,7 @@ damage_gradient.o: damage_gradient.f90 \
lattice.o lattice.o
constitutive_thermal.o: constitutive_thermal.f90 \ constitutive_thermal.o: constitutive_thermal.f90 \
thermal_none.o \ $(THERMAL_FILES)
thermal_conduction.o
thermal_none.o: thermal_none.f90 \ thermal_none.o: thermal_none.f90 \
lattice.o lattice.o

95
code/constitutive_damage.f90
View File

@ -2,6 +2,7 @@
! $Id: constitutive_damage.f90 3205 2014-06-17 06:54:49Z MPIE\m.diehl $ ! $Id: constitutive_damage.f90 3205 2014-06-17 06:54:49Z MPIE\m.diehl $
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH !> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH
!> @author Luv Sharma, Max-Planck-Institut für Eisenforschung GmbH
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @brief damage internal microstructure state !> @brief damage internal microstructure state
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -55,15 +56,24 @@ subroutine constitutive_damage_init
homogenization_Ngrains, & homogenization_Ngrains, &
homogenization_maxNgrains, & homogenization_maxNgrains, &
damageState, & damageState, &
#ifdef NEWSTATE
LOCAL_DAMAGE_NONE_ID, &
LOCAL_DAMAGE_NONE_label, &
LOCAL_DAMAGE_BRITTLE_ID, &
LOCAL_DAMAGE_BRITTLE_label
#else
DAMAGE_none_ID, & DAMAGE_none_ID, &
DAMAGE_NONE_label, & DAMAGE_NONE_label, &
DAMAGE_local_ID, & DAMAGE_local_ID, &
DAMAGE_LOCAL_label, & DAMAGE_LOCAL_label, &
DAMAGE_gradient_ID, & DAMAGE_gradient_ID, &
DAMAGE_GRADIENT_label DAMAGE_GRADIENT_label
#endif
use damage_none use damage_none
use damage_local use damage_local
#ifndef NEWSTATE
use damage_gradient use damage_gradient
#endif
implicit none implicit none
integer(pInt), parameter :: FILEUNIT = 200_pInt integer(pInt), parameter :: FILEUNIT = 200_pInt
@ -81,9 +91,14 @@ use damage_gradient
! parse plasticities from config file ! parse plasticities from config file
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
#ifdef NEWSTATE
if (any(phase_damage == LOCAL_DAMAGE_NONE_ID)) call damage_none_init(FILEUNIT)
if (any(phase_damage == LOCAL_DAMAGE_BRITTLE_ID)) call damage_local_init(FILEUNIT)
#else
if (any(phase_damage == DAMAGE_none_ID)) call damage_none_init(FILEUNIT) if (any(phase_damage == DAMAGE_none_ID)) call damage_none_init(FILEUNIT)
if (any(phase_damage == DAMAGE_local_ID)) call damage_local_init(FILEUNIT) if (any(phase_damage == DAMAGE_local_ID)) call damage_local_init(FILEUNIT)
if (any(phase_damage == DAMAGE_gradient_ID)) call damage_gradient_init(FILEUNIT) if (any(phase_damage == DAMAGE_gradient_ID)) call damage_gradient_init(FILEUNIT)
#endif
close(FILEUNIT) close(FILEUNIT)
write(6,'(/,a)') ' <<<+- constitutive_damage init -+>>>' write(6,'(/,a)') ' <<<+- constitutive_damage init -+>>>'
@ -98,25 +113,41 @@ use damage_gradient
instance = phase_damageInstance(ph) ! which instance of a plasticity is present phase instance = phase_damageInstance(ph) ! which instance of a plasticity is present phase
knownDamage = .true. knownDamage = .true.
select case(phase_damage(ph)) ! split per constititution select case(phase_damage(ph)) ! split per constititution
#ifdef NEWSTATE
case (LOCAL_DAMAGE_none_ID)
outputName = LOCAL_DAMAGE_NONE_label
#else
case (DAMAGE_none_ID) case (DAMAGE_none_ID)
outputName = DAMAGE_NONE_label outputName = DAMAGE_NONE_label
#endif
thisOutput => null() thisOutput => null()
thisSize => null() thisSize => null()
#ifdef NEWSTATE
case (LOCAL_DAMAGE_BRITTLE_ID)
outputName = LOCAL_DAMAGE_BRITTLE_label
#else
case (DAMAGE_local_ID) case (DAMAGE_local_ID)
outputName = DAMAGE_LOCAL_label outputName = DAMAGE_LOCAL_label
#endif
thisOutput => damage_local_output thisOutput => damage_local_output
thisSize => damage_local_sizePostResult thisSize => damage_local_sizePostResult
#ifndef NEWSTATE
case (DAMAGE_gradient_ID) case (DAMAGE_gradient_ID)
outputName = DAMAGE_GRADIENT_label outputName = DAMAGE_GRADIENT_label
thisOutput => damage_gradient_output thisOutput => damage_gradient_output
thisSize => damage_gradient_sizePostResult thisSize => damage_gradient_sizePostResult
#endif
case default case default
knownDamage = .false. knownDamage = .false.
end select end select
write(FILEUNIT,'(/,a,/)') '['//trim(phase_name(ph))//']' write(FILEUNIT,'(/,a,/)') '['//trim(phase_name(ph))//']'
if (knownDamage) then if (knownDamage) then
write(FILEUNIT,'(a)') '(damage)'//char(9)//trim(outputName) write(FILEUNIT,'(a)') '(damage)'//char(9)//trim(outputName)
#ifdef NEWSTATE
if (phase_damage(ph) /= LOCAL_DAMAGE_none_ID) then
#else
if (phase_damage(ph) /= DAMAGE_none_ID) then if (phase_damage(ph) /= DAMAGE_none_ID) then
#endif
do e = 1_pInt,phase_Noutput(ph) do e = 1_pInt,phase_Noutput(ph)
write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance) write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance)
enddo enddo
@ -143,10 +174,14 @@ end subroutine constitutive_damage_init
subroutine constitutive_damage_microstructure(Tstar_v, Fe, ipc, ip, el) subroutine constitutive_damage_microstructure(Tstar_v, Fe, ipc, ip, el)
use material, only: & use material, only: &
material_phase, & material_phase, &
phase_damage, & #ifndef NEWSTATE
DAMAGE_gradient_ID DAMAGE_gradient_ID, &
#endif
phase_damage
#ifndef NEWSTATE
use damage_gradient, only: & use damage_gradient, only: &
damage_gradient_microstructure damage_gradient_microstructure
#endif
implicit none implicit none
integer(pInt), intent(in) :: & integer(pInt), intent(in) :: &
@ -159,8 +194,10 @@ subroutine constitutive_damage_microstructure(Tstar_v, Fe, ipc, ip, el)
Fe Fe
select case (phase_damage(material_phase(ipc,ip,el))) select case (phase_damage(material_phase(ipc,ip,el)))
#ifndef NEWSTATE
case (DAMAGE_gradient_ID) case (DAMAGE_gradient_ID)
call damage_gradient_microstructure(Tstar_v, Fe, ipc, ip, el) call damage_gradient_microstructure(Tstar_v, Fe, ipc, ip, el)
#endif
end select end select
@ -173,11 +210,18 @@ end subroutine constitutive_damage_microstructure
subroutine constitutive_damage_collectDotState(Tstar_v, Fe, Lp, ipc, ip, el) subroutine constitutive_damage_collectDotState(Tstar_v, Fe, Lp, ipc, ip, el)
use material, only: & use material, only: &
material_phase, & material_phase, &
phase_damage, & #ifdef NEWSTATE
LOCAL_DAMAGE_BRITTLE_ID, &
#else
DAMAGE_local_ID, & DAMAGE_local_ID, &
DAMAGE_gradient_ID DAMAGE_gradient_ID, &
#endif
phase_damage
#ifndef NEWSTATE
use damage_gradient, only: & use damage_gradient, only: &
damage_gradient_dotState damage_gradient_dotState
#endif
use damage_local, only: & use damage_local, only: &
damage_local_dotState damage_local_dotState
@ -193,11 +237,15 @@ subroutine constitutive_damage_collectDotState(Tstar_v, Fe, Lp, ipc, ip, el)
Fe Fe
select case (phase_damage(material_phase(ipc,ip,el))) select case (phase_damage(material_phase(ipc,ip,el)))
#ifdef NEWSTATE
case (LOCAL_DAMAGE_BRITTLE_ID)
call damage_local_dotState(Tstar_v, Fe, Lp, ipc, ip, el)
#else
case (DAMAGE_local_ID) case (DAMAGE_local_ID)
call damage_local_dotState(Tstar_v, Fe, Lp, ipc, ip, el) call damage_local_dotState(Tstar_v, Fe, Lp, ipc, ip, el)
case (DAMAGE_gradient_ID) case (DAMAGE_gradient_ID)
call damage_gradient_dotState(Tstar_v, Fe, Lp, ipc, ip, el) call damage_gradient_dotState(Tstar_v, Fe, Lp, ipc, ip, el)
#endif
end select end select
@ -209,14 +257,22 @@ end subroutine constitutive_damage_collectDotState
function constitutive_damageValue(ipc, ip, el) function constitutive_damageValue(ipc, ip, el)
use material, only: & use material, only: &
material_phase, & material_phase, &
phase_damage, & #ifdef NEWSTATE
LOCAL_DAMAGE_none_ID, &
LOCAL_DAMAGE_BRITTLE_ID, &
#else
DAMAGE_none_ID, & DAMAGE_none_ID, &
DAMAGE_local_ID, & DAMAGE_local_ID, &
DAMAGE_gradient_ID DAMAGE_gradient_ID, &
#endif
phase_damage
use damage_local, only: & use damage_local, only: &
damage_local_damageValue damage_local_damageValue
#ifndef NEWSTATE
use damage_gradient, only: & use damage_gradient, only: &
damage_gradient_damageValue damage_gradient_damageValue
#endif
implicit none implicit none
integer(pInt), intent(in) :: & integer(pInt), intent(in) :: &
@ -226,6 +282,14 @@ function constitutive_damageValue(ipc, ip, el)
real(pReal) :: constitutive_damageValue real(pReal) :: constitutive_damageValue
select case (phase_damage(material_phase(ipc,ip,el))) select case (phase_damage(material_phase(ipc,ip,el)))
#ifdef NEWSTATE
case (LOCAL_DAMAGE_none_ID)
constitutive_damageValue = 1.0_pReal
case (LOCAL_DAMAGE_BRITTLE_ID)
constitutive_damageValue = damage_local_damageValue(ipc, ip, el)
#else
case (DAMAGE_none_ID) case (DAMAGE_none_ID)
constitutive_damageValue = 1.0_pReal constitutive_damageValue = 1.0_pReal
@ -234,6 +298,7 @@ function constitutive_damageValue(ipc, ip, el)
case (DAMAGE_gradient_ID) case (DAMAGE_gradient_ID)
constitutive_damageValue = damage_gradient_damageValue(ipc, ip, el) constitutive_damageValue = damage_gradient_damageValue(ipc, ip, el)
#endif
end select end select
@ -246,13 +311,19 @@ function constitutive_damage_postResults(ipc, ip, el)
use material, only: & use material, only: &
damageState, & damageState, &
material_phase, & material_phase, &
phase_damage, & #ifdef NEWSTATE
LOCAL_DAMAGE_BRITTLE_ID, &
#else
DAMAGE_local_ID, & DAMAGE_local_ID, &
DAMAGE_gradient_ID DAMAGE_gradient_ID, &
#endif
phase_damage
use damage_local, only: & use damage_local, only: &
damage_local_postResults damage_local_postResults
#ifndef NEWSTATE
use damage_gradient, only: & use damage_gradient, only: &
damage_gradient_postResults damage_gradient_postResults
#endif
implicit none implicit none
integer(pInt), intent(in) :: & integer(pInt), intent(in) :: &
@ -265,11 +336,15 @@ function constitutive_damage_postResults(ipc, ip, el)
constitutive_damage_postResults = 0.0_pReal constitutive_damage_postResults = 0.0_pReal
select case (phase_damage(material_phase(ipc,ip,el))) select case (phase_damage(material_phase(ipc,ip,el)))
#ifdef NEWSTATE
case (LOCAL_DAMAGE_BRITTLE_ID)
constitutive_damage_postResults = damage_local_postResults(ipc, ip, el)
#else
case (DAMAGE_local_ID) case (DAMAGE_local_ID)
constitutive_damage_postResults = damage_local_postResults(ipc, ip, el) constitutive_damage_postResults = damage_local_postResults(ipc, ip, el)
case (DAMAGE_gradient_ID) case (DAMAGE_gradient_ID)
constitutive_damage_postResults = damage_gradient_postResults(ipc,ip,el) constitutive_damage_postResults = damage_gradient_postResults(ipc,ip,el)
#endif
end select end select
end function constitutive_damage_postResults end function constitutive_damage_postResults

92
code/constitutive_thermal.f90
View File

@ -51,15 +51,24 @@ subroutine constitutive_thermal_init
phase_thermal, & phase_thermal, &
phase_thermalInstance, & phase_thermalInstance, &
phase_Noutput, & phase_Noutput, &
homogenization_Ngrains, & #ifdef NEWSTATE
homogenization_maxNgrains, & LOCAL_THERMAL_none_ID, &
thermalState, & LOCAL_THERMAL_none_label, &
LOCAL_THERMAL_heatgen_ID, &
LOCAL_THERMAL_heatgen_label, &
#else
THERMAL_none_ID, & THERMAL_none_ID, &
THERMAL_NONE_label, & THERMAL_NONE_label, &
THERMAL_conduction_ID, & THERMAL_conduction_ID, &
THERMAL_CONDUCTION_label THERMAL_CONDUCTION_label, &
#endif
homogenization_Ngrains, &
homogenization_maxNgrains, &
thermalState
use thermal_none use thermal_none
#ifndef NEWSTATE
use thermal_conduction use thermal_conduction
#endif
implicit none implicit none
integer(pInt), parameter :: FILEUNIT = 200_pInt integer(pInt), parameter :: FILEUNIT = 200_pInt
@ -77,8 +86,13 @@ subroutine constitutive_thermal_init
! parse from config file ! parse from config file
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
#ifdef NEWSTATE
if (any(phase_thermal == LOCAL_THERMAL_none_ID)) call thermal_none_init(FILEUNIT)
! if (any(phase_thermal == LOCAL_THERMAL_HEATGEN_ID)) call thermal_heatgen_init(FILEUNIT)
#else
if (any(phase_thermal == THERMAL_none_ID)) call thermal_none_init(FILEUNIT) if (any(phase_thermal == THERMAL_none_ID)) call thermal_none_init(FILEUNIT)
if (any(phase_thermal == THERMAL_conduction_ID)) call thermal_conduction_init(FILEUNIT) if (any(phase_thermal == THERMAL_conduction_ID)) call thermal_conduction_init(FILEUNIT)
#endif
close(FILEUNIT) close(FILEUNIT)
write(6,'(/,a)') ' <<<+- constitutive_thermal init -+>>>' write(6,'(/,a)') ' <<<+- constitutive_thermal init -+>>>'
@ -93,6 +107,16 @@ subroutine constitutive_thermal_init
instance = phase_thermalInstance(ph) ! which instance is present phase instance = phase_thermalInstance(ph) ! which instance is present phase
knownThermal = .true. knownThermal = .true.
select case(phase_thermal(ph)) ! split per constititution select case(phase_thermal(ph)) ! split per constititution
#ifdef NEWSTATE
case (LOCAL_THERMAL_none_ID)
outputName = LOCAL_THERMAL_NONE_label
thisOutput => null()
thisSize => null()
case (LOCAL_THERMAL_heatgen_ID)
outputName = LOCAL_THERMAL_HEATGEN_label
thisOutput => null()
thisSize => null()
#else
case (THERMAL_none_ID) case (THERMAL_none_ID)
outputName = THERMAL_NONE_label outputName = THERMAL_NONE_label
thisOutput => null() thisOutput => null()
@ -101,13 +125,18 @@ subroutine constitutive_thermal_init
outputName = THERMAL_CONDUCTION_label outputName = THERMAL_CONDUCTION_label
thisOutput => thermal_conduction_output thisOutput => thermal_conduction_output
thisSize => thermal_conduction_sizePostResult thisSize => thermal_conduction_sizePostResult
#endif
case default case default
knownThermal = .false. knownThermal = .false.
end select end select
write(FILEUNIT,'(/,a,/)') '['//trim(phase_name(ph))//']' write(FILEUNIT,'(/,a,/)') '['//trim(phase_name(ph))//']'
if (knownThermal) then if (knownThermal) then
write(FILEUNIT,'(a)') '(thermal)'//char(9)//trim(outputName) write(FILEUNIT,'(a)') '(thermal)'//char(9)//trim(outputName)
#ifdef NEWSTATE
if (phase_thermal(ph) /= LOCAL_THERMAL_none_ID) then
#else
if (phase_thermal(ph) /= THERMAL_none_ID) then if (phase_thermal(ph) /= THERMAL_none_ID) then
#endif
do e = 1_pInt,phase_Noutput(ph) do e = 1_pInt,phase_Noutput(ph)
write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance) write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance)
enddo enddo
@ -135,10 +164,14 @@ end subroutine constitutive_thermal_init
subroutine constitutive_thermal_microstructure(Tstar_v, Lp, ipc, ip, el) subroutine constitutive_thermal_microstructure(Tstar_v, Lp, ipc, ip, el)
use material, only: & use material, only: &
material_phase, & material_phase, &
phase_thermal, & #ifndef NEWSTATE
THERMAL_conduction_ID THERMAL_conduction_ID, &
#endif
phase_thermal
#ifndef NEWSTATE
use thermal_conduction, only: & use thermal_conduction, only: &
thermal_conduction_microstructure thermal_conduction_microstructure
#endif
implicit none implicit none
integer(pInt), intent(in) :: & integer(pInt), intent(in) :: &
@ -151,8 +184,10 @@ subroutine constitutive_thermal_microstructure(Tstar_v, Lp, ipc, ip, el)
Lp Lp
select case (phase_thermal(material_phase(ipc,ip,el))) select case (phase_thermal(material_phase(ipc,ip,el)))
#ifndef NEWSTATE
case (THERMAL_conduction_ID) case (THERMAL_conduction_ID)
call thermal_conduction_microstructure(Tstar_v, Lp, ipc, ip, el) call thermal_conduction_microstructure(Tstar_v, Lp, ipc, ip, el)
#endif
end select end select
end subroutine constitutive_thermal_microstructure end subroutine constitutive_thermal_microstructure
@ -164,8 +199,15 @@ end subroutine constitutive_thermal_microstructure
subroutine constitutive_thermal_collectDotState(Tstar_v, Lp, ipc, ip, el) subroutine constitutive_thermal_collectDotState(Tstar_v, Lp, ipc, ip, el)
use material, only: & use material, only: &
material_phase, & material_phase, &
phase_thermal, & #ifdef NEWSTATE
THERMAL_adiabatic_ID LOCAL_THERMAL_none_ID, &
LOCAL_THERMAL_HEATGEN_ID, &
#else
THERMAL_none_ID, &
THERMAL_adiabatic_ID, &
THERMAL_conduction_ID, &
#endif
phase_thermal
! use thermal_conduction, only: & ! use thermal_conduction, only: &
! thermal_adiabatic_microstructure ! thermal_adiabatic_microstructure
@ -180,7 +222,11 @@ subroutine constitutive_thermal_collectDotState(Tstar_v, Lp, ipc, ip, el)
Lp Lp
select case (phase_thermal(material_phase(ipc,ip,el))) select case (phase_thermal(material_phase(ipc,ip,el)))
#ifdef NEWSTATE
case (LOCAL_THERMAL_HEATGEN_ID)
#else
case (THERMAL_adiabatic_ID) case (THERMAL_adiabatic_ID)
#endif
! call thermal_adiabatic_dotState(Tstar_v, Lp, ipc, ip, el) ! call thermal_adiabatic_dotState(Tstar_v, Lp, ipc, ip, el)
end select end select
@ -192,14 +238,21 @@ end subroutine constitutive_thermal_collectDotState
function constitutive_temperature(ipc, ip, el) function constitutive_temperature(ipc, ip, el)
use material, only: & use material, only: &
material_phase, & material_phase, &
phase_thermal, & #ifdef NEWSTATE
LOCAL_THERMAL_none_ID, &
LOCAL_THERMAL_HEATGEN_ID, &
#else
THERMAL_none_ID, & THERMAL_none_ID, &
THERMAL_adiabatic_ID, & THERMAL_adiabatic_ID, &
THERMAL_conduction_ID THERMAL_conduction_ID, &
#endif
phase_thermal
use lattice, only: & use lattice, only: &
lattice_referenceTemperature lattice_referenceTemperature
#ifndef NEWSTATE
use thermal_conduction, only: & use thermal_conduction, only: &
thermal_conduction_temperature thermal_conduction_temperature
#endif
! use thermal_adiabatic, only: & ! use thermal_adiabatic, only: &
! thermal_adiabatic_temperature ! thermal_adiabatic_temperature
@ -211,6 +264,13 @@ function constitutive_temperature(ipc, ip, el)
real(pReal) :: constitutive_temperature real(pReal) :: constitutive_temperature
select case (phase_thermal(material_phase(ipc,ip,el))) select case (phase_thermal(material_phase(ipc,ip,el)))
#ifdef NEWSTATE
case (LOCAL_THERMAL_none_ID)
constitutive_temperature = lattice_referenceTemperature(material_phase(ipc,ip,el))
case (LOCAL_THERMAL_HEATGEN_ID)
!constitutive_temperature = thermal_heatgen_temperature(ipc, ip, el)
#else
case (THERMAL_none_ID) case (THERMAL_none_ID)
constitutive_temperature = lattice_referenceTemperature(material_phase(ipc,ip,el)) constitutive_temperature = lattice_referenceTemperature(material_phase(ipc,ip,el))
@ -219,7 +279,7 @@ function constitutive_temperature(ipc, ip, el)
case (THERMAL_conduction_ID) case (THERMAL_conduction_ID)
constitutive_temperature = thermal_conduction_temperature(ipc, ip, el) constitutive_temperature = thermal_conduction_temperature(ipc, ip, el)
#endif
end select end select
end function constitutive_temperature end function constitutive_temperature
@ -231,10 +291,14 @@ function constitutive_thermal_postResults(ipc, ip, el)
use material, only: & use material, only: &
thermalState, & thermalState, &
material_phase, & material_phase, &
phase_thermal, & #ifndef NEWSTATE
THERMAL_conduction_ID THERMAL_conduction_ID, &
#endif
phase_thermal
#ifndef NEWSTATE
use thermal_conduction, only: & use thermal_conduction, only: &
thermal_conduction_postResults thermal_conduction_postResults
#endif
implicit none implicit none
integer(pInt), intent(in) :: & integer(pInt), intent(in) :: &
@ -247,8 +311,10 @@ function constitutive_thermal_postResults(ipc, ip, el)
constitutive_thermal_postResults = 0.0_pReal constitutive_thermal_postResults = 0.0_pReal
select case (phase_thermal(material_phase(ipc,ip,el))) select case (phase_thermal(material_phase(ipc,ip,el)))
#ifndef NEWSTATE
case (THERMAL_conduction_ID) case (THERMAL_conduction_ID)
constitutive_thermal_postResults = thermal_conduction_postResults(ipc,ip,el) constitutive_thermal_postResults = thermal_conduction_postResults(ipc,ip,el)
#endif
end select end select
end function constitutive_thermal_postResults end function constitutive_thermal_postResults

29
code/damage_local.f90
View File

@ -32,7 +32,8 @@ module damage_local
enum, bind(c) enum, bind(c)
enumerator :: undefined_ID, & enumerator :: undefined_ID, &
local_damage_ID local_damage_ID
end enum end enum !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11 ToDo
integer(kind(undefined_ID)), dimension(:,:), allocatable, private :: & integer(kind(undefined_ID)), dimension(:,:), allocatable, private :: &
damage_local_outputID !< ID of each post result output damage_local_outputID !< ID of each post result output
@ -79,8 +80,13 @@ subroutine damage_local_init(fileUnit)
phase_damage, & phase_damage, &
phase_damageInstance, & phase_damageInstance, &
phase_Noutput, & phase_Noutput, &
#ifdef NEWSTATE
LOCAL_DAMAGE_BRITTLE_label, &
LOCAL_DAMAGE_BRITTLE_ID, &
#else
DAMAGE_LOCAL_label, & DAMAGE_LOCAL_label, &
DAMAGE_local_ID, & DAMAGE_local_ID, &
#endif
material_phase, & material_phase, &
damageState, & damageState, &
MATERIAL_partPhase MATERIAL_partPhase
@ -98,13 +104,20 @@ subroutine damage_local_init(fileUnit)
character(len=65536) :: & character(len=65536) :: &
tag = '', & tag = '', &
line = '' line = ''
#ifdef NEWSTATE
write(6,'(/,a)') ' <<<+- damage_'//LOCAL_DAMAGE_BRITTLE_label//' init -+>>>'
#else
write(6,'(/,a)') ' <<<+- damage_'//DAMAGE_LOCAL_label//' init -+>>>' write(6,'(/,a)') ' <<<+- damage_'//DAMAGE_LOCAL_label//' init -+>>>'
#endif
write(6,'(a)') ' $Id: damage_local.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $' write(6,'(a)') ' $Id: damage_local.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
#ifdef NEWSTATE
maxNinstance = int(count(phase_damage == LOCAL_DAMAGE_BRITTLE_ID),pInt)
#else
maxNinstance = int(count(phase_damage == DAMAGE_local_ID),pInt) maxNinstance = int(count(phase_damage == DAMAGE_local_ID),pInt)
#endif
if (maxNinstance == 0_pInt) return if (maxNinstance == 0_pInt) return
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) & if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &
@ -136,14 +149,22 @@ subroutine damage_local_init(fileUnit)
phase = phase + 1_pInt ! advance phase section counter phase = phase + 1_pInt ! advance phase section counter
cycle ! skip to next line cycle ! skip to next line
endif endif
#ifdef NEWSTATE
if (phase > 0_pInt ) then; if (phase_damage(phase) == LOCAL_DAMAGE_BRITTLE_ID) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
#else
if (phase > 0_pInt ) then; if (phase_damage(phase) == DAMAGE_local_ID) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran if (phase > 0_pInt ) then; if (phase_damage(phase) == DAMAGE_local_ID) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
#endif
instance = phase_damageInstance(phase) ! which instance of my damage is present phase instance = phase_damageInstance(phase) ! which instance of my damage is present phase
positions = IO_stringPos(line,MAXNCHUNKS) positions = IO_stringPos(line,MAXNCHUNKS)
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
select case(tag) select case(tag)
case ('(output)') case ('(output)')
select case(IO_lc(IO_stringValue(line,positions,2_pInt))) select case(IO_lc(IO_stringValue(line,positions,2_pInt)))
#ifdef NEWSTATE
case ('local_damage_brittle')
#else
case ('local_damage') case ('local_damage')
#endif
damage_local_Noutput(instance) = damage_local_Noutput(instance) + 1_pInt damage_local_Noutput(instance) = damage_local_Noutput(instance) + 1_pInt
damage_local_outputID(damage_local_Noutput(instance),instance) = local_damage_ID damage_local_outputID(damage_local_Noutput(instance),instance) = local_damage_ID
damage_local_output(damage_local_Noutput(instance),instance) = & damage_local_output(damage_local_Noutput(instance),instance) = &
@ -161,7 +182,11 @@ subroutine damage_local_init(fileUnit)
enddo parsingFile enddo parsingFile
initializeInstances: do phase = 1_pInt, size(phase_damage) initializeInstances: do phase = 1_pInt, size(phase_damage)
#ifdef NEWSTATE
if (phase_damage(phase) == LOCAL_DAMAGE_BRITTLE_ID) then
#else
if (phase_damage(phase) == DAMAGE_local_ID) then if (phase_damage(phase) == DAMAGE_local_ID) then
#endif
NofMyPhase=count(material_phase==phase) NofMyPhase=count(material_phase==phase)
instance = phase_damageInstance(phase) instance = phase_damageInstance(phase)

21
code/damage_none.f90
View File

@ -40,10 +40,15 @@ subroutine damage_none_init(fileUnit)
use material, only: & use material, only: &
phase_damage, & phase_damage, &
phase_Noutput, & phase_Noutput, &
#ifdef NEWSTATE
LOCAL_DAMAGE_NONE_label, &
LOCAL_DAMAGE_NONE_ID, &
#else
DAMAGE_NONE_label, & DAMAGE_NONE_label, &
DAMAGE_NONE_ID, &
#endif
material_phase, & material_phase, &
damageState, & damageState, &
DAMAGE_NONE_ID, &
MATERIAL_partPhase MATERIAL_partPhase
implicit none implicit none
@ -55,13 +60,19 @@ subroutine damage_none_init(fileUnit)
NofMyPhase, & NofMyPhase, &
sizeState, & sizeState, &
sizeDotState sizeDotState
#ifdef NEWSTATE
write(6,'(/,a)') ' <<<+- damage_'//LOCAL_DAMAGE_NONE_label//' init -+>>>'
#else
write(6,'(/,a)') ' <<<+- damage_'//DAMAGE_NONE_label//' init -+>>>' write(6,'(/,a)') ' <<<+- damage_'//DAMAGE_NONE_label//' init -+>>>'
#endif
write(6,'(a)') ' $Id: damage_none.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $' write(6,'(a)') ' $Id: damage_none.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
#ifdef NEWSTATE
maxNinstance = int(count(phase_damage == LOCAL_DAMAGE_NONE_ID),pInt)
#else
maxNinstance = int(count(phase_damage == DAMAGE_NONE_ID),pInt) maxNinstance = int(count(phase_damage == DAMAGE_NONE_ID),pInt)
#endif
if (maxNinstance == 0_pInt) return if (maxNinstance == 0_pInt) return
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) & if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &
@ -69,7 +80,11 @@ subroutine damage_none_init(fileUnit)
initializeInstances: do phase = 1_pInt, size(phase_damage) initializeInstances: do phase = 1_pInt, size(phase_damage)
NofMyPhase=count(material_phase==phase) NofMyPhase=count(material_phase==phase)
#ifdef NEWSTATE
if (phase_damage(phase) == LOCAL_DAMAGE_none_ID) then
#else
if (phase_damage(phase) == DAMAGE_none_ID) then if (phase_damage(phase) == DAMAGE_none_ID) then
#endif
sizeState = 0_pInt sizeState = 0_pInt
damageState(phase)%sizeState = sizeState damageState(phase)%sizeState = sizeState
sizeDotState = sizeState sizeDotState = sizeState

134
code/material.f90
View File

@ -15,6 +15,7 @@ module material
tState, & tState, &
#ifdef NEWSTATE #ifdef NEWSTATE
hState, & hState, &
fState, &
#endif #endif
p_intvec p_intvec
@ -29,6 +30,22 @@ module material
PLASTICITY_DISLOKMC_label = 'dislokmc', & PLASTICITY_DISLOKMC_label = 'dislokmc', &
PLASTICITY_TITANMOD_label = 'titanmod', & PLASTICITY_TITANMOD_label = 'titanmod', &
PLASTICITY_NONLOCAL_label = 'nonlocal', & PLASTICITY_NONLOCAL_label = 'nonlocal', &
#ifdef NEWSTATE
LOCAL_DAMAGE_NONE_label = 'none', &
LOCAL_DAMAGE_BRITTLE_label = 'brittle', &
LOCAL_THERMAL_NONE_label = 'none', &
LOCAL_THERMAL_HEATGEN_label = 'heatgen', &
FIELD_DAMAGE_NONE_label = 'none', &
FIELD_DAMAGE_LOCAL_label = 'local', &
FIELD_DAMAGE_NONLOCAL_label = 'nonlocal', &
FIELD_THERMAL_NONE_label = 'none', &
FIELD_THERMAL_ADIABATIC_label = 'adiabatic', &
FIELD_THERMAL_CONDUCTION_label = 'conduction', &
#else
DAMAGE_NONE_label = 'none', & DAMAGE_NONE_label = 'none', &
DAMAGE_LOCAL_label = 'local', & DAMAGE_LOCAL_label = 'local', &
DAMAGE_GRADIENT_label = 'gradient', & DAMAGE_GRADIENT_label = 'gradient', &
@ -36,10 +53,13 @@ module material
THERMAL_ISO_label = 'isothermal', & THERMAL_ISO_label = 'isothermal', &
THERMAL_CONDUCTION_label = 'conduction', & THERMAL_CONDUCTION_label = 'conduction', &
THERMAL_ADIABATIC_label = 'adiabatic', & THERMAL_ADIABATIC_label = 'adiabatic', &
#endif
HOMOGENIZATION_NONE_label = 'none', & HOMOGENIZATION_NONE_label = 'none', &
HOMOGENIZATION_ISOSTRAIN_label = 'isostrain', & HOMOGENIZATION_ISOSTRAIN_label = 'isostrain', &
HOMOGENIZATION_RGC_label = 'rgc' HOMOGENIZATION_RGC_label = 'rgc'
enum, bind(c) enum, bind(c)
enumerator :: ELASTICITY_undefined_ID, & enumerator :: ELASTICITY_undefined_ID, &
ELASTICITY_hooke_ID ELASTICITY_hooke_ID
@ -54,6 +74,27 @@ module material
PLASTICITY_titanmod_ID, & PLASTICITY_titanmod_ID, &
PLASTICITY_nonlocal_ID PLASTICITY_nonlocal_ID
end enum end enum
#ifdef NEWSTATE
enum, bind(c)
enumerator :: LOCAL_DAMAGE_NONE_ID, &
LOCAL_DAMAGE_BRITTLE_ID
end enum
enum, bind(c)
enumerator :: LOCAL_THERMAL_NONE_ID, &
LOCAL_THERMAL_HEATGEN_ID
end enum
enum, bind(c)
enumerator :: FIELD_DAMAGE_NONE_ID, &
FIELD_DAMAGE_LOCAL_ID ,&
FIELD_DAMAGE_NONLOCAL_ID
end enum
enum, bind(c)
enumerator :: FIELD_THERMAL_NONE_ID, &
FIELD_THERMAL_ADIABATIC_ID, &
FIELD_THERMAL_CONDUCTION_ID
end enum
#else
enum, bind(c) enum, bind(c)
enumerator :: DAMAGE_none_ID, & enumerator :: DAMAGE_none_ID, &
DAMAGE_local_ID, & DAMAGE_local_ID, &
@ -65,6 +106,7 @@ module material
THERMAL_conduction_ID, & THERMAL_conduction_ID, &
THERMAL_adiabatic_ID THERMAL_adiabatic_ID
end enum end enum
#endif
enum, bind(c) enum, bind(c)
enumerator :: HOMOGENIZATION_undefined_ID, & enumerator :: HOMOGENIZATION_undefined_ID, &
HOMOGENIZATION_none_ID, & HOMOGENIZATION_none_ID, &
@ -85,10 +127,21 @@ module material
phase_elasticity !< elasticity of each phase phase_elasticity !< elasticity of each phase
integer(kind(PLASTICITY_undefined_ID)), dimension(:), allocatable, public, protected :: & integer(kind(PLASTICITY_undefined_ID)), dimension(:), allocatable, public, protected :: &
phase_plasticity !< plasticity of each phase phase_plasticity !< plasticity of each phase
#ifdef NEWSTATE
integer(kind(LOCAL_DAMAGE_none_ID)), dimension(:), allocatable, public, protected :: &
phase_damage !< local damage of each phase
integer(kind(LOCAL_THERMAL_none_ID)), dimension(:), allocatable, public, protected :: &
phase_thermal !< local thermal of each phase
integer(kind(FIELD_DAMAGE_none_ID)), dimension(:), allocatable, public, protected :: &
field_damage_type !< field damage of each phase
integer(kind(FIELD_THERMAL_none_ID)), dimension(:), allocatable, public, protected :: &
field_thermal_type !< field thermal of each phase
#else
integer(kind(DAMAGE_none_ID)), dimension(:), allocatable, public, protected :: & integer(kind(DAMAGE_none_ID)), dimension(:), allocatable, public, protected :: &
phase_damage !< damage of each phase phase_damage !< damage of each phase
integer(kind(THERMAL_none_ID)), dimension(:), allocatable, public, protected :: & integer(kind(THERMAL_none_ID)), dimension(:), allocatable, public, protected :: &
phase_thermal !< thermal of each phase phase_thermal !< thermal of each phase
#endif
integer(kind(HOMOGENIZATION_undefined_ID)), dimension(:), allocatable, public, protected :: & integer(kind(HOMOGENIZATION_undefined_ID)), dimension(:), allocatable, public, protected :: &
homogenization_type !< type of each homogenization homogenization_type !< type of each homogenization
@ -130,6 +183,10 @@ module material
#ifdef NEWSTATE #ifdef NEWSTATE
type(hState), allocatable, dimension(:), public :: & type(hState), allocatable, dimension(:), public :: &
homogState homogState
type(fState), allocatable, dimension(:), public :: &
fieldDamage
type(fState), allocatable, dimension(:), public :: &
fieldThermal
#endif #endif
@ -206,6 +263,12 @@ module material
PLASTICITY_dislokmc_ID, & PLASTICITY_dislokmc_ID, &
PLASTICITY_titanmod_ID, & PLASTICITY_titanmod_ID, &
PLASTICITY_nonlocal_ID, & PLASTICITY_nonlocal_ID, &
#ifdef NEWSTATE
LOCAL_DAMAGE_none_ID, &
LOCAL_DAMAGE_brittle_ID, &
LOCAL_THERMAL_none_ID, &
LOCAL_THERMAL_heatgen_ID, &
#else
DAMAGE_none_ID, & DAMAGE_none_ID, &
DAMAGE_local_ID, & DAMAGE_local_ID, &
DAMAGE_gradient_ID, & DAMAGE_gradient_ID, &
@ -213,6 +276,7 @@ module material
THERMAL_iso_ID, & THERMAL_iso_ID, &
THERMAL_conduction_ID, & THERMAL_conduction_ID, &
THERMAL_adiabatic_ID, & THERMAL_adiabatic_ID, &
#endif
HOMOGENIZATION_none_ID, & HOMOGENIZATION_none_ID, &
HOMOGENIZATION_isostrain_ID, & HOMOGENIZATION_isostrain_ID, &
#ifdef HDF #ifdef HDF
@ -257,7 +321,7 @@ subroutine material_init
implicit none implicit none
integer(pInt), parameter :: FILEUNIT = 200_pInt integer(pInt), parameter :: FILEUNIT = 200_pInt
integer(pInt) :: m,c,h, myDebug, myHomogInstance integer(pInt) :: m,c,h, myDebug, myHomog
integer(pInt) :: & integer(pInt) :: &
g, & !< grain number g, & !< grain number
i, & !< integration point number i, & !< integration point number
@ -288,7 +352,9 @@ subroutine material_init
allocate(damageState (material_Nphase)) allocate(damageState (material_Nphase))
allocate(thermalState(material_Nphase)) allocate(thermalState(material_Nphase))
#ifdef NEWSTATE #ifdef NEWSTATE
allocate(homogState(material_Nhomogenization)) allocate(homogState (material_Nhomogenization))
allocate(fieldDamage (material_Nhomogenization))
allocate(fieldThermal(material_Nhomogenization))
#endif #endif
do m = 1_pInt,material_Nmicrostructure do m = 1_pInt,material_Nmicrostructure
if(microstructure_crystallite(m) < 1_pInt .or. & if(microstructure_crystallite(m) < 1_pInt .or. &
@ -339,11 +405,11 @@ subroutine material_init
#endif #endif
allocate(CrystallitePosition(material_Nphase),source=0_pInt) allocate(CrystallitePosition(material_Nphase),source=0_pInt)
ElemLoop:do e = 1_pInt,mesh_NcpElems ! loop over elements ElemLoop:do e = 1_pInt,mesh_NcpElems ! loop over elements
myHomogInstance = homogenization_typeInstance(mesh_element(3,e)) myHomog = mesh_element(3,e)
IPloop:do i = 1_pInt,FE_Nips(FE_geomtype(mesh_element(2,e))) ! loop over IPs IPloop:do i = 1_pInt,FE_Nips(FE_geomtype(mesh_element(2,e))) ! loop over IPs
#ifdef NEWSTATE #ifdef NEWSTATE
HomogenizationPosition(myHomogInstance) = HomogenizationPosition(myHomogInstance)+1_pInt HomogenizationPosition(myHomog) = HomogenizationPosition(myHomog) + 1_pInt
mappingHomogenization(1:2,i,e) = [HomogenizationPosition(myHomogInstance),myHomogInstance] mappingHomogenization(1:2,i,e) = [HomogenizationPosition(myHomog),myHomog]
#endif #endif
GrainLoop:do g = 1_pInt,homogenization_Ngrains(mesh_element(3,e)) ! loop over grains GrainLoop:do g = 1_pInt,homogenization_Ngrains(mesh_element(3,e)) ! loop over grains
phase = material_phase(g,i,e) phase = material_phase(g,i,e)
@ -395,10 +461,14 @@ subroutine material_parseHomogenization(fileUnit,myPart)
allocate(homogenization_name(Nsections)); homogenization_name = '' allocate(homogenization_name(Nsections)); homogenization_name = ''
allocate(homogenization_type(Nsections), source=HOMOGENIZATION_undefined_ID) allocate(homogenization_type(Nsections), source=HOMOGENIZATION_undefined_ID)
#ifdef NEWSTATE
allocate(FIELD_DAMAGE_type(Nsections), source=FIELD_DAMAGE_none_ID)
allocate(FIELD_THERMAL_type(Nsections), source=FIELD_THERMAL_none_ID)
#endif
allocate(homogenization_typeInstance(Nsections), source=0_pInt) allocate(homogenization_typeInstance(Nsections), source=0_pInt)
allocate(homogenization_Ngrains(Nsections), source=0_pInt) allocate(homogenization_Ngrains(Nsections), source=0_pInt)
allocate(homogenization_Noutput(Nsections), source=0_pInt) allocate(homogenization_Noutput(Nsections), source=0_pInt)
allocate(homogenization_active(Nsections), source=.false.) allocate(homogenization_active(Nsections), source=.false.) !!!!!!!!!!!!!!!
forall (s = 1_pInt:Nsections) homogenization_active(s) = any(mesh_element(3,:) == s) ! current homogenization used in model? Homogenization view, maximum operations depend on maximum number of homog schemes forall (s = 1_pInt:Nsections) homogenization_active(s) = any(mesh_element(3,:) == s) ! current homogenization used in model? Homogenization view, maximum operations depend on maximum number of homog schemes
homogenization_Noutput = IO_countTagInPart(fileUnit,myPart,'(output)',Nsections) homogenization_Noutput = IO_countTagInPart(fileUnit,myPart,'(output)',Nsections)
@ -441,6 +511,32 @@ subroutine material_parseHomogenization(fileUnit,myPart)
end select end select
homogenization_typeInstance(section) = & homogenization_typeInstance(section) = &
count(homogenization_type==homogenization_type(section)) ! count instances count(homogenization_type==homogenization_type(section)) ! count instances
#ifdef NEWSTATE
case ('field_damage')
select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
case(FIELD_DAMAGE_NONE_label)
FIELD_DAMAGE_type(section) = FIELD_DAMAGE_NONE_ID
case(FIELD_DAMAGE_LOCAL_label)
FIELD_DAMAGE_type(section) = FIELD_DAMAGE_LOCAL_ID
case(FIELD_DAMAGE_NONLOCAL_label)
FIELD_DAMAGE_type(section) = FIELD_DAMAGE_NONLOCAL_ID
case default
call IO_error(500_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select
case ('field_thermal')
select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
case(FIELD_THERMAL_NONE_label)
FIELD_THERMAL_type(section) = FIELD_THERMAL_NONE_ID
case(FIELD_THERMAL_ADIABATIC_label)
FIELD_THERMAL_type(section) = FIELD_THERMAL_ADIABATIC_ID
case(FIELD_THERMAL_CONDUCTION_label)
FIELD_THERMAL_type(section) = FIELD_THERMAL_CONDUCTION_ID
case default
call IO_error(500_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select
#endif
case ('nconstituents','ngrains') case ('nconstituents','ngrains')
homogenization_Ngrains(section) = IO_intValue(line,positions,2_pInt) homogenization_Ngrains(section) = IO_intValue(line,positions,2_pInt)
end select end select
@ -648,9 +744,17 @@ subroutine material_parsePhase(fileUnit,myPart)
allocate(phase_elasticityInstance(Nsections), source=0_pInt) allocate(phase_elasticityInstance(Nsections), source=0_pInt)
allocate(phase_plasticity(Nsections) , source=PLASTICITY_undefined_ID) allocate(phase_plasticity(Nsections) , source=PLASTICITY_undefined_ID)
allocate(phase_plasticityInstance(Nsections), source=0_pInt) allocate(phase_plasticityInstance(Nsections), source=0_pInt)
#ifdef NEWSTATE
allocate(phase_damage(Nsections) , source=LOCAL_DAMAGE_none_ID)
#else
allocate(phase_damage(Nsections) , source=DAMAGE_none_ID) allocate(phase_damage(Nsections) , source=DAMAGE_none_ID)
#endif
allocate(phase_damageInstance(Nsections), source=0_pInt) allocate(phase_damageInstance(Nsections), source=0_pInt)
#ifdef NEWSTATE
allocate(phase_thermal(Nsections) , source=LOCAL_THERMAL_none_ID)
#else
allocate(phase_thermal(Nsections) , source=THERMAL_none_ID) allocate(phase_thermal(Nsections) , source=THERMAL_none_ID)
#endif
allocate(phase_thermalInstance(Nsections), source=0_pInt) allocate(phase_thermalInstance(Nsections), source=0_pInt)
allocate(phase_Noutput(Nsections), source=0_pInt) allocate(phase_Noutput(Nsections), source=0_pInt)
allocate(phase_localPlasticity(Nsections), source=.false.) allocate(phase_localPlasticity(Nsections), source=.false.)
@ -712,18 +816,31 @@ subroutine material_parsePhase(fileUnit,myPart)
phase_plasticityInstance(section) = count(phase_plasticity(1:section) == phase_plasticity(section)) ! count instances phase_plasticityInstance(section) = count(phase_plasticity(1:section) == phase_plasticity(section)) ! count instances
case ('damage') case ('damage')
select case (IO_lc(IO_stringValue(line,positions,2_pInt))) select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
#ifdef NEWSTATE
case (LOCAL_DAMAGE_NONE_label)
phase_damage(section) = LOCAL_DAMAGE_none_ID
case (LOCAL_DAMAGE_BRITTLE_label)
phase_damage(section) = LOCAL_DAMAGE_BRITTLE_ID
#else
case (DAMAGE_NONE_label) case (DAMAGE_NONE_label)
phase_damage(section) = DAMAGE_none_ID phase_damage(section) = DAMAGE_none_ID
case (DAMAGE_LOCAL_label) case (DAMAGE_LOCAL_label)
phase_damage(section) = DAMAGE_local_ID phase_damage(section) = DAMAGE_local_ID
case (DAMAGE_GRADIENT_label) case (DAMAGE_GRADIENT_label)
phase_damage(section) = DAMAGE_gradient_ID phase_damage(section) = DAMAGE_gradient_ID
#endif
case default case default
call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt))) call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select end select
phase_damageInstance(section) = count(phase_damage(1:section) == phase_damage(section)) ! count instances phase_damageInstance(section) = count(phase_damage(1:section) == phase_damage(section)) ! count instances
case ('thermal') case ('thermal')
select case (IO_lc(IO_stringValue(line,positions,2_pInt))) select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
#ifdef NEWSTATE
case (LOCAL_THERMAL_NONE_label)
phase_thermal(section) = LOCAL_THERMAL_none_ID
case (LOCAL_THERMAL_HEATGEN_label)
phase_thermal(section) = LOCAL_THERMAL_HEATGEN_ID
#else
case (THERMAL_NONE_label) case (THERMAL_NONE_label)
phase_thermal(section) = THERMAL_none_ID phase_thermal(section) = THERMAL_none_ID
case (THERMAL_ISO_label) case (THERMAL_ISO_label)
@ -732,6 +849,7 @@ subroutine material_parsePhase(fileUnit,myPart)
phase_thermal(section) = THERMAL_conduction_ID phase_thermal(section) = THERMAL_conduction_ID
case (THERMAL_ADIABATIC_label) case (THERMAL_ADIABATIC_label)
phase_thermal(section) = THERMAL_adiabatic_ID phase_thermal(section) = THERMAL_adiabatic_ID
#endif
case default case default
call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt))) call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select end select
@ -992,9 +1110,7 @@ subroutine material_populateGrains
! populating homogenization schemes in each ! populating homogenization schemes in each
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
do e = 1_pInt, mesh_NcpElems do e = 1_pInt, mesh_NcpElems
! do i = 1_pInt:FE_Nips(FE_geomtype(mesh_element(2,e))) material_homog(1_pInt:FE_Nips(FE_geomtype(mesh_element(2,e))),e) = mesh_element(3,e)
material_homog(1_pInt:FE_Nips(FE_geomtype(mesh_element(2,e))),e)=homogenization_typeInstance(mesh_element(3,e))
! enddo
enddo enddo
#endif #endif

5
code/prec.f90
View File

@ -85,6 +85,11 @@ module prec
state0, & state0, &
subState0 subState0
end type end type
type, public :: fState
integer(pInt) :: sizeState = 0_pInt , &
sizePostResults = 0_pInt
real(pReal), allocatable, dimension(:,:) :: state ! material points, state size
end type
#endif #endif
public :: & public :: &

21
code/thermal_none.f90
View File

@ -40,10 +40,15 @@ subroutine thermal_none_init(fileUnit)
use material, only: & use material, only: &
phase_thermal, & phase_thermal, &
phase_Noutput, & phase_Noutput, &
#ifdef NEWSTATE
LOCAL_THERMAL_NONE_label, &
LOCAL_THERMAL_NONE_ID, &
#else
THERMAL_NONE_label, & THERMAL_NONE_label, &
THERMAL_NONE_ID, &
#endif
material_phase, & material_phase, &
thermalState, & thermalState, &
THERMAL_NONE_ID, &
MATERIAL_partPhase MATERIAL_partPhase
implicit none implicit none
@ -55,13 +60,20 @@ subroutine thermal_none_init(fileUnit)
NofMyPhase, & NofMyPhase, &
sizeState, & sizeState, &
sizeDotState sizeDotState
#ifdef NEWSTATE
write(6,'(/,a)') ' <<<+- thermal_'//LOCAL_THERMAL_NONE_label//' init -+>>>'
#else
write(6,'(/,a)') ' <<<+- thermal_'//THERMAL_NONE_label//' init -+>>>' write(6,'(/,a)') ' <<<+- thermal_'//THERMAL_NONE_label//' init -+>>>'
#endif
write(6,'(a)') ' $Id: thermal_none.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $' write(6,'(a)') ' $Id: thermal_none.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
#ifdef NEWSTATE
maxNinstance = int(count(phase_thermal == LOCAL_THERMAL_NONE_ID),pInt)
#else
maxNinstance = int(count(phase_thermal == THERMAL_NONE_ID),pInt) maxNinstance = int(count(phase_thermal == THERMAL_NONE_ID),pInt)
#endif
if (maxNinstance == 0_pInt) return if (maxNinstance == 0_pInt) return
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) & if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &
@ -69,7 +81,12 @@ subroutine thermal_none_init(fileUnit)
initializeInstances: do phase = 1_pInt, size(phase_thermal) initializeInstances: do phase = 1_pInt, size(phase_thermal)
NofMyPhase=count(material_phase==phase) NofMyPhase=count(material_phase==phase)
#ifdef NEWSTATE
if (phase_thermal(phase) == LOCAL_THERMAL_none_ID) then
#else
if (phase_thermal(phase) == THERMAL_none_ID) then if (phase_thermal(phase) == THERMAL_none_ID) then
#endif
sizeState = 0_pInt sizeState = 0_pInt
thermalState(phase)%sizeState = sizeState thermalState(phase)%sizeState = sizeState
sizeDotState = sizeState sizeDotState = sizeState