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

adjustment to new structure/names was missing 

reason: test missing/not good
This commit is contained in:
Martin Diehl 2021-05-06 08:47:30 +02:00
parent c8cdd7e622
commit 1eb1e54f78
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/phase_mechanical_eigen_thermalexpansion.f90
View File

@ -33,14 +33,16 @@ module function thermalexpansion_init(kinematics_length) result(myKinematics)
class(tNode), pointer :: &
phases, &
phase, &
mech, &
kinematics, &
kinematic_type
print'(/,a)', ' <<<+- phase:mechanical:eigen:thermalexpansion init -+>>>'
myKinematics = kinematics_active('thermal_expansion',kinematics_length)
myKinematics = kinematics_active('thermalexpansion',kinematics_length)
print*, myKinematics
Ninstances = count(myKinematics)
print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
print'(a,i2)', ' # phases: ',Ninstances; flush(IO_STDOUT)
if(Ninstances == 0) return
phases => config_material%get('phase')
@ -51,7 +53,8 @@ module function thermalexpansion_init(kinematics_length) result(myKinematics)
if(any(myKinematics(:,p))) kinematics_thermal_expansion_instance(p) = count(myKinematics(:,1:p))
phase => phases%get(p)
if(count(myKinematics(:,p)) == 0) cycle
kinematics => phase%get('kinematics')
mech => phase%get('mechanical')
kinematics => mech%get('eigen')
do k = 1, kinematics%length
if(myKinematics(k,p)) then
associate(prm => param(kinematics_thermal_expansion_instance(p)))