added Onurs modified description for tausat in j2 law.

Polishing phenopowerlaw

code/config/material.config

@@ -104,9 +104,17 @@ gdot0                   0.001
 n                       20
 h0                      75e6
 tausat                  63e6
+#---- if tausat == 0.0 --------!!!VALUES HERE ARE NOT FOR ALUMINUM!!!
+tausat_SinhFitA         2.4175e-7         
+tausat_SinhFitB         5.9804e-8
+tausat_SinhFitC         1.0
+tausat_SinhFitD         3.9
+# h0_slope    
+#---------------------------#
 a                       2.25
 atol_resistance         1
 
+
 [Aluminum_phenopowerlaw]
 # slip only
 elasticity              hooke

code/constitutive_j2.f90

@@ -62,23 +62,29 @@ module constitutive_j2
  integer(pInt), dimension(:),  allocatable, private :: &
    constitutive_j2_Noutput
    
- real(pReal), dimension(:), allocatable, private ::&
-   constitutive_j2_C11, &
-   constitutive_j2_C12
-   
- real(pReal), dimension(:,:,:), allocatable, private :: &
-   constitutive_j2_Cslip_66
-   
-!* Visco-plastic constitutive_j2 parameters
  real(pReal), dimension(:), allocatable, private :: &
+   constitutive_j2_C11, &
+   constitutive_j2_C12, &
+ !* Visco-plastic constitutive_j2 parameters
    constitutive_j2_fTaylor, &
    constitutive_j2_tau0, &
    constitutive_j2_gdot0, &
    constitutive_j2_n, &
+ !* h0 as function of h0 = A + B log (gammadot) 
    constitutive_j2_h0, &
+   constitutive_j2_h0_slopeLnRate, &
    constitutive_j2_tausat, &
    constitutive_j2_a, &
-   constitutive_j2_aTolResistance
+   constitutive_j2_aTolResistance, &
+ !* Parameters of normalized strain rate vs. stress function:
+ !* tausat += (asinh((gammadot / SinhFitA)**(1 / SinhFitD)))**(1 / SinhFitC) / (SinhFitB * (gammadot / gammadot0)**(1/n))
+   constitutive_j2_tausat_SinhFitA, &
+   constitutive_j2_tausat_SinhFitB, &
+   constitutive_j2_tausat_SinhFitC, &
+   constitutive_j2_tausat_SinhFitD
+
+ real(pReal), dimension(:,:,:), allocatable, private :: &
+   constitutive_j2_Cslip_66
 
  public  :: constitutive_j2_init, &
             constitutive_j2_stateInit, &
@@ -97,12 +103,22 @@ subroutine constitutive_j2_init(myFile)
 !*      Module initialization         *
 !**************************************
  use, intrinsic :: iso_fortran_env                                ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
- use math, only: math_Mandel3333to66, math_Voigt66to3333
+ use math, only: &
- use IO
+   math_Mandel3333to66, &
+   math_Voigt66to3333
+ use IO, only: &
+   IO_lc, &
+   IO_getTag, &
+   IO_isBlank, &
+   IO_stringPos, &
+   IO_stringValue, &
+   IO_floatValue, &
+   IO_error
  use material
- use debug, only: debug_what, &
+ use debug, only: &
-                  debug_constitutive, &
+   debug_what, &
-                  debug_levelBasic
+   debug_constitutive, &
+   debug_levelBasic
 
  implicit none
  integer(pInt), intent(in) :: myFile
@@ -165,6 +181,14 @@ subroutine constitutive_j2_init(myFile)
           constitutive_j2_a = 0.0_pReal
  allocate(constitutive_j2_aTolResistance(maxNinstance))
           constitutive_j2_aTolResistance = 0.0_pReal
+ allocate(constitutive_j2__tausat_SinhFitA(maxNinstance))
+          constitutive_j2__tausat_SinhFitA = 0.0_pReal
+ allocate(constitutive_j2__tausat_SinhFitB(maxNinstance))
+          constitutive_j2__tausat_SinhFitB = 0.0_pReal
+ allocate(constitutive_j2__tausat_SinhFitC(maxNinstance))
+          constitutive_j2__tausat_SinhFitC = 0.0_pReal
+ allocate(constitutive_j2__tausat_SinhFitD(maxNinstance))
+          constitutive_j2__tausat_SinhFitD = 0.0_pReal
  
  rewind(myFile)
  
@@ -202,8 +226,18 @@ subroutine constitutive_j2_init(myFile)
               constitutive_j2_n(i) = IO_floatValue(line,positions,2_pInt)
        case ('h0')
               constitutive_j2_h0(i) = IO_floatValue(line,positions,2_pInt)
