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

still just polishing

This commit is contained in:
Martin Diehl 2018-08-31 18:17:35 +02:00
parent 34d1c011c7
commit 0b94b8085d
1 changed files with 21 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
src/plastic_dislotwin.f90
View File

@ -427,66 +427,53 @@ subroutine plastic_dislotwin_init(fileUnit)
do i= 1_pInt, size(outputs) do i= 1_pInt, size(outputs)
outputID = undefined_ID outputID = undefined_ID
select case(outputs(i)) select case(outputs(i))
case ('edge_density') case ('edge_density')
outputID = edge_density_ID outputID = edge_density_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('dipole_density') case ('dipole_density')
outputID = dipole_density_ID outputID = dipole_density_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('shear_rate_slip','shearrate_slip') case ('shear_rate_slip','shearrate_slip')
outputID = shear_rate_slip_ID outputID = shear_rate_slip_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('accumulated_shear_slip') case ('accumulated_shear_slip')
outputID = accumulated_shear_slip_ID outputID = accumulated_shear_slip_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('mfp_slip') case ('mfp_slip')
outputID = mfp_slip_ID outputID = mfp_slip_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('resolved_stress_slip') case ('resolved_stress_slip')
outputID = resolved_stress_slip_ID outputID = resolved_stress_slip_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('threshold_stress_slip') case ('threshold_stress_slip')
outputID= threshold_stress_slip_ID outputID= threshold_stress_slip_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('edge_dipole_distance') case ('edge_dipole_distance')
outputID = edge_dipole_distance_ID outputID = edge_dipole_distance_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('stress_exponent') case ('stress_exponent')
outputID = stress_exponent_ID outputID = stress_exponent_ID
outputSize = sum(prm%Nslip) outputSize = prm%totalNslip
case ('twin_fraction') case ('twin_fraction')
outputID = twin_fraction_ID outputID = twin_fraction_ID
outputSize = sum(prm%Ntwin) outputSize = prm%totalNtwin
case ('shear_rate_twin','shearrate_twin') case ('shear_rate_twin','shearrate_twin')
outputID= shear_rate_twin_ID outputID = shear_rate_twin_ID
outputSize = sum(prm%Ntwin) outputSize = prm%totalNtwin
case ('accumulated_shear_twin') case ('accumulated_shear_twin')
outputID = accumulated_shear_twin_ID outputID = accumulated_shear_twin_ID
outputSize = sum(prm%Ntwin) outputSize = prm%totalNtwin
case ('mfp_twin') case ('mfp_twin')
outputID = mfp_twin_ID outputID = mfp_twin_ID
outputSize = sum(prm%Ntwin) outputSize = prm%totalNtwin
case ('resolved_stress_twin') case ('resolved_stress_twin')
outputID = resolved_stress_twin_ID outputID = resolved_stress_twin_ID
outputSize = sum(prm%Ntwin) outputSize = prm%totalNtwin
case ('threshold_stress_twin') case ('threshold_stress_twin')
outputID = threshold_stress_twin_ID outputID = threshold_stress_twin_ID
outputSize = sum(prm%Ntwin) outputSize = prm%totalNtwin
case ('resolved_stress_shearband') case ('resolved_stress_shearband')
outputID = resolved_stress_shearband_ID outputID = resolved_stress_shearband_ID
@ -495,26 +482,22 @@ subroutine plastic_dislotwin_init(fileUnit)
case ('shear_rate_shearband','shearrate_shearband') case ('shear_rate_shearband','shearrate_shearband')
outputID = shear_rate_shearband_ID outputID = shear_rate_shearband_ID
outputSize = 6_pInt outputSize = 6_pInt
case ('sb_eigenvalues') case ('sb_eigenvalues')
outputID = sb_eigenvalues_ID outputID = sb_eigenvalues_ID
outputSize = 3_pInt outputSize = 3_pInt
case ('sb_eigenvectors') case ('sb_eigenvectors')
outputID = sb_eigenvectors_ID outputID = sb_eigenvectors_ID
outputSize = 3_pInt outputSize = 3_pInt
case ('stress_trans_fraction') case ('stress_trans_fraction')
outputID = stress_trans_fraction_ID outputID = stress_trans_fraction_ID
outputSize = sum(prm%Ntrans) outputSize = prm%totalNtrans
case ('strain_trans_fraction') case ('strain_trans_fraction')
outputID = strain_trans_fraction_ID outputID = strain_trans_fraction_ID
outputSize = sum(prm%Ntrans) outputSize = prm%totalNtrans
case ('trans_fraction','total_trans_fraction') case ('trans_fraction','total_trans_fraction')
outputID = trans_fraction_ID outputID = trans_fraction_ID
outputSize = sum(prm%Ntrans) outputSize = prm%totalNtrans
end select end select