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

grain orientation shuffling was skipped for /elemhomo/. no clue why, now dropped...

This commit is contained in:
Alankar Alankar 2011-02-03 17:25:58 +00:00
parent 05350d573e
commit b362755457
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/material.f90
View File

@ -687,7 +687,6 @@ subroutine material_populateGrains()
enddo ! constituent enddo ! constituent
! ---------------------------------------------------------------------------- ! ----------------------------------------------------------------------------
if (.not. microstructure_elemhomo(micro)) then ! unless element homogeneous, reshuffle grains
do i=1,myNgrains-1 ! walk thru grains do i=1,myNgrains-1 ! walk thru grains
call random_number(rnd) call random_number(rnd)
t = nint(rnd*(myNgrains-i)+i+0.5_pReal,pInt) ! select a grain in remaining list t = nint(rnd*(myNgrains-i)+i+0.5_pReal,pInt) ! select a grain in remaining list
@ -698,7 +697,6 @@ subroutine material_populateGrains()
orientationOfGrain(:,t) = orientationOfGrain(:,i) orientationOfGrain(:,t) = orientationOfGrain(:,i)
orientationOfGrain(:,i) = orientation orientationOfGrain(:,i) = orientation
enddo enddo
endif
!calc fraction after weighing with volumePerGrain !calc fraction after weighing with volumePerGrain
!exchange in MC steps to improve result... !exchange in MC steps to improve result...