frozen and variant are 1D again

README.md

@@ -2,8 +2,26 @@
 
 Visit [damask.mpie.de](https://damask.mpie.de) for installation and usage instructions
 
+## DAMASK_EICMD
+
+This is a DAMASK fork with implementation of the "Discrete Deformation Twinning Model" based on work done by Dr. Satyapriya Gupta and Dr. Philip Eisenlohr at MSU.
+
+### The Discrete Deformation Twinning Model
+The aim of this model is to accurately match experimental observations of deformation twinning while remaining computationally efficient compared to physics-based phase field models.
+
+* We introduce stochasticity for the nucleation and growth events of twinning through random sampling, similar to Monte Carlo Methods.
+* The ease or difficulty of a twinning event is controlled by adjusting the frequency of sampling.
+* At each voxel, the state of twinning is treated as a discrete quantity, unlike the approach based on diffused volume fraction method.
+* The kinetics of twinning occur in the form of a “jump,” rather than following a rate equation as in the “pseudo-slip” approach.
+* The jumped state is evaluated using the correspondence matrix from Niewczas, Acta Materialia, 2010.
+
 ## Contact Information
 
+(
+EICMD Team, IIT Dharwad
+https://sites.google.com/view/eicmd/home
+)
+
 Max-Planck-Institut für Eisenforschung GmbH  
 Max-Planck-Str. 1  
 40237 Düsseldorf  
@@ -12,4 +30,3 @@ Germany
 damask@mpie.de  
 https://damask.mpie.de  
 https://git.damask.mpie.de  
-

src/phase_mechanical_plastic_phenopowerlaw.f90

@@ -51,7 +51,7 @@ type :: tParameters
                                                                                          
   real(pReal),               allocatable, dimension(:,:,:) :: &
     P_sl, &
-    P_tw, &
+    P_tw, &                                                                                       !< Schmid matrix tiwn
     P_nS_pos, &
     P_nS_neg, &
     CorrespondanceMatrix                                                                          !< Achal
@@ -83,12 +83,12 @@ type :: tPhenopowerlawState
     gamma_sl, &
     gamma_tw, &
     f_twin, &                                                                                   !< Twin volume fraction
-    fmc_twin, &                                                                                 !< Achal, To control sampling frequency
+    fmc_twin!, &                                                                                 !< Achal, To control sampling frequency
-    variant_twin, &
-    frozen
-  !real(pReal), pointer, dimension(:) :: &
     !variant_twin, &
     !frozen
+  real(pReal), pointer, dimension(:) :: &
+    variant_twin, &
+    frozen
 end type tPhenopowerlawState
 
 !--------------------------------------------------------------------------------------------------
@@ -142,7 +142,6 @@ allocate(param(phases%length))
 allocate(indexDotState(phases%length))
 allocate(state(phases%length))
 allocate(deltastate(phases%length))                                                               !< Achal
-!allocate(dotState(phases%length))                                                                 !< Achal dot allocate
 
 do ph = 1, phases%length
   if (.not. myPlasticity(ph)) cycle
@@ -267,12 +266,12 @@ do ph = 1, phases%length
                + size(['xi_tw   ','gamma_tw','f_twin  ']) * prm%sum_N_tw      !Achal
   
   sizeDeltaState = size(['f_twin  ','fmc_twin']) * prm%sum_N_tw  &                       !Achal
-                   + size(['variant_twin','frozen      ']) * prm%sum_N_tw
+                   + size(['variant_twin','frozen      '])
                
   sizeState = size(['xi_sl   ','gamma_sl']) * prm%sum_N_sl &
               + size(['xi_tw   ','gamma_tw']) * prm%sum_N_tw &
               + size(['f_twin  ','fmc_twin']) * prm%sum_N_tw &
-              + size(['variant_twin','frozen      ']) * prm%sum_N_tw              !Achal
+              + size(['variant_twin','frozen      '])              !Achal
 
 
 
@@ -334,10 +333,10 @@ do ph = 1, phases%length
   plasticState(ph)%atol(startIndex:endIndex) = pl%get_asFloat('atol_gamma',defaultVal=1.0e-6_pReal)
 
   startIndex =  endIndex + 1
-  endIndex   =  endIndex + prm%sum_N_tw
+  endIndex   =  endIndex + 1
-  stt%frozen => plasticState(ph)%state(startIndex:endIndex,:)
+  stt%frozen => plasticState(ph)%state(startIndex,:)
   stt%frozen = 0.0_pReal-1.0_pReal 
-  dlt%frozen => plasticState(ph)%deltaState(startIndex-o:endIndex-o,:)
+  dlt%frozen => plasticState(ph)%deltaState(startIndex-o,:)
   plasticState(ph)%atol(startIndex:endIndex) = pl%get_asFloat('atol_gamma',defaultVal=1.0e-6_pReal)
 
   startIndex =  endIndex + 1
@@ -347,9 +346,10 @@ do ph = 1, phases%length
   plasticState(ph)%atol(startIndex:endIndex) = pl%get_asFloat('atol_gamma',defaultVal=1.0e-6_pReal)
 
   startIndex       =  endIndex + 1
-  endIndex         =  endIndex + prm%sum_N_tw
+  endIndex         =  endIndex + 1
-  stt%variant_twin => plasticState(ph)%state(startIndex:endIndex,:)
+  stt%variant_twin => plasticState(ph)%state(startIndex,:)
-  dlt%variant_twin => plasticState(ph)%deltaState(startIndex-o:endIndex-o,:)      
+  stt%variant_twin = 0.0_pReal
+  dlt%variant_twin => plasticState(ph)%deltaState(startIndex-o,:)      
   plasticState(ph)%atol(startIndex:endIndex) = 0.0_pReal
 
 
@@ -526,6 +526,7 @@ associate(prm => param(ph), stt => state(ph), dot => dotState(ph), dlt => deltas
 
   neighbors: do n = 1,nIPneighbors
         neighbor_e = geom(ph)%IPneighborhood(1,n,en)
+        !write(6,*) 'neighbor_e', neighbor_e
         neighbor_i = geom(ph)%IPneighborhood(2,n,en)
         neighbor_me = material_phaseEntry(1,(neighbor_e-1)*discretization_nIPs + neighbor_i)           !Neighbour offset
         neighbor_phase = material_phaseID(1,(neighbor_e-1)*discretization_nIPs + neighbor_i)
@@ -554,8 +555,8 @@ associate(prm => param(ph), stt => state(ph), dot => dotState(ph), dlt => deltas
       deltaFp  = prm%CorrespondanceMatrix(:,:,twin_var)
       dlt%f_twin(:,en)     = 0.0_pReal - stt%f_twin(:,en)
       dlt%fmc_twin(:,en)   = 0.0_pReal - stt%fmc_twin(:,en)
-      dlt%frozen(:,en)       = 1.0_pReal - stt%frozen(:,en)
+      dlt%frozen(en)       = 1.0_pReal - stt%frozen(en)
-      dlt%variant_twin(:,en) = twin_var - stt%variant_twin(:,en)                ! Achal LHS is real, RHS integer
+      dlt%variant_twin(en) = twin_var - stt%variant_twin(en)                ! Achal LHS is real, RHS integer   ! why this equation?
     end if Success_Nucleation
 
   endif Ability_Nucleation
@@ -579,8 +580,8 @@ associate(dlt => deltastate(ph))
 
   dlt%f_twin(:,en)   = 0.0_pReal
   dlt%fmc_twin(:,en) = 0.0_pReal
-  dlt%variant_twin(:,en) = 0.0_pReal
+  !dlt%variant_twin(en) = 1.0_pReal
-  dlt%frozen(:,en) = 0.0_pReal
+  !dlt%frozen(en) = 1.0_pReal
 
 end associate
 
@@ -623,12 +624,12 @@ associate(prm => param(ph), stt => state(ph), dlt=>deltastate(ph))
                                   'volume fraction','1',prm%systems_tw)                          !Achal
 
       case('variant_twin')
-        call results_writeDataset(dlt%variant_twin,group,trim(prm%output(ou)), &
+        call results_writeDataset(stt%variant_twin,group,trim(prm%output(ou)), &
-                                  'twin variant','1', prm%systems_tw)                                            !Achal
+                                  'twin variant','1')                                            !Achal
 
       case('fbinary_twin')
-        call results_writeDataset(dlt%frozen,group,trim(prm%output(ou)), &
+        call results_writeDataset(stt%frozen,group,trim(prm%output(ou)), &
-                                  'binary twin flag','1',prm%systems_tw)                                       !Achal
+                                  'binary twin flag','1')                                       !Achal
     end select
 
   end do