preparing removal of public functions

This commit is contained in:
Martin Diehl 2020-02-29 12:21:03 +01:00
parent 13e2b0725a
commit ca76014e45
1 changed files with 10 additions and 9 deletions

View File

@ -20,8 +20,8 @@ module kinematics_thermal_expansion
type :: tParameters type :: tParameters
real(pReal) :: & real(pReal) :: &
T_ref T_ref
real(pReal), allocatable, dimension(:,:,:) :: & real(pReal), dimension(3,3,3) :: &
expansion expansion = 0.0_pReal
end type tParameters end type tParameters
type(tParameters), dimension(:), allocatable :: param type(tParameters), dimension(:), allocatable :: param
@ -61,14 +61,15 @@ subroutine kinematics_thermal_expansion_init
config => config_phase(p)) config => config_phase(p))
prm%T_ref = config%getFloat('reference_temperature', defaultVal=0.0_pReal) prm%T_ref = config%getFloat('reference_temperature', defaultVal=0.0_pReal)
! read up to three parameters (constant, linear, quadratic with T) ! read up to three parameters (constant, linear, quadratic with T)
temp = config%getFloats('thermal_expansion11') temp = config%getFloats('thermal_expansion11')
!lattice_thermalExpansion33(1,1,1:size(temp),p) = temp prm%expansion(1,1,1:size(temp)) = temp
temp = config%getFloats('thermal_expansion22', & temp = config%getFloats('thermal_expansion22',defaultVal=[(0.0_pReal, i=1,size(temp))],requiredSize=size(temp))
defaultVal=[(0.0_pReal, i=1,size(temp))],requiredSize=size(temp)) prm%expansion(2,2,1:size(temp)) = temp
!lattice_thermalExpansion33(2,2,1:size(temp),p) = temp temp = config%getFloats('thermal_expansion33',defaultVal=[(0.0_pReal, i=1,size(temp))],requiredSize=size(temp))
temp = config%getFloats('thermal_expansion33', & prm%expansion(3,3,1:size(temp)) = temp
defaultVal=[(0.0_pReal, i=1,size(temp))],requiredSize=size(temp))
end associate end associate
enddo enddo