generic and extendable multiphysics notation
This commit is contained in:
parent
a1804c6c83
commit
8c06e7a4ff
2
PRIVATE
2
PRIVATE
|
@ -1 +1 @@
|
||||||
Subproject commit f76f92caa726a625b052c998325e0595c5bc5b22
|
Subproject commit 127a96032d491b26cee29c81a3183e804afa4dbd
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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, &
|
||||||
|
@ -57,25 +56,26 @@ module function thermalexpansion_init(kinematics_length) result(myKinematics)
|
||||||
do k = 1, kinematics%length
|
do k = 1, kinematics%length
|
||||||
if(myKinematics(k,p)) then
|
if(myKinematics(k,p)) then
|
||||||
associate(prm => param(kinematics_thermal_expansion_instance(p)))
|
associate(prm => param(kinematics_thermal_expansion_instance(p)))
|
||||||
kinematic_type => kinematics%get(k)
|
kinematic_type => kinematics%get(k)
|
||||||
|
|
||||||
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')
|
||||||
do i=1, size(prm%A,3)
|
prm%A(3,3,2) = kinematic_type%get_asFloat('A_33,T',defaultVal=0.0_pReal)
|
||||||
prm%A(1:3,1:3,i) = lattice_applyLatticeSymmetry33(prm%A(1:3,1:3,i),&
|
prm%A(3,3,3) = kinematic_type%get_asFloat('A_33,T^2',defaultVal=0.0_pReal)
|
||||||
phase%get_asString('lattice'))
|
endif
|
||||||
enddo
|
do i=1, size(prm%A,3)
|
||||||
|
prm%A(1:3,1:3,i) = lattice_applyLatticeSymmetry33(prm%A(1:3,1:3,i),phase_lattice(p))
|
||||||
|
enddo
|
||||||
end associate
|
end associate
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
|
||||||
end function thermalexpansion_init
|
end function thermalexpansion_init
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue