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

reorganized calculation modes for CPFEM, now having better readable and cleaner structure

This commit is contained in:
Martin Diehl 2013-03-01 11:48:29 +00:00
parent 65c04ad4cf
commit ada2beb8b8
7 changed files with 749 additions and 763 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1107
code/CPFEM.f90
View File

File diff suppressed because it is too large Load Diff

17
code/DAMASK_abaqus_exp.f
View File

@ -187,7 +187,13 @@ subroutine vumat (jblock, ndir, nshr, nstatev, nfieldv, nprops, lanneal, &
debug_abaqus debug_abaqus
use mesh, only: mesh_FEasCP, & use mesh, only: mesh_FEasCP, &
mesh_ipCoordinates mesh_ipCoordinates
use CPFEM, only: CPFEM_general,CPFEM_init_done, CPFEM_initAll use CPFEM, only: &
CPFEM_general, &
CPFEM_init_done, &
CPFEM_initAll, &
CPFEM_CALCRESULTS, &
CPFEM_AGERESULTS, &
CPFEM_EXPLICIT
use homogenization, only: materialpoint_sizeResults, materialpoint_results use homogenization, only: materialpoint_sizeResults, materialpoint_results
include 'vaba_param.inc' ! Abaqus exp initializes a first step in single prec. for this a two-step compilation is used. include 'vaba_param.inc' ! Abaqus exp initializes a first step in single prec. for this a two-step compilation is used.
@ -216,8 +222,8 @@ subroutine vumat (jblock, ndir, nshr, nstatev, nfieldv, nprops, lanneal, &
real(pReal), dimension(6,6) :: ddsdde real(pReal), dimension(6,6) :: ddsdde
real(pReal) temp, timeInc real(pReal) temp, timeInc
integer(pInt) computationMode, n, i, cp_en integer(pInt) computationMode, n, i, cp_en
logical :: cutBack
computationMode = ior(CPFEM_CALCRESULTS,CPFEM_EXPLICIT) ! always calculate, always explicit
do n = 1,nblock ! loop over vector of IPs do n = 1,nblock ! loop over vector of IPs
temp = tempOld(n) temp = tempOld(n)
@ -249,16 +255,15 @@ subroutine vumat (jblock, ndir, nshr, nstatev, nfieldv, nprops, lanneal, &
outdatedByNewInc = .false. outdatedByNewInc = .false.
call debug_info() ! first after new inc reports debugging call debug_info() ! first after new inc reports debugging
call debug_reset() ! resets debugging call debug_reset() ! resets debugging
computationMode = 8 ! calc and age results with implicit collection computationMode = ior(computationMode, CPFEM_AGERESULTS) ! age results
else
computationMode = 9 ! plain calc with implicit collection
endif endif
theTime = totalTime ! record current starting time theTime = totalTime ! record current starting time
if (iand(debug_level(debug_abaqus),debug_levelBasic) /= 0) then if (iand(debug_level(debug_abaqus),debug_levelBasic) /= 0) then
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write(6,'(a16,1x,i2,1x,a,i8,1x,i5,a)') 'computationMode',computationMode,'(',nElement(n),nMatPoint(n),')'; call flush(6) write(6,'(i2,1x,a,i8,1x,i5,a)') '(',nElement(n),nMatPoint(n),')'; call flush(6)
write(6,'(a,l1)') 'Aging Results: ', iand(computationMode, CPFEM_AGERESULTS) /= 0_pInt
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
endif endif

62
code/DAMASK_abaqus_std.f
View File

@ -151,7 +151,16 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
debug_abaqus debug_abaqus
use mesh, only: mesh_FEasCP, & use mesh, only: mesh_FEasCP, &
mesh_ipCoordinates mesh_ipCoordinates
use CPFEM, only: CPFEM_general,CPFEM_init_done, CPFEM_initAll use CPFEM, only: &
CPFEM_general, &
CPFEM_init_done, &
CPFEM_initAll, &
CPFEM_CALCRESULTS, &
CPFEM_AGERESULTS, &
CPFEM_COLLECT, &
CPFEM_RESTOREJACOBIAN, &
CPFEM_BACKUPJACOBIAN
use homogenization, only: materialpoint_sizeResults, materialpoint_results use homogenization, only: materialpoint_sizeResults, materialpoint_results
@ -173,7 +182,6 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
real(pReal), dimension(6) :: stress_h real(pReal), dimension(6) :: stress_h
real(pReal), dimension(6,6) :: ddsdde_h real(pReal), dimension(6,6) :: ddsdde_h
integer(pInt) computationMode, i, cp_en integer(pInt) computationMode, i, cp_en
logical :: cutBack
if (iand(debug_level(debug_abaqus),debug_levelBasic) /= 0 .and. noel == 1 .and. npt == 1) then if (iand(debug_level(debug_abaqus),debug_levelBasic) /= 0 .and. noel == 1 .and. npt == 1) then
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
@ -216,9 +224,7 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
endif endif
else if ( dtime < theDelta ) then ! >> cutBack << else if ( dtime < theDelta ) then ! >> cutBack <<
cutBack = .true.
terminallyIll = .false. terminallyIll = .false.
cycleCounter = -1 ! first calc step increments this to cycle = 0 cycleCounter = -1 ! first calc step increments this to cycle = 0
calcMode = .true. ! pretend last step was calculation calcMode = .true. ! pretend last step was calculation
@ -230,33 +236,27 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
calcMode(npt,cp_en) = .not. calcMode(npt,cp_en) ! ping pong (calc <--> collect) calcMode(npt,cp_en) = .not. calcMode(npt,cp_en) ! ping pong (calc <--> collect)
if ( calcMode(npt,cp_en) ) then ! now calc if (calcMode(npt,cp_en)) then ! now calc
if ( lastMode .neqv. calcMode(npt,cp_en) ) then ! first after ping pong computationMode = CPFEM_CALCRESULTS
call debug_reset() ! resets debugging if ( lastMode .neqv. calcMode(npt,cp_en) ) then ! first after ping pong
outdatedFFN1 = .false. call debug_reset() ! resets debugging
cycleCounter = cycleCounter + 1 outdatedFFN1 = .false.
endif cycleCounter = cycleCounter + 1
if ( outdatedByNewInc ) then endif
outdatedByNewInc = .false. if(outdatedByNewInc) then
computationMode = 1 ! calc and age results outdatedByNewInc = .false.
else computationMode = ior(computationMode,CPFEM_AGERESULTS) ! calc and age results
computationMode = 2 ! plain calc endif
endif
else ! now collect else ! now collect
if ( lastMode .neqv. calcMode(npt,cp_en) .and. & computationMode = CPFEM_COLLECT
.not. terminallyIll) then if(lastMode .neqv. calcMode(npt,cp_en) .and. .not. terminallyIll) then
call debug_info() ! first after ping pong reports debugging call debug_info() ! first after ping pong reports debugging
endif endif
if ( lastIncConverged ) then if (lastIncConverged) then
lastIncConverged = .false. lastIncConverged = .false.
computationMode = 4 ! collect and backup Jacobian after convergence computationMode = ior(computationMode,CPFEM_BACKUPJACOBIAN) ! backup Jacobian after convergence
elseif ( cutBack ) then endif
cutBack = .false. mesh_ipCoordinates(1:3,npt,cp_en) = numerics_unitlength * COORDS
computationMode = 5 ! collect and restore Jacobian after cutback
else
computationMode = 3 ! plain collect
endif
mesh_ipCoordinates(1:3,npt,cp_en) = numerics_unitlength * COORDS
endif endif
theTime = time(2) ! record current starting time theTime = time(2) ! record current starting time

297
code/DAMASK_marc.f90
View File

@ -16,44 +16,37 @@
! You should have received a copy of the GNU General Public License ! You should have received a copy of the GNU General Public License
! along with DAMASK. If not, see <http://www.gnu.org/licenses/>. ! along with DAMASK. If not, see <http://www.gnu.org/licenses/>.
! !
!############################################################## !--------------------------------------------------------------------------------------------------
!* $Id$ ! $Id$
!******************************************************************** !--------------------------------------------------------------------------------------------------
! Material subroutine for MSC.Marc !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
! !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
! written by P. Eisenlohr, !> @author Luc Hantcherli, Max-Planck-Institut für Eisenforschung GmbH
! F. Roters, !> @author W.A. Counts
! L. Hantcherli, !> @author Denny Tjahjanto, Max-Planck-Institut für Eisenforschung GmbH
! W.A. Counts !> @author Christoph Kords, Max-Planck-Institut für Eisenforschung GmbH
! D.D. Tjahjanto !> @brief Material subroutine for MSC.Marc
! C. Kords !> @details Usage:
! !> @details - choose material as hypela2
! MPI fuer Eisenforschung, Duesseldorf !> @details - set statevariable 2 to index of homogenization
! !> @details - set statevariable 3 to index of microstructure
!******************************************************************** !> @details - make sure the file "material.config" exists in the working
! Usage: !> @details directory
! - choose material as hypela2 !> @details - make sure the file "numerics.config" exists in the working
! - set statevariable 2 to index of homogenization !> @details directory
! - set statevariable 3 to index of microstructure !> @details - use nonsymmetric option for solver (e.g. direct
! - make sure the file "material.config" exists in the working !> @details profile or multifrontal sparse, the latter seems
! directory !> @details to be faster!)
! - make sure the file "numerics.config" exists in the working !> @details - in case of ddm (domain decomposition)a SYMMETRIC
! directory !> @details solver has to be used, i.e uncheck "non-symmetric"
! - use nonsymmetric option for solver (e.g. direct !> @details Marc subroutines used:
! profile or multifrontal sparse, the latter seems !> @details - hypela2
! to be faster!) !> @details - plotv
! - in case of ddm (domain decomposition)a SYMMETRIC !> @details - quit
! solver has to be used, i.e uncheck "non-symmetric" !> @details Marc common blocks included:
!******************************************************************** !> @details - concom: lovl, ncycle, inc, incsub
! Marc subroutines used: !> @details - creeps: timinc
! - hypela2 !--------------------------------------------------------------------------------------------------
! - plotv
! - quit
!********************************************************************
! Marc common blocks included:
! - concom: lovl, ncycle, inc, incsub
! - creeps: timinc
!********************************************************************
#ifndef INT #ifndef INT
#define INT 4 #define INT 4
@ -68,7 +61,6 @@
#include "prec.f90" #include "prec.f90"
module DAMASK_interface module DAMASK_interface
use prec, only: pInt
implicit none implicit none
character(len=4), parameter :: InputFileExtension = '.dat' character(len=4), parameter :: InputFileExtension = '.dat'
@ -76,24 +68,29 @@ module DAMASK_interface
contains contains
!--------------------------------------------------------------------------------------------------
!> @brief only output of current version
!--------------------------------------------------------------------------------------------------
subroutine DAMASK_interface_init subroutine DAMASK_interface_init
implicit none implicit none
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write(6,*) write(6,'(/,a)') ' <<<+- DAMASK_marc init -+>>>'
write(6,*) '<<<+- DAMASK_marc init -+>>>' write(6,'(a)') ' $Id$'
write(6,*) '$Id$'
#include "compilation_info.f90" #include "compilation_info.f90"
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
end subroutine DAMASK_interface_init end subroutine DAMASK_interface_init
!--------------------------------------------------------------------------------------------------
!> @brief returns the current workingDir
!--------------------------------------------------------------------------------------------------
function getSolverWorkingDirectoryName() function getSolverWorkingDirectoryName()
implicit none implicit none
character(1024) getSolverWorkingDirectoryName, inputName character(1024) getSolverWorkingDirectoryName, inputName
character(len=*), parameter :: pathSep = achar(47)//achar(92) ! forward and backward slash character(len=*), parameter :: pathSep = achar(47)//achar(92) ! forward and backward slash
@ -105,10 +102,16 @@ function getSolverWorkingDirectoryName()
end function getSolverWorkingDirectoryName end function getSolverWorkingDirectoryName
function getSolverJobName()
implicit none
!--------------------------------------------------------------------------------------------------
!> @brief solver job name (no extension) as combination of geometry and load case name
!--------------------------------------------------------------------------------------------------
function getSolverJobName()
use prec, only: &
pReal, &
pInt
implicit none
character(1024) :: getSolverJobName, inputName character(1024) :: getSolverJobName, inputName
character(len=*), parameter :: pathSep = achar(47)//achar(92) ! forward and backward slash character(len=*), parameter :: pathSep = achar(47)//achar(92) ! forward and backward slash
integer(pInt) :: extPos integer(pInt) :: extPos
@ -118,10 +121,10 @@ function getSolverJobName()
inquire(5, name=inputName) ! determine inputfile inquire(5, name=inputName) ! determine inputfile
extPos = len_trim(inputName)-4 extPos = len_trim(inputName)-4
getSolverJobName=inputName(scan(inputName,pathSep,back=.true.)+1:extPos) getSolverJobName=inputName(scan(inputName,pathSep,back=.true.)+1:extPos)
! write(6,*) 'getSolverJobName', getSolverJobName
end function getSolverJobName end function getSolverJobName
end module DAMASK_interface end module DAMASK_interface
#include "IO.f90" #include "IO.f90"
@ -146,77 +149,70 @@ end module DAMASK_interface
#include "CPFEM.f90" #include "CPFEM.f90"
!******************************************************************** !--------------------------------------------------------------------------------------------------
! This is the Marc material routine !> @brief This is the MSC.Marc user subroutine for defining material behavior
!******************************************************************** !> @details CAUTION : Due to calculation of the Deformation gradients, Stretch Tensors and
! !> @details Rotation tensors at previous and current states, the analysis can be
! ************* user subroutine for defining material behavior ************** !> @details computationally expensive. Please use the user subroutine -> hypela
! !> @details if these kinematic quantities are not needed in the constitutive model
! !> @details
! CAUTION : Due to calculation of the Deformation gradients, Stretch Tensors and !> @details IMPORTANT NOTES :
! Rotation tensors at previous and current states, the analysis can be !> @details
! computationally expensive. Please use the user subroutine -> hypela !> @details (1) F,R,U are only available for continuum and membrane elements (not for
! if these kinematic quantities are not needed in the constitutive model !> @details shells and beams).
! !> @details
! !> @details (2) For total Lagrangian formulation use the -> 'Elasticity,1' card(=
! IMPORTANT NOTES : !> @details total Lagrange with large disp) in the parameter section of input deck.
! !> @details For updated Lagrangian formulation use the -> 'Plasticity,3' card(=
! (1) F,R,U are only available for continuum and membrane elements (not for !> @details update+finite+large disp+constant d) in the parameter section of
! shells and beams). !> @details input deck.
! !> @details
! (2) For total Lagrangian formulation use the -> 'Elasticity,1' card(= !> @details The following operation obtains U (stretch tensor) at t=n+1 :
! total Lagrange with large disp) in the parameter section of input deck. !> @details
! For updated Lagrangian formulation use the -> 'Plasticity,3' card(= !> @details call scla(un1,0.d0,itel,itel,1)
! update+finite+large disp+constant d) in the parameter section of !> @details do k=1,3
! input deck. !> @details do i=1,3
! !> @details do j=1,3
! The following operation obtains U (stretch tensor) at t=n+1 : !> @details un1(i,j)=un1(i,j)+dsqrt(strechn1(k))*eigvn1(i,k)*eigvn1(j,k)
! !> @details enddo
! call scla(un1,0.d0,itel,itel,1) !> @details enddo
! do 3 k=1,3 !> @details enddo
! do 2 i=1,3 !--------------------------------------------------------------------------------------------------
! do 1 j=1,3
! un1(i,j)=un1(i,j)+dsqrt(strechn1(k))*eigvn1(i,k)*eigvn1(j,k)
!1 continue
!2 continue
!3 continue
!
!********************************************************************
subroutine hypela2(& subroutine hypela2(&
d,& ! stress strain law to be formed d,& !< stress strain law to be formed
g,& ! change in stress due to temperature effects g,& !< change in stress due to temperature effects
e,& ! total elastic strain e,& !< total elastic strain
de,& ! increment of strain de,& !< increment of strain
s,& ! stress - should be updated by user s,& !< stress - should be updated by user
t,& ! state variables (comes in at t=n, must be updated to have state variables at t=n+1) t,& !< state variables (comes in at t=n, must be updated to have state variables at t=n+1)
dt,& ! increment of state variables dt,& !< increment of state variables
ngens,& ! size of stress - strain law ngens,& !< size of stress - strain law
n,& ! element number n,& !< element number
nn,& ! integration point number nn,& !< integration point number
kcus,& ! (1) layer number, (2) internal layer number kcus,& !< (1) layer number, (2) internal layer number
matus,& ! (1) user material identification number, (2) internal material identification number matus,& !< (1) user material identification number, (2) internal material identification number
ndi,& ! number of direct components ndi,& !< number of direct components
nshear,& ! number of shear components nshear,& !< number of shear components
disp,& ! incremental displacements disp,& !< incremental displacements
dispt,& ! displacements at t=n (at assembly, lovl=4) and displacements at t=n+1 (at stress recovery, lovl=6) dispt,& !< displacements at t=n (at assembly, lovl=4) and displacements at t=n+1 (at stress recovery, lovl=6)
coord,& ! coordinates coord,& !< coordinates
ffn,& ! deformation gradient ffn,& !< deformation gradient
frotn,& ! rotation tensor frotn,& !< rotation tensor
strechn,& ! square of principal stretch ratios, lambda(i) strechn,& !< square of principal stretch ratios, lambda(i)
eigvn,& ! i principal direction components for j eigenvalues eigvn,& !< i principal direction components for j eigenvalues
ffn1,& ! deformation gradient ffn1,& !< deformation gradient
frotn1,& ! rotation tensor frotn1,& !< rotation tensor
strechn1,& ! square of principal stretch ratios, lambda(i) strechn1,& !< square of principal stretch ratios, lambda(i)
eigvn1,& ! i principal direction components for j eigenvalues eigvn1,& !< i principal direction components for j eigenvalues
ncrd,& ! number of coordinates ncrd,& !< number of coordinates
itel,& ! dimension of F and R, either 2 or 3 itel,& !< dimension of F and R, either 2 or 3
ndeg,& ! number of degrees of freedom ==> is this at correct list position ?!? ndeg,& !< number of degrees of freedom ==> is this at correct list position ?!?
ndm,& ! ndm,& !<
nnode,& ! number of nodes per element nnode,& !< number of nodes per element
jtype,& ! element type jtype,& !< element type
lclass,& ! element class lclass,& !< element class
ifr,& ! set to 1 if R has been calculated ifr,& !< set to 1 if R has been calculated
ifu & ! set to 1 if stretch has been calculated ifu & !< set to 1 if stretch has been calculated
) )
use prec, only: pReal, & use prec, only: pReal, &
@ -244,7 +240,16 @@ subroutine hypela2(&
mesh_build_ipCoordinates, & mesh_build_ipCoordinates, &
FE_Nnodes, & FE_Nnodes, &
FE_geomtype FE_geomtype
use CPFEM, only: CPFEM_initAll,CPFEM_general,CPFEM_init_done use CPFEM, only: &
CPFEM_general, &
CPFEM_init_done, &
CPFEM_initAll, &
CPFEM_CALCRESULTS, &
CPFEM_AGERESULTS, &
CPFEM_COLLECT, &
CPFEM_RESTOREJACOBIAN, &
CPFEM_BACKUPJACOBIAN
!$ use numerics, only: DAMASK_NumThreadsInt ! number of threads set by DAMASK_NUM_THREADS !$ use numerics, only: DAMASK_NumThreadsInt ! number of threads set by DAMASK_NUM_THREADS
implicit none implicit none
@ -286,12 +291,9 @@ subroutine hypela2(&
!$ call omp_set_num_threads(DAMASK_NumThreadsInt) ! set number of threads for parallel execution set by DAMASK_NUM_THREADS !$ call omp_set_num_threads(DAMASK_NumThreadsInt) ! set number of threads for parallel execution set by DAMASK_NUM_THREADS
if (lovl == 4) then ! Marc requires stiffness in separate call (lovl == 4) if (lovl == 4 ) then
if ( timinc < theDelta .and. theInc == inc ) then ! first after cutback if(timinc < theDelta .and. theInc == inc ) & ! first after cutback
computationMode = 7 ! --> restore tangent and return it computationMode = CPFEM_RESTOREJACOBIAN
else
computationMode = 6 ! --> just return known tangent
endif
else ! stress requested (lovl == 6) else ! stress requested (lovl == 6)
cp_en = mesh_FEasCP('elem',n(1)) cp_en = mesh_FEasCP('elem',n(1))
if (cptim > theTime .or. inc /= theInc) then ! reached "convergence" if (cptim > theTime .or. inc /= theInc) then ! reached "convergence"
@ -346,10 +348,10 @@ subroutine hypela2(&
call mesh_build_ipCoordinates() ! update ip coordinates call mesh_build_ipCoordinates() ! update ip coordinates
endif endif
if ( outdatedByNewInc ) then if ( outdatedByNewInc ) then
computationMode = ior(CPFEM_CALCRESULTS,CPFEM_AGERESULTS)
outdatedByNewInc = .false. ! reset flag outdatedByNewInc = .false. ! reset flag
computationMode = 1 ! calc and age results
else else
computationMode = 2 ! plain calc computationMode = CPFEM_CALCRESULTS
endif endif
else ! now --- COLLECT --- else ! now --- COLLECT ---
if ( lastMode /= calcMode(nn,cp_en) .and. & if ( lastMode /= calcMode(nn,cp_en) .and. &
@ -357,10 +359,10 @@ subroutine hypela2(&
call debug_info() ! first after ping pong reports (meaningful) debugging call debug_info() ! first after ping pong reports (meaningful) debugging
endif endif
if ( lastIncConverged ) then if ( lastIncConverged ) then
computationMode = ior(CPFEM_COLLECT,CPFEM_BACKUPJACOBIAN) ! collect and backup Jacobian after convergence
lastIncConverged = .false. ! reset flag lastIncConverged = .false. ! reset flag
computationMode = 4 ! collect and backup Jacobian after convergence
else else
computationMode = 3 ! plain collect computationMode = CPFEM_COLLECT ! plain collect
endif endif
do node = 1,FE_Nnodes(FE_geomtype(mesh_element(2,cp_en))) do node = 1,FE_Nnodes(FE_geomtype(mesh_element(2,cp_en)))
FEnodeID = mesh_FEasCP('node',mesh_element(4+node,cp_en)) FEnodeID = mesh_FEasCP('node',mesh_element(4+node,cp_en))
@ -389,27 +391,24 @@ subroutine hypela2(&
end subroutine hypela2 end subroutine hypela2
!******************************************************************** !--------------------------------------------------------------------------------------------------
! This routine sets user defined output variables for Marc !> @brief sets user defined output variables for Marc
!******************************************************************** !> @details select a variable contour plotting (user subroutine).
! !--------------------------------------------------------------------------------------------------
! select a variable contour plotting (user subroutine).
!
!********************************************************************
subroutine plotv(& subroutine plotv(&
v,& ! variable v,& !< variable
s,& ! stress array s,& !< stress array
sp,& ! stresses in preferred direction sp,& !< stresses in preferred direction
etot,& ! total strain (generalized) etot,& !< total strain (generalized)
eplas,& ! total plastic strain eplas,& !< total plastic strain
ecreep,& ! total creep strain ecreep,& !< total creep strain
t,& ! current temperature t,& !< current temperature
m,& ! element number m,& !< element number
nn,& ! integration point number nn,& !< integration point number
layer,& ! layer number layer,& !< layer number
ndi,& ! number of direct stress components ndi,& !< number of direct stress components
nshear,& ! number of shear stress components nshear,& !< number of shear stress components
jpltcd & ! user variable index jpltcd & !< user variable index
) )
use prec, only: pReal,pInt use prec, only: pReal,pInt
use mesh, only: mesh_FEasCP use mesh, only: mesh_FEasCP
@ -421,7 +420,7 @@ subroutine plotv(&
real(pReal) v, t(*) real(pReal) v, t(*)
integer(pInt) m, nn, layer, ndi, nshear, jpltcd integer(pInt) m, nn, layer, ndi, nshear, jpltcd
if (jpltcd > materialpoint_sizeResults) call IO_error(700_pInt,jpltcd) ! complain about out of bounds error if (jpltcd > materialpoint_sizeResults) call IO_error(700_pInt,jpltcd) ! complain about out of bounds error
v = materialpoint_results(jpltcd,nn,mesh_FEasCP('elem', m)) v = materialpoint_results(jpltcd,nn,mesh_FEasCP('elem', m))

21
code/DAMASK_spectral_utilities.f90
View File

@ -691,7 +691,12 @@ subroutine utilities_constitutiveResponse(F_lastInc,F,temperature,timeinc,&
wgt, & wgt, &
mesh_NcpElems mesh_NcpElems
use CPFEM, only: & use CPFEM, only: &
CPFEM_general CPFEM_general, &
CPFEM_COLLECT, &
CPFEM_CALCRESULTS, &
CPFEM_AGERESULTS, &
CPFEM_BACKUPJACOBIAN, &
CPFEM_RESTOREJACOBIAN
use homogenization, only: & use homogenization, only: &
materialpoint_F0, & materialpoint_F0, &
materialpoint_F, & materialpoint_F, &
@ -720,16 +725,16 @@ subroutine utilities_constitutiveResponse(F_lastInc,F,temperature,timeinc,&
real(pReal), dimension(6,6) :: dsde !< d sigma / d Epsilon real(pReal), dimension(6,6) :: dsde !< d sigma / d Epsilon
write(6,'(/,a)') ' ... evaluating constitutive response ......................................' write(6,'(/,a)') ' ... evaluating constitutive response ......................................'
calcMode = CPFEM_CALCRESULTS
collectMode = CPFEM_COLLECT
if (forwardData) then ! aging results if (forwardData) then ! aging results
calcMode = 1_pInt calcMode = ior(calcMode, CPFEM_AGERESULTS)
collectMode = 4_pInt collectMode = ior(collectMode, CPFEM_BACKUPJACOBIAN)
else ! normal calculation
calcMode = 2_pInt
collectMode = 3_pInt
endif endif
if (cutBack) then ! restore saved variables if (cutBack) then ! restore saved variables
calcMode = 2_pInt collectMode = ior(collectMode , CPFEM_RESTOREJACOBIAN)
collectMode = 5_pInt collectMode = iand(collectMode, not(CPFEM_BACKUPJACOBIAN))
calcMode = iand(calcMode, not(CPFEM_AGERESULTS))
endif endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! calculate bounds of det(F) and report ! calculate bounds of det(F) and report

4
code/IO.f90
View File

@ -1515,9 +1515,9 @@ subroutine IO_error(error_ID,e,i,g,ext_msg)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! user errors ! user errors
case (600_pInt) case (600_pInt)
msg = 'Non-local plasticity and non-CP elements in model' msg = 'Cannot combine Non-local plasticity and non-DAMASK elements'
case (601_pInt) case (601_pInt)
msg = 'OpenMP threads > 1 and using non-CP elements' msg = 'Cannot combine OpenMP threading and non-DAMASK elements'
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! DAMASK_marc errors ! DAMASK_marc errors

4
code/crystallite.f90
View File

@ -89,9 +89,9 @@ module crystallite
logical, dimension (:,:,:), allocatable, public :: & logical, dimension (:,:,:), allocatable, public :: &
crystallite_requested !< flag to request crystallite calculation crystallite_requested !< flag to request crystallite calculation
logical, dimension (:,:,:), allocatable, public, protected :: & logical, dimension (:,:,:), allocatable, public, protected :: &
crystallite_converged !< convergence flag crystallite_converged, & !< convergence flag
crystallite_localPlasticity !< indicates this grain to have purely local constitutive law
logical, dimension (:,:,:), allocatable, private :: & logical, dimension (:,:,:), allocatable, private :: &
crystallite_localPlasticity, & !< indicates this grain to have purely local constitutive law
crystallite_todo !< flag to indicate need for further computation crystallite_todo !< flag to indicate need for further computation
logical, dimension (:,:), allocatable, private :: & logical, dimension (:,:), allocatable, private :: &
crystallite_clearToWindForward, & crystallite_clearToWindForward, &