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

added sample material.config sections at module start

This commit is contained in:
Philip Eisenlohr 2009-03-05 16:36:31 +00:00
parent 34aad5c945
commit 5a39497742
2 changed files with 555 additions and 519 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
trunk/constitutive_dislobased.f90
View File

@ -8,8 +8,31 @@
!* - orientations * !* - orientations *
!************************************ !************************************
MODULE constitutive_dislobased ! [Alu]
! constitution phenomenological
! lattice_structure 1
! Nslip 12
!
! c11 106.75e9
! c12 60.41e9
! c44 28.34e9
!
! burgers 2.86e-10 # Burgers vector [m]
! Qedge 3e-19 # Activation energy for dislocation glide [J/K] (0.5*G*b^3)
! Qsd 2.4e-19 # Activation energy for self diffusion [J/K] (gamma-iron)
! diff0 1e-3 # prefactor vacancy diffusion coeffficent (gamma-iron)
! interaction_coefficients 1.0 2.2 3.0 1.6 3.8 4.5 # Dislocation interaction coefficients
!
! rho0 6.0e12 # Initial dislocation density [m/m^3]
!
! c1 0.1 # Passing stress adjustment
! c2 2.0 # Jump width adjustment
! c3 1.0 # Activation volume adjustment
! c4 50.0 # Average slip distance adjustment for lock formation
! c7 8.0 # Athermal recovery adjustment
! c8 1.0e10 # Thermal recovery adjustment (plays no role for me)
MODULE constitutive_dislobased
!*** Include other modules *** !*** Include other modules ***
use prec, only: pReal,pInt use prec, only: pReal,pInt
implicit none implicit none
@ -59,7 +82,6 @@ real(pReal), parameter :: avogadro = 6.022e23_pReal
!* Physical parameter, Gas constant in J.mol/Kelvin !* Physical parameter, Gas constant in J.mol/Kelvin
real(pReal), parameter :: Rgaz = 8.314_pReal real(pReal), parameter :: Rgaz = 8.314_pReal
CONTAINS CONTAINS
!**************************************** !****************************************
!* - constitutive_init !* - constitutive_init
@ -70,7 +92,6 @@ CONTAINS
!* - consistutive_postResults !* - consistutive_postResults
!**************************************** !****************************************
subroutine constitutive_dislobased_init(file) subroutine constitutive_dislobased_init(file)
!************************************** !**************************************
!* Module initialization * !* Module initialization *
@ -301,7 +322,6 @@ function constitutive_dislobased_stateInit(ipc,ip,el)
return return
end function end function
function constitutive_dislobased_homogenizedC(state,ipc,ip,el) function constitutive_dislobased_homogenizedC(state,ipc,ip,el)
!********************************************************************* !*********************************************************************
!* homogenized elacticity matrix * !* homogenized elacticity matrix *
@ -503,7 +523,6 @@ function constitutive_dislobased_dotState(Tstar_v,Temperature,state,ipc,ip,el)
return return
end function end function
pure function constitutive_dislobased_postResults(Tstar_v,Temperature,dt,state,ipc,ip,el) pure function constitutive_dislobased_postResults(Tstar_v,Temperature,dt,state,ipc,ip,el)
!********************************************************************* !*********************************************************************
!* return array of constitutive results * !* return array of constitutive results *

17
trunk/constitutive_phenomenological.f90
View File

@ -7,6 +7,23 @@
!* - parameters definition * !* - parameters definition *
!***************************************************** !*****************************************************
! [Alu]
! constitution phenomenological
! lattice_structure 1
! Nslip 12
!
! c11 106.75e9
! c12 60.41e9
! c44 28.34e9
!
! s0_slip 31e6
! gdot0_slip 0.001
! n_slip 20
! h0 75e6
! s_sat 63e6
! w0 2.25
! latent_ratio 1.4
MODULE constitutive_phenomenological MODULE constitutive_phenomenological
!*** Include other modules *** !*** Include other modules ***