more helpful error message

This commit is contained in:
Martin Diehl 2022-02-23 05:33:30 +01:00
parent 9ff31d4f2b
commit 94c6542122
3 changed files with 7 additions and 4 deletions

View File

@ -7,9 +7,12 @@ submodule(homogenization:damage) damage_pass
contains contains
module subroutine pass_init() module subroutine pass_init()
print'(/,1x,a)', '<<<+- homogenization:damage:pass init -+>>>' print'(/,1x,a)', '<<<+- homogenization:damage:pass init -+>>>'
if (homogenization_Nconstituents(1) /= 1) & !ToDo: needs extension to multiple homogenizations
call IO_error(211,ext_msg='(pass) with N_constituents !=1')
end subroutine pass_init end subroutine pass_init
end submodule damage_pass end submodule damage_pass

View File

@ -11,7 +11,7 @@ contains
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief allocates all necessary fields, reads information from material configuration file !> @brief allocates all necessary fields, reads information from material configuration file
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module subroutine pass_init module subroutine pass_init()
integer :: & integer :: &
ho, & ho, &
@ -26,7 +26,7 @@ module subroutine pass_init
if (homogenization_type(ho) /= HOMOGENIZATION_NONE_ID) cycle if (homogenization_type(ho) /= HOMOGENIZATION_NONE_ID) cycle
if (homogenization_Nconstituents(ho) /= 1) & if (homogenization_Nconstituents(ho) /= 1) &
call IO_error(211,ext_msg='N_constituents (pass)') call IO_error(211,ext_msg='(pass) with N_constituents !=1')
Nmembers = count(material_homogenizationID == ho) Nmembers = count(material_homogenizationID == ho)
homogState(ho)%sizeState = 0 homogState(ho)%sizeState = 0

View File

@ -10,7 +10,7 @@ module subroutine pass_init()
print'(/,1x,a)', '<<<+- homogenization:thermal:pass init -+>>>' print'(/,1x,a)', '<<<+- homogenization:thermal:pass init -+>>>'
if (homogenization_Nconstituents(1) /= 1) & if (homogenization_Nconstituents(1) /= 1) & !ToDo: needs extension to multiple homogenizations
call IO_error(211,ext_msg='(pass) with N_constituents !=1') call IO_error(211,ext_msg='(pass) with N_constituents !=1')
end subroutine pass_init end subroutine pass_init