added sample material.config sections at module start

trunk/constitutive_dislobased.f90

@@ -8,8 +8,31 @@
 !* - 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 ***
  use prec, only: pReal,pInt
  implicit none
@@ -59,7 +82,6 @@ real(pReal), parameter :: avogadro = 6.022e23_pReal
 !* Physical parameter, Gas constant in J.mol/Kelvin
 real(pReal), parameter :: Rgaz = 8.314_pReal    
 
-
 CONTAINS
 !****************************************
 !* - constitutive_init
@@ -70,7 +92,6 @@ CONTAINS
 !* - consistutive_postResults
 !****************************************
 
-
 subroutine constitutive_dislobased_init(file)
 !**************************************
 !*      Module initialization         *
@@ -301,7 +322,6 @@ function constitutive_dislobased_stateInit(ipc,ip,el)
  return
 end function
 
-
 function constitutive_dislobased_homogenizedC(state,ipc,ip,el)
 !*********************************************************************
 !* homogenized elacticity matrix                                     *
@@ -503,7 +523,6 @@ function constitutive_dislobased_dotState(Tstar_v,Temperature,state,ipc,ip,el)
  return
 end function
 
-
 pure function constitutive_dislobased_postResults(Tstar_v,Temperature,dt,state,ipc,ip,el)
 !*********************************************************************
 !* return array of constitutive results                              *

trunk/constitutive_phenomenological.f90

@@ -7,6 +7,23 @@
 !* - 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
 
 !*** Include other modules ***