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

extend to multiple homogenization scheme

This commit is contained in:
Martin Diehl 2022-02-27 16:58:40 +01:00
parent 2bdf0d11cb
commit c8e70ada62
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/homogenization_damage_pass.f90
View File

@ -17,8 +17,8 @@ module subroutine pass_init()
if (.not. damage_active(ho)) cycle if (.not. damage_active(ho)) cycle
if (homogenization_Nconstituents(1) /= 1) & !ToDo: needs extension to multiple homogenizations if (homogenization_Nconstituents(ho) /= 1) &
call IO_error(211,ext_msg='(pass) with N_constituents !=1') call IO_error(211,ext_msg='(pass) with N_constituents !=1')
end do end do
end subroutine pass_init end subroutine pass_init

2
src/homogenization_thermal_pass.f90
View File

@ -17,7 +17,7 @@ module subroutine pass_init()
if (thermal_type(ho) /= THERMAL_PASS_ID) cycle if (thermal_type(ho) /= THERMAL_PASS_ID) cycle
if (homogenization_Nconstituents(1) /= 1) & !ToDo: needs extension to multiple homogenizations if (homogenization_Nconstituents(ho) /= 1) &
call IO_error(211,ext_msg='(pass) with N_constituents !=1') call IO_error(211,ext_msg='(pass) with N_constituents !=1')
end do end do