2021-04-06 15:25:30 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
|
|
|
!> @author Martin Diehl, KU Leuven
|
|
|
|
|
!> @brief Dummy homogenization scheme for 1 constituent per material point
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
2021-04-06 15:35:47 +05:30
|
|
|
submodule(homogenization:thermal) thermal_pass
|
2021-04-06 15:25:30 +05:30
|
|
|
|
|
|
|
|
contains
|
|
|
|
|
|
2021-04-11 19:02:17 +05:30
|
|
|
module subroutine pass_init()
|
2022-02-19 23:26:41 +05:30
|
|
|
|
2022-02-24 16:39:47 +05:30
|
|
|
integer :: &
|
|
|
|
|
ho
|
|
|
|
|
|
2021-11-15 23:05:44 +05:30
|
|
|
print'(/,1x,a)', '<<<+- homogenization:thermal:pass init -+>>>'
|
2021-04-06 15:25:30 +05:30
|
|
|
|
2022-02-24 16:39:47 +05:30
|
|
|
do ho = 1, size(thermal_type)
|
|
|
|
|
|
|
|
|
|
if (thermal_type(ho) /= THERMAL_PASS_ID) cycle
|
|
|
|
|
|
2022-02-27 21:28:40 +05:30
|
|
|
if (homogenization_Nconstituents(ho) /= 1) &
|
2022-02-24 16:39:47 +05:30
|
|
|
call IO_error(211,ext_msg='(pass) with N_constituents !=1')
|
|
|
|
|
|
|
|
|
|
end do
|
2022-02-19 23:26:41 +05:30
|
|
|
|
2021-04-06 15:25:30 +05:30
|
|
|
end subroutine pass_init
|
|
|
|
|
|
2021-04-06 15:35:47 +05:30
|
|
|
end submodule thermal_pass
|
