corrected bug in curl calculation causing the output of transposed tensor (according to information stored in testing/9102/proof/Curl of Tensor - Physics Forums.pdf)
addCurl test is now done against analytical solution and working, added it to list of automated tests. small improvements on test.py
This commit is contained in:
Martin Diehl
parent
4ebc8d6834
commit
11ed7fab86
|
|
@ -189,7 +189,66 @@ real(pReal), dimension(4,36), parameter, private :: &
|
|||
mesh_index
|
||||
#endif
|
||||
|
||||
private :: math_partition
|
||||
! private :: math_partition, &
|
||||
! math_delta, &
|
||||
! math_qRnd, &
|
||||
! math_qMul, &
|
||||
! math_qDot, &
|
||||
! math_qNorm, &
|
||||
! math_qInv, &
|
||||
! prime, &
|
||||
! get_seed, &
|
||||
! halton, &
|
||||
! halton_memory, &
|
||||
! halton_ndim_set, &
|
||||
! halton_seed_set, &
|
||||
! i_to_halton
|
||||
|
||||
|
||||
! math_equivStrain33_field
|
||||
! math_spectralDecompositionSym33
|
||||
! math_pDecomposition
|
||||
! math_spectral1
|
||||
! math_hi
|
||||
|
||||
|
||||
! math_det33
|
||||
! math_norm33
|
||||
! math_norm3
|
||||
! math_Plain33to9
|
||||
! math_Plain9to33
|
||||
! math_Mandel33to6
|
||||
! math_Mandel6to33
|
||||
! math_Plain3333to99
|
||||
! math_Plain99to3333
|
||||
! math_Mandel66toPlain66
|
||||
! math_Plain66toMandel66
|
||||
! math_Mandel3333to66
|
||||
! math_Mandel66to3333
|
||||
! math_Voigt66to3333
|
||||
! math_RtoEuler
|
||||
! math_RtoQuaternion
|
||||
! math_EulerToR
|
||||
! math_EulerToQuaternion
|
||||
! math_AxisAngleToR
|
||||
! math_AxisAngleToQuaternion
|
||||
! math_QuaternionToR
|
||||
! math_QuaternionToEuler
|
||||
! math_QuaternionToAxisAngle
|
||||
! math_QuaternionToRodrig
|
||||
! math_EulerMisorientation
|
||||
! math_QuaternionInSST
|
||||
! math_QuaternionDisorientation
|
||||
! math_sampleRandomOri
|
||||
! math_sampleGaussOri
|
||||
! math_sampleFiberOri
|
||||
! math_symmetricEulers
|
||||
! math_sampleGaussVar
|
||||
! math_eigenvalues33
|
||||
! math_volTetrahedron
|
||||
! math_rotate_forward33
|
||||
! math_rotate_backward33
|
||||
! math_rotate_forward3333
|
||||
|
||||
contains
|
||||
|
||||
|
|
@ -2775,12 +2834,9 @@ pure function math_rotate_forward3333(tensor,rot_tensor)
|
|||
end function math_rotate_forward3333
|
||||
|
||||
|
||||
|
||||
|
||||
#ifdef Spectral
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief calculates curl field using differentation in Fourier space
|
||||
! use vec_tens to decide if tensor (3) or vector (1)
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
function math_curlFFT(geomdim,field)
|
||||
|
||||
|
|
@ -2813,9 +2869,12 @@ function math_curlFFT(geomdim,field)
|
|||
|
||||
res = [size(field,1),size(field,2),size(field,3)]
|
||||
vec_tens = size(field,4)
|
||||
if (vec_tens /= 1_pInt .and. vec_tens /= 3_pInt) call IO_error(0_pInt, &
|
||||
ext_msg = 'Curl: invalid data dimension')
|
||||
|
||||
if (iand(debug_level(debug_math),debug_levelBasic) /= 0_pInt) then
|
||||
print*, 'Calculating curl of vector/tensor field'
|
||||
if (vec_tens == 1_pInt) print*, 'Calculating curl of vector field'
|
||||
if (vec_tens == 3_pInt) print*, 'Calculating curl of tensor field'
|
||||
print '(a,3(e12.5))', ' Dimension: ', geomdim
|
||||
print '(a,3(i5))', ' Resolution:', res
|
||||
endif
|
||||
|
|
@ -2884,9 +2943,15 @@ function math_curlFFT(geomdim,field)
|
|||
enddo; enddo; enddo
|
||||
|
||||
call fftw_execute_dft_c2r(fftw_back, curl_fourier, curl_real)
|
||||
if (vec_tens == 1_pInt) then
|
||||
do k = 1_pInt, res(3); do j = 1_pInt, res(2); do i = 1_pInt, res(1)
|
||||
math_curlFFT(i,j,k,1:vec_tens,1:3) = curl_real(i,j,k,1:vec_tens,1:3) ! ensure that data is aligned properly (fftw_alloc)
|
||||
math_curlFFT(i,j,k,1:1,1:3) = curl_real(i,j,k,1:1,1:3) ! ensure that data is aligned properly (fftw_alloc)
|
||||
enddo; enddo; enddo
|
||||
else
|
||||
do k = 1_pInt, res(3); do j = 1_pInt, res(2); do i = 1_pInt, res(1)
|
||||
math_curlFFT(i,j,k,1:3,1:3) = math_transpose33(curl_real(i,j,k,1:3,1:3)) ! ensure that data is aligned properly (fftw_alloc)
|
||||
enddo; enddo; enddo
|
||||
endif
|
||||
|
||||
math_curlFFT = math_curlFFT * wgt
|
||||
call fftw_destroy_plan(fftw_forth)
|
||||
|
|
@ -2898,7 +2963,6 @@ end function math_curlFFT
|
|||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief calculates divergence field using integration in Fourier space
|
||||
! use vec_tens to decide if tensor (3) or vector (1)
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
function math_divergenceFFT(geomdim,field)
|
||||
|
||||
|
|
@ -2909,7 +2973,6 @@ function math_divergenceFFT(geomdim,field)
|
|||
debug_levelBasic
|
||||
|
||||
implicit none
|
||||
! input variables
|
||||
|
||||
real(pReal), intent(in), dimension(3) :: geomdim
|
||||
real(pReal), intent(in), dimension(:,:,:,:,:) :: field
|
||||
|
|
@ -2932,9 +2995,12 @@ function math_divergenceFFT(geomdim,field)
|
|||
|
||||
res = [size(field,1),size(field,2),size(field,3)]
|
||||
vec_tens = size(field,4)
|
||||
if (vec_tens /= 1_pInt .and. vec_tens /= 3_pInt) call IO_error(0_pInt, &
|
||||
ext_msg = 'Divergence: invalid data dimension')
|
||||
|
||||
if (iand(debug_level(debug_math),debug_levelBasic) /= 0_pInt) then
|
||||
print '(a)', 'Calculating divergence of tensor/vector field using FFT'
|
||||
if (vec_tens == 1_pInt) print*, 'Calculating divergence of vector field'
|
||||
if (vec_tens == 3_pInt) print*, 'Calculating divergence of tensor field'
|
||||
print '(a,3(e12.5))', ' Dimension: ', geomdim
|
||||
print '(a,3(i5))', ' Resolution:', res
|
||||
endif
|
||||
|
|
|
|||
|
|
@ -184,8 +184,8 @@ class Test():
|
|||
print ' ********\n * maximum relative error ',max_err,' for ', refArrayNonZero[max_loc],' and ',curArray[max_loc],'\n ********'
|
||||
return max_err
|
||||
else:
|
||||
print ' ********\n * mismatch in array size to compare \n ********'
|
||||
return sys.float_info.max
|
||||
raise Exception('mismatch in array size to compare')
|
||||
|
||||
|
||||
def compare_ArrayRefCur(self,ref,cur=''):
|
||||
|
||||
|
|
@ -220,8 +220,8 @@ class Test():
|
|||
if headings0[i]['shape'] != headings1[i]['shape']:
|
||||
raise Exception('shape mismatch when comparing ', headings0[i]['label'], ' with ', headings1[i]['label'])
|
||||
shape[i] = headings0[i]['shape']
|
||||
for j in xrange(numpy.shape(headings0[i]['shape'])[0]):
|
||||
length[i] = headings0[i]['shape'][j]
|
||||
for j in xrange(numpy.shape(shape[i])[0]):
|
||||
length[i] *= shape[i][j]
|
||||
else:
|
||||
raise Exception('trying to compare ', len(headings0), ' with ', len(headings1), ' data sets')
|
||||
|
||||
|
|
@ -253,23 +253,28 @@ class Test():
|
|||
column[0][i]+length[i]]),'d')
|
||||
maxNorm[i] = max(maxNorm[i],numpy.linalg.norm(numpy.reshape(myData,shape[i])))
|
||||
data[i]=numpy.append(data[i],myData)
|
||||
|
||||
for i in xrange(dataLength):
|
||||
data[i] = numpy.reshape(data[i],[line0,length[i]])
|
||||
if maxNorm[i] == 0.0:
|
||||
print 'Maximum norm of',headings0[i]['label'],'in 1. table is 0, using absolute tolerance'
|
||||
maxNorm[i] = 1.0
|
||||
|
||||
line1 = 0
|
||||
while table1.data_read(): # read next data line of ASCII table
|
||||
for i in xrange(dataLength):
|
||||
myData = numpy.array(map(float,table1.data[column[1][i]:\
|
||||
column[1][i]+length[i]]),'d')
|
||||
|
||||
maxError[i] = max(maxError[i],numpy.linalg.norm(numpy.reshape(myData-data[i][line1,:],shape[i])))
|
||||
line1 +=1
|
||||
|
||||
if (line0 != line1): raise Exception('found ', line0, ' lines in 1. table and ', line1, ' in 2. table')
|
||||
|
||||
print ' ********'
|
||||
for i in xrange(dataLength):
|
||||
maxError[i] = maxError[i]/maxNorm[i]
|
||||
|
||||
print ' * maximum relative error ',maxError[i],' for ', headings0[i]['label'],' and ',headings1[i]['label']
|
||||
print ' ********'
|
||||
return maxError
|
||||
|
||||
def report_Success(self,culprit):
|
||||
|
|
|
|||
Loading…
Reference in New Issue