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

added HDF5 outputs

This commit is contained in:
achalhp 2024-02-08 19:16:39 +05:30
parent 4ef153cb24
commit c96bc05db7
2 changed files with 58 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/phase_mechanical.f90
View File

@ -473,15 +473,15 @@ function integrateStress(F,subFp0,subFi0,Delta_t,ph,en) result(broken)
!** Starting to implement changes for accommodating large shear and reorientation caused by twinning**
if(.not. FpJumped .and. NiterationStressLp>1) then !Achal: Reason for this if statement?
call plastic_KinematicJump(ph, en, FpJumped,deltaFp)
if(en==15) write(6,*)'deltaFp',deltaFp !Achal Delete
!if(en==15) write(6,*)'deltaFp',deltaFp !Achal Delete
if(en==15) write(6,*)'FpJumped',FpJumped
!converged = .true. means no more iteration
if(FpJumped) then
!crystallite_converged(ipc,ip,el) = .true. !> See "phase_mechanical_constitutive" and "homogenization_mechanical_response"
!crystallite_todo(ipc,ip,el) = .false. !> Can't find this
! _converged = .not. broken
!subFp0 = matmul(deltaFp,subFp0)
Fp_new = matmul(deltaFp,subFp0)
! subFp0 is input need to change "phase_mechanical_Fp(ph)%data(1:3,1:3,en) = Fp_new / math_det33(Fp_new)**(1.0_pReal/3.0_pReal)"
!plasticState(ph)%state()
@ -1031,7 +1031,7 @@ module function phase_mechanical_constitutive(Delta_t,co,ce) result(converged_)
formerSubStep
integer :: &
ph, en, sizeDotState
logical :: todo
logical :: todo, FpJumped !Achal
real(pReal) :: subFrac,subStep
real(pReal), dimension(3,3) :: &
subFp0, &
@ -1039,7 +1039,8 @@ module function phase_mechanical_constitutive(Delta_t,co,ce) result(converged_)
subLp0, &
subLi0, &
subF0, &
subF
subF, &
deltaFp !Achal
real(pReal), dimension(plasticState(material_phaseID(co,ce))%sizeState) :: subState0
@ -1060,6 +1061,18 @@ module function phase_mechanical_constitutive(Delta_t,co,ce) result(converged_)
todo = .true.
cutbackLooping: do while (todo)
!matmul(deltaFp,subFp0)
! achal calling Kinematic DeltaFp here
!** Starting to implement changes for accommodating large shear and reorientation caused by twinning**
!if(.not. FpJumped .and. NiterationStressLp>1) then !Achal: Reason for this if statement?
call plastic_KinematicJump(ph, en, FpJumped,deltaFp)
if(FpJumped) then
subFp0 = matmul(deltaFp,phase_mechanical_Fp0(ph)%data(1:3,1:3,en))
endif
!endif
if (converged_) then
formerSubStep = subStep
subFrac = subFrac + subStep

45
src/phase_mechanical_plastic_phenopowerlaw.f90
View File

@ -82,8 +82,11 @@ type :: tPhenopowerlawState
xi_tw, &
gamma_sl, &
gamma_tw, &
f_twin, &
fmc_twin !< Achal, To control sampling frequency
f_twin, & !< Twin volume fraction
fmc_twin !< Achal, To control sampling frequency
real(pReal), pointer, dimension(:) :: &
variant_twin, &
frozen
end type tPhenopowerlawState
!--------------------------------------------------------------------------------------------------
@ -261,11 +264,13 @@ do ph = 1, phases%length
sizeDotState = size(['xi_sl ','gamma_sl']) * prm%sum_N_sl &
+ size(['xi_tw ','gamma_tw','f_twin ']) * prm%sum_N_tw !Achal
sizeDeltaState = size(['f_twin ','fmc_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
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 !Achal
+ size(['f_twin ','fmc_twin']) * prm%sum_N_tw &
+ size(['variant_twin','frozen ']) * prm%sum_N_tw !Achal
@ -326,11 +331,26 @@ do ph = 1, phases%length
dlt%f_twin => plasticState(ph)%deltaState(startIndex-o:endIndex-o,:) ! Achal
plasticState(ph)%atol(startIndex:endIndex) = pl%get_asFloat('atol_gamma',defaultVal=1.0e-6_pReal)
startIndex = endIndex + 1
endIndex = endIndex + prm%sum_N_tw
stt%frozen => plasticState(ph)%state(startIndex,:)
stt%frozen = 0.0_pReal-1.0_pReal
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
endIndex = endIndex + prm%sum_N_tw
stt%fmc_twin => plasticState(ph)%state(startIndex:endIndex,:)
dlt%fmc_twin => plasticState(ph)%deltaState(startIndex-o:endIndex-o,:)
plasticState(ph)%atol(startIndex:endIndex) = pl%get_asFloat('atol_gamma',defaultVal=1.0e-6_pReal)
startIndex = endIndex + 1
endIndex = endIndex + prm%sum_N_tw
stt%variant_twin => plasticState(ph)%state(startIndex,:)
dlt%variant_twin => plasticState(ph)%deltaState(startIndex-o,:)
plasticState(ph)%atol(startIndex:endIndex) = 0.0_pReal
write(6,*)"offset", o ! Achal Delete
@ -531,7 +551,9 @@ associate(prm => param(ph), stt => state(ph), dot => dotState(ph), dlt => deltas
twinJump = .true.
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%fmc_twin(:,en) = 0.0_pReal - stt%fmc_twin(:,en)
dlt%frozen(en) = 1.0_pReal - stt%frozen(en)
dlt%variant_twin(en) = twin_var - stt%variant_twin(en)
end if Success_Nucleation
endif Ability_Nucleation
@ -553,6 +575,8 @@ integer, intent(in)::&
deltastate(ph)%f_twin = 0.0_pReal
deltastate(ph)%fmc_twin = 0.0_pReal
deltastate(ph)%variant_twin = 0
deltastate(ph)%frozen = 0.0_pReal
end subroutine plastic_phenopowerlaw_deltaState
@ -589,6 +613,17 @@ associate(prm => param(ph), stt => state(ph))
call results_writeDataset(stt%gamma_tw,group,trim(prm%output(ou)), &
'twinning shear','1',prm%systems_tw)
case('f_twin')
call results_writeDataset(stt%f_twin,group,trim(prm%output(ou)), &
'volume fraction','1',prm%systems_tw)
case('variant_twin')
call results_writeDataset(stt%variant_twin,group,trim(prm%output(ou)), &
'twin variant','1',prm%systems_tw)
case('fbinary_twin')
call results_writeDataset(stt%frozen,group,trim(prm%output(ou)), &
'binary twin flag','1',prm%systems_tw)
end select
end do