+       case ('h0_slope','slopeLnRate')
+              constitutive_j2_h0_slopeLnRate(i) = IO_floatValue(line,positions,2)
        case ('tausat')
               constitutive_j2_tausat(i) = IO_floatValue(line,positions,2_pInt)
+       case ('tausat_sinhfita')
+              constitutive_j2_tausat_SinhFitA(i) = IO_floatValue(line,positions,2)
+       case ('tausat_sinhfitb')
+              constitutive_j2_tausat_SinhFitB(i) = IO_floatValue(line,positions,2)
+       case ('tausat_sinhfitc')
+              constitutive_j2_tausat_SinhFitC(i) = IO_floatValue(line,positions,2)
+       case ('tausat_sinhfitd')
+              constitutive_j2_tausat_SinhFitD(i) = IO_floatValue(line,positions,2)
        case ('a', 'w0')
               constitutive_j2_a(i) = IO_floatValue(line,positions,2_pInt)
        case ('taylorfactor')
@@ -422,14 +456,17 @@ end subroutine constitutive_j2_LpAndItsTangent
 !****************************************************************
 pure function constitutive_j2_dotState(Tstar_v, Temperature, state, g, ip, el)
 
-  !*** variables and functions from other modules ***!
+  use prec, only: &
-  use prec,     only: p_vec
+    p_vec
-  use math,     only: math_mul6x6
+  use math, only: &
-  use mesh,     only: mesh_NcpElems, &
+    math_mul6x6
-                      mesh_maxNips
+  use mesh, only: &
-  use material, only: homogenization_maxNgrains, &
+    mesh_NcpElems, &
-                      material_phase, &
+    mesh_maxNips
-                      phase_plasticityInstance
+  use material, only: &
+    homogenization_maxNgrains, &
+    material_phase, &
+    phase_plasticityInstance
   
   implicit none
   !*** input variables ***!
@@ -464,8 +501,29 @@ pure function constitutive_j2_dotState(Tstar_v, Temperature, state, g, ip, el)
                                                (constitutive_j2_fTaylor(matID) * state(g,ip,el)%p(1)) ) ** constitutive_j2_n(matID)
   
   ! hardening coefficient
-  hardening = constitutive_j2_h0(matID) * &
+  if (abs(gamma_dot) > 1e-12_pReal) then
-                  ( 1.0_pReal - state(g,ip,el)%p(1) / constitutive_j2_tausat(matID) ) ** constitutive_j2_a(matID)
+    if (constitutive_j2_tausat_SinhFitA(matID) == 0) then
+      saturation = constitutive_j2_tausat(matID)
+    else
+      saturation = (  constitutive_j2_tausat(matID) &
+                    + ( log(  ( gamma_dot / constitutive_j2_tausat_SinhFitA(matID)&
+                                )**(1.0_pReal / constitutive_j2_tausat_SinhFitD(matID))&
+                             + sqrt(  ( gamma_dot / constitutive_j2_tausat_SinhFitA(matID) &
+                                       )**(2.0_pReal / constitutive_j2_tausat_SinhFitD(matID)) &
+                                    + 1.0_pReal ) &
+                             ) & ! asinh(K) = ln(K + sqrt(K^2 +1))
+                        )**(1.0_pReal / constitutive_j2_tausat_SinhFitC(matID)) &
+                    / (  constitutive_j2_tausat_SinhFitB(matID) &
+                       * (gamma_dot / constitutive_j2_gdot0(matID))**(1.0_pReal / constitutive_j2_n(matID)) &
+                       ) &
+                    )
+    endif
+    hardening = ( constitutive_j2_h0(matID) + constitutive_j2_h0_slopeLnRate(matID) * log(gamma_dot) ) &
+                * abs( 1.0_pReal - state(g,ip,el)%p(1)/saturation )**constitutive_j2_a(matID) &
+                * sign(1.0_pReal, 1.0_pReal - state(g,ip,el)%p(1)/saturation)
+  else
+    hardening = 0.0_pReal
+  endif
   
   ! dotState
   constitutive_j2_dotState =  hardening * gamma_dot

code/constitutive_phenopowerlaw.f90

@@ -75,32 +75,35 @@ module constitutive_phenopowerlaw
  use prec, only: pReal,pInt
 
  implicit none
- character (len=*), parameter :: &
+ private
+ character (len=*), parameter, public :: &
    constitutive_phenopowerlaw_label = 'phenopowerlaw'
     
