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

allocate all dependentStates/microstructures

This commit is contained in:
Martin Diehl 2018-09-13 06:48:06 +02:00
parent e7f7fa74b7
commit ad3994c484
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/plastic_dislotwin.f90
View File

@ -842,15 +842,26 @@ subroutine plastic_dislotwin_init(fileUnit)
dst%whole => plasticState(p)%dotState dst%whole => plasticState(p)%dotState
allocate(mse%invLambdaSlip(prm%totalNslip,NofMyPhase),source=0.0_pReal)
allocate(mse%invLambdaSlipTwin(prm%totalNslip,NofMyPhase),source=0.0_pReal) allocate(mse%invLambdaSlipTwin(prm%totalNslip,NofMyPhase),source=0.0_pReal)
allocate(mse%invLambdaTwin(prm%totalNtwin,NofMyPhase),source=0.0_pReal) allocate(mse%invLambdaTwin(prm%totalNtwin,NofMyPhase),source=0.0_pReal)
allocate(mse%invLambdaSlipTrans(prm%totalNtrans,NofMyPhase),source=0.0_pReal) allocate(mse%invLambdaSlipTrans(prm%totalNtrans,NofMyPhase),source=0.0_pReal)
allocate(mse%invLambdaTrans(prm%totalNtrans,NofMyPhase),source=0.0_pReal) allocate(mse%invLambdaTrans(prm%totalNtrans,NofMyPhase),source=0.0_pReal)
allocate(mse%mfp_slip(prm%totalNslip,NofMyPhase), source=0.0_pReal)
allocate(mse%mfp_twin(prm%totalNtwin,NofMyPhase), source=0.0_pReal)
allocate(mse%mfp_trans(prm%totalNtrans,NofMyPhase),source=0.0_pReal)
allocate(mse%threshold_stress_slip(prm%totalNslip,NofMyPhase), source=0.0_pReal)
allocate(mse%threshold_stress_twin(prm%totalNtwin,NofMyPhase), source=0.0_pReal) allocate(mse%threshold_stress_twin(prm%totalNtwin,NofMyPhase), source=0.0_pReal)
allocate(mse%threshold_stress_trans(prm%totalNtrans,NofMyPhase),source=0.0_pReal) allocate(mse%threshold_stress_trans(prm%totalNtrans,NofMyPhase),source=0.0_pReal)
allocate(mse%tau_r_twin(prm%totalNtwin,NofMyPhase), source=0.0_pReal) allocate(mse%tau_r_twin(prm%totalNtwin,NofMyPhase), source=0.0_pReal)
allocate(mse%tau_r_trans(prm%totalNtrans,NofMyPhase), source=0.0_pReal) allocate(mse%tau_r_trans(prm%totalNtrans,NofMyPhase), source=0.0_pReal)
allocate(mse%twinVolume(prm%totalNtwin,NofMyPhase), source=0.0_pReal)
allocate(mse%martensiteVolume(prm%totalNtrans,NofMyPhase), source=0.0_pReal)
end associate end associate
enddo enddo