cleaning output
This commit is contained in:
parent
918de24f83
commit
0f084a9844
|
@ -37,11 +37,8 @@ module plastic_dislotwin
|
|||
threshold_stress_twin_ID, &
|
||||
resolved_stress_shearband_ID, &
|
||||
shear_rate_shearband_ID, &
|
||||
sb_eigenvalues_ID, &
|
||||
sb_eigenvectors_ID, &
|
||||
stress_trans_fraction_ID, &
|
||||
strain_trans_fraction_ID, &
|
||||
trans_fraction_ID
|
||||
end enum
|
||||
|
||||
type,private :: tParameters
|
||||
|
@ -1690,10 +1687,6 @@ function plastic_dislotwin_postResults(Tstar_v,Temperature,ipc,ip,el) result(pos
|
|||
case (strain_trans_fraction_ID)
|
||||
postResults(c+1_pInt:c+prm%totalNtrans) = stt%strainTransFraction(1_pInt:prm%totalNtrans,of)
|
||||
c = c + prm%totalNtrans
|
||||
case (trans_fraction_ID) !ToDo: deprecated
|
||||
postResults(c+1_pInt:c+prm%totalNtrans) = stt%stressTransFraction(1_pInt:prm%totalNtrans,of) &
|
||||
+ stt%strainTransFraction(1_pInt:prm%totalNtrans,of)
|
||||
c = c + prm%totalNtrans
|
||||
end select
|
||||
enddo
|
||||
end associate
|
||||
|
|
Loading…
Reference in New Issue