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

22
code/material.f90
View File

@ -687,18 +687,16 @@ 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 m = phaseOfGrain(t) ! exchange current with random
m = phaseOfGrain(t) ! exchange current with random phaseOfGrain(t) = phaseOfGrain(i)
phaseOfGrain(t) = phaseOfGrain(i) phaseOfGrain(i) = m
phaseOfGrain(i) = m orientation = orientationOfGrain(:,t)
orientation = orientationOfGrain(:,t) 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...