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

preparation for introduction of plain mode and restructuring of calc modes for CPFEM_general

This commit is contained in:
Martin Diehl 2013-02-27 20:41:14 +00:00
parent efec42ebde
commit 59da88460e
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
code/IO.f90
View File

@ -1511,6 +1511,13 @@ subroutine IO_error(error_ID,e,i,g,ext_msg)
! homogenization errors ! homogenization errors
case (500_pInt) case (500_pInt)
msg = 'unknown homogenization specified' msg = 'unknown homogenization specified'
!--------------------------------------------------------------------------------------------------
! user errors
case (600_pInt)
msg = 'Non-local plasticity and non-CP elements in model'
case (601_pInt)
msg = 'OpenMP threads > 1 and using non-CP elements'
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! DAMASK_marc errors ! DAMASK_marc errors

7
code/mesh.f90
View File

@ -44,7 +44,8 @@ module mesh
mesh_maxNips, & !< max number of IPs in any CP element mesh_maxNips, & !< max number of IPs in any CP element
mesh_maxNipNeighbors, & !< max number of IP neighbors in any CP element mesh_maxNipNeighbors, & !< max number of IP neighbors in any CP element
mesh_maxNsharedElems, & !< max number of CP elements sharing a node mesh_maxNsharedElems, & !< max number of CP elements sharing a node
mesh_maxNsubNodes mesh_maxNsubNodes, &
mesh_Nelems !< total number of elements in mesh
integer(pInt), dimension(:,:), allocatable, public, protected :: & integer(pInt), dimension(:,:), allocatable, public, protected :: &
mesh_element, & !< FEid, type(internal representation), material, texture, node indices mesh_element, & !< FEid, type(internal representation), material, texture, node indices
@ -71,9 +72,7 @@ module mesh
mesh_ipAreaNormal !< area normal of interface to neighboring IP (initially!) mesh_ipAreaNormal !< area normal of interface to neighboring IP (initially!)
logical, dimension(3), public, protected :: mesh_periodicSurface !< flag indicating periodic outer surfaces (used for fluxes) logical, dimension(3), public, protected :: mesh_periodicSurface !< flag indicating periodic outer surfaces (used for fluxes)
integer(pInt), private :: &
mesh_Nelems !< total number of elements in mesh
#ifdef Marc #ifdef Marc
integer(pInt), private :: & integer(pInt), private :: &
hypoelasticTableStyle, & !< Table style (Marc only) hypoelasticTableStyle, & !< Table style (Marc only)

1
code/numerics.f90
View File

@ -83,7 +83,6 @@ module numerics
integer(pInt), protected, public :: & integer(pInt), protected, public :: &
DAMASK_NumThreadsInt = 0_pInt !< value stored in environment variable DAMASK_NUM_THREADS, set to zero if no OpenMP directive DAMASK_NumThreadsInt = 0_pInt !< value stored in environment variable DAMASK_NUM_THREADS, set to zero if no OpenMP directive
!* spectral parameters: !* spectral parameters:
#ifdef Spectral #ifdef Spectral
real(pReal), protected, public :: & real(pReal), protected, public :: &