- integer(pInt),   dimension(:),     allocatable :: &
+ integer(pInt), dimension(:), allocatable, public :: &
    constitutive_phenopowerlaw_sizeDotState, &
    constitutive_phenopowerlaw_sizeState, &
    constitutive_phenopowerlaw_sizePostResults, &                                                    ! cumulative size of post results
-   constitutive_phenopowerlaw_Noutput, &                                                            ! number of outputs per instance of this plasticity 
-   constitutive_phenopowerlaw_totalNslip, &                                                         ! no. of slip system used in simulation
-   constitutive_phenopowerlaw_totalNtwin, &                                                         ! no. of twin system used in simulation
    constitutive_phenopowerlaw_structure
 
- integer(pInt),   dimension(:,:),   allocatable,target :: &
+ integer(pInt), dimension(:), allocatable, private :: &
+   constitutive_phenopowerlaw_Noutput, &                                                            ! number of outputs per instance of this constitution 
+   constitutive_phenopowerlaw_totalNslip, &                                                         ! no. of slip system used in simulation
+   constitutive_phenopowerlaw_totalNtwin                                                            ! no. of twin system used in simulation
+ 
+ integer(pInt), dimension(:,:), allocatable, target, public :: &
    constitutive_phenopowerlaw_sizePostResult                                                        ! size of each post result output
 
- integer(pInt),   dimension(:,:),   allocatable :: &
+ integer(pInt), dimension(:,:), allocatable, private :: &
    constitutive_phenopowerlaw_Nslip, &                                                              ! active number of slip systems per family
    constitutive_phenopowerlaw_Ntwin                                                                 ! active number of twin systems per family
 
- character(len=64), dimension(:,:), allocatable,target :: & 
+ character(len=64), dimension(:,:), allocatable, target, public :: & 
    constitutive_phenopowerlaw_output                                                                ! name of each post result output
 
- character(len=32), dimension(:),   allocatable :: &
+ character(len=32), dimension(:), allocatable, private :: &
    constitutive_phenopowerlaw_structureName
 
- real(pReal), dimension(:), allocatable :: &
+ real(pReal), dimension(:), allocatable, private :: &
    constitutive_phenopowerlaw_CoverA, &
    constitutive_phenopowerlaw_C11, &
    constitutive_phenopowerlaw_C12, &
@@ -112,12 +115,12 @@ module constitutive_phenopowerlaw
    constitutive_phenopowerlaw_n_twin, &
    constitutive_phenopowerlaw_gdot0_twin
 
- real(pReal), dimension(:,:), allocatable :: &
+ real(pReal), dimension(:,:), allocatable, private :: &
    constitutive_phenopowerlaw_tau0_slip, &
    constitutive_phenopowerlaw_tausat_slip, &
    constitutive_phenopowerlaw_tau0_twin
 
- real(pReal), dimension(:), allocatable :: &
+ real(pReal), dimension(:), allocatable, private :: &
    constitutive_phenopowerlaw_spr, &
    constitutive_phenopowerlaw_twinB, &
    constitutive_phenopowerlaw_twinC, &
@@ -130,20 +133,29 @@ module constitutive_phenopowerlaw
    constitutive_phenopowerlaw_a_slip, &
    constitutive_phenopowerlaw_aTolResistance
 
- real(pReal), dimension(:,:), allocatable :: &
+ real(pReal), dimension(:,:), allocatable, private :: &
    constitutive_phenopowerlaw_interaction_slipslip, &
    constitutive_phenopowerlaw_interaction_sliptwin, &
    constitutive_phenopowerlaw_interaction_twinslip, &
    constitutive_phenopowerlaw_interaction_twintwin
 
- real(pReal), dimension(:,:,:), allocatable :: &
+ real(pReal), dimension(:,:,:), allocatable, private :: &
    constitutive_phenopowerlaw_hardeningMatrix_slipslip, &
    constitutive_phenopowerlaw_hardeningMatrix_sliptwin, &
    constitutive_phenopowerlaw_hardeningMatrix_twinslip, &
    constitutive_phenopowerlaw_hardeningMatrix_twintwin, &
    constitutive_phenopowerlaw_Cslip_66
 
- public  :: constitutive_phenopowerlaw_init  
+ public :: &
+   constitutive_phenopowerlaw_init, &
+   constitutive_phenopowerlaw_homogenizedC, &
+   constitutive_phenopowerlaw_aTolState, &
+   constitutive_phenopowerlaw_dotState, &
+   constitutive_phenopowerlaw_dotTemperature, &
+   constitutive_phenopowerlaw_microstructure, &
+   constitutive_phenopowerlaw_LpAndItsTangent, &
+   constitutive_phenopowerlaw_postResults, &
+   constitutive_phenopowerlaw_stateInit
 
 contains