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

corrected nonconforming use of openmp parallelization

This commit is contained in:
Christoph Kords 2012-12-14 14:30:08 +00:00
parent 2eb9f66c6c
commit 64d9c70dc7
1 changed files with 28 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/homogenization.f90
View File

@ -175,7 +175,6 @@ subroutine homogenization_init(Temperature)
!--------------------------------------------------------------------------------------------------
! allocate and initialize global state and postrestuls variables
!$OMP PARALLEL DO PRIVATE(myInstance)
do e = 1,mesh_NcpElems ! loop over elements
myInstance = homogenization_typeInstance(mesh_element(3,e))
do i = 1,FE_Nips(FE_geomtype(mesh_element(2,e))) ! loop over IPs
@ -203,7 +202,6 @@ subroutine homogenization_init(Temperature)
end select
enddo
enddo
!$OMP END PARALLEL DO
!--------------------------------------------------------------------------------------------------
! write state size file out
@ -451,8 +449,8 @@ subroutine materialpoint_stressAndItsTangent(updateJaco,dt)
endif
endif
materialpoint_requested(i,e) = materialpoint_subStep(i,e) > subStepMinHomog
if (materialpoint_requested(i,e)) then
if (materialpoint_subStep(i,e) > subStepMinHomog) then
materialpoint_requested(i,e) = .true.
materialpoint_subF(1:3,1:3,i,e) = materialpoint_subF0(1:3,1:3,i,e) + &
materialpoint_subStep(i,e) * (materialpoint_F(1:3,1:3,i,e) - materialpoint_F0(1:3,1:3,i,e))
materialpoint_subdt(i,e) = materialpoint_subStep(i,e) * dt