generic and extendable multiphysics notation

This commit is contained in:
Martin Diehl 2021-06-24 09:09:37 +02:00
parent a1804c6c83
commit 8c06e7a4ff
9 changed files with 24 additions and 21 deletions

@ -1 +1 @@
Subproject commit f76f92caa726a625b052c998325e0595c5bc5b22 Subproject commit 127a96032d491b26cee29c81a3183e804afa4dbd

View File

@ -1,5 +1,5 @@
type: thermalexpansion type: thermalexpansion
references: references:
- en.wikipedia.org/wiki/Thermal_expansion - en.wikipedia.org/wiki/Thermal_expansion
A_11: [23.1e-6] A_11: 23.1e-6
T_ref: 293.15 T_ref: 293.15

View File

@ -1,5 +1,5 @@
type: thermalexpansion type: thermalexpansion
references: references:
- en.wikipedia.org/wiki/Thermal_expansion - en.wikipedia.org/wiki/Thermal_expansion
A_11: [14e-6] A_11: 14e-6
T_ref: 293.15 T_ref: 293.15

View File

@ -1,5 +1,7 @@
type: thermalexpansion type: thermalexpansion
references: references:
- en.wikipedia.org/wiki/Thermal_expansion, fitted from image description - en.wikipedia.org/wiki/Thermal_expansion, fitted from image description
A_11: [12.70371e-6, 7.54e-9, -1.0e-11] A_11: 12.70371e-6
A_11,T: 7.54e-9
A_11,T^2: -1.0e-11
T_ref: 273.0 T_ref: 273.0

View File

@ -1,5 +1,5 @@
type: thermalexpansion type: thermalexpansion
references: references:
- en.wikipedia.org/wiki/Thermal_expansion - en.wikipedia.org/wiki/Thermal_expansion
A_11: [17e-6] A_11: 17e-6
T_ref: 293.15 T_ref: 293.15

View File

@ -1,5 +1,5 @@
type: thermalexpansion type: thermalexpansion
references: references:
- en.wikipedia.org/wiki/Thermal_expansion - en.wikipedia.org/wiki/Thermal_expansion
A_11: [11.8e-6] A_11: 11.8e-6
T_ref: 293.15 T_ref: 293.15

View File

@ -1,5 +1,5 @@
type: thermalexpansion type: thermalexpansion
references: references:
- en.wikipedia.org/wiki/Thermal_expansion - en.wikipedia.org/wiki/Thermal_expansion
A_11: [4.5e-6] A_11: 4.5e-6
T_ref: 293.15 T_ref: 293.15

View File

@ -1,5 +1,6 @@
type: thermalexpansion type: thermalexpansion
references: references:
- en.wikipedia.org/wiki/Thermal_expansion, fitted from image description - en.wikipedia.org/wiki/Thermal_expansion, fitted from image description
A_11: [11.365e-6, 5.0e-9] A_11: 11.365e-6
A_11,T: 5.0e-9
T_ref: 273.0 T_ref: 273.0

View File

@ -29,7 +29,6 @@ module function thermalexpansion_init(kinematics_length) result(myKinematics)
logical, dimension(:,:), allocatable :: myKinematics logical, dimension(:,:), allocatable :: myKinematics
integer :: Ninstances,p,i,k integer :: Ninstances,p,i,k
real(pReal), dimension(:), allocatable :: temp
class(tNode), pointer :: & class(tNode), pointer :: &
phases, & phases, &
phase, & phase, &
@ -61,21 +60,22 @@ module function thermalexpansion_init(kinematics_length) result(myKinematics)
prm%T_ref = kinematic_type%get_asFloat('T_ref', defaultVal=0.0_pReal) prm%T_ref = kinematic_type%get_asFloat('T_ref', defaultVal=0.0_pReal)
! read up to three parameters (constant, linear, quadratic with T) prm%A(1,1,1) = kinematic_type%get_asFloat('A_11')
temp = kinematic_type%get_as1dFloat('A_11') prm%A(1,1,2) = kinematic_type%get_asFloat('A_11,T',defaultVal=0.0_pReal)
prm%A(1,1,1:size(temp)) = temp prm%A(1,1,3) = kinematic_type%get_asFloat('A_11,T^2',defaultVal=0.0_pReal)
temp = kinematic_type%get_as1dFloat('A_33',defaultVal=[(0.0_pReal, i=1,size(temp))],requiredSize=size(temp)) if (any(phase_lattice(p) == ['hP','tI'])) then
prm%A(3,3,1:size(temp)) = temp prm%A(3,3,1) = kinematic_type%get_asFloat('A_33')
prm%A(3,3,2) = kinematic_type%get_asFloat('A_33,T',defaultVal=0.0_pReal)
prm%A(3,3,3) = kinematic_type%get_asFloat('A_33,T^2',defaultVal=0.0_pReal)
endif
do i=1, size(prm%A,3) do i=1, size(prm%A,3)
prm%A(1:3,1:3,i) = lattice_applyLatticeSymmetry33(prm%A(1:3,1:3,i),& prm%A(1:3,1:3,i) = lattice_applyLatticeSymmetry33(prm%A(1:3,1:3,i),phase_lattice(p))
phase%get_asString('lattice'))
enddo enddo
end associate end associate
endif endif
enddo enddo
enddo enddo
end function thermalexpansion_init end function thermalexpansion_init