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

N_constituents is a general homogenization poperty

This commit is contained in:
Martin Diehl 2020-10-06 23:25:46 +02:00
parent 8d4adebea2
commit 28380c0985
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PRIVATE

@ -1 +1 @@
Subproject commit 64e62f805b5ad784e3397ee5f735aaeb3cc134c2
Subproject commit ae5882a2ffd932807d7589bc375ebff01836495f

2
src/homogenization_mech_isostrain.f90
View File

@ -51,7 +51,7 @@ module subroutine mech_isostrain_init
homogMech => homog%get('mech')
associate(prm => param(homogenization_typeInstance(h)))
prm%N_constituents = homogMech%get_asInt('N_constituents')
prm%N_constituents = homog%get_asInt('N_constituents')
select case(homogMech%get_asString('mapping',defaultVal = 'sum'))
case ('sum')
prm%mapping = parallel_ID

4
src/material.f90
View File

@ -262,10 +262,10 @@ subroutine material_parseHomogenization
homogenization_Ngrains(h) = 1
case('isostrain')
homogenization_type(h) = HOMOGENIZATION_ISOSTRAIN_ID
homogenization_Ngrains(h) = homogMech%get_asInt('N_constituents')
homogenization_Ngrains(h) = homog%get_asInt('N_constituents')
case('RGC')
homogenization_type(h) = HOMOGENIZATION_RGC_ID
homogenization_Ngrains(h) = homogMech%get_asInt('N_constituents')
homogenization_Ngrains(h) = homog%get_asInt('N_constituents')
case default
call IO_error(500,ext_msg=homogMech%get_asString('type'))
end select