223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

added filter option to the spectral solver to mitigate spurious oscillations due to gibb's phenomenon. activate by setting myfilter in config file appropriately (currently only 'none' and 'cosine' options coded). more cleaning up of AL code

This commit is contained in:
Pratheek Shanthraj 2012-08-07 17:23:13 +00:00
parent 925915e30d
commit d0933dad7b
4 changed files with 83 additions and 120 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

154
code/DAMASK_spectral_SolverAL.f90
View File

@ -49,13 +49,7 @@ module DAMASK_spectral_SolverAL
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! PETSc data ! PETSc data
SNES, private :: snes SNES, private :: snes
DM, private :: da Vec, private :: solution_vec
Vec, private :: solution_vec,residual_vec
PetscMPIInt, private :: rank
integer(pInt), private :: iter
PetscInt, private :: xs,xm,gxs,gxm
PetscInt, private :: ys,ym,gys,gym
PetscInt, private :: zs,zm,gzs,gzm
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! common pointwise data ! common pointwise data
@ -115,9 +109,13 @@ module DAMASK_spectral_SolverAL
math_invSym3333 math_invSym3333
implicit none implicit none
integer(pInt) :: i,j,k integer(pInt) :: i,j,k
PetscErrorCode ierr_psc
PetscObject dummy PetscErrorCode :: ierr_psc
PetscObject :: dummy
PetscMPIInt :: rank
DM :: da
call Utilities_init() call Utilities_init()
@ -205,22 +203,13 @@ module DAMASK_spectral_SolverAL
DMDA_STENCIL_BOX,res(1),res(2),res(3),PETSC_DECIDE,PETSC_DECIDE,PETSC_DECIDE, & DMDA_STENCIL_BOX,res(1),res(2),res(3),PETSC_DECIDE,PETSC_DECIDE,PETSC_DECIDE, &
18,1,PETSC_NULL_INTEGER,PETSC_NULL_INTEGER,PETSC_NULL_INTEGER,da,ierr_psc) 18,1,PETSC_NULL_INTEGER,PETSC_NULL_INTEGER,PETSC_NULL_INTEGER,da,ierr_psc)
call DMCreateGlobalVector(da,solution_vec,ierr_psc) call DMCreateGlobalVector(da,solution_vec,ierr_psc)
call VecDuplicate(solution_vec,residual_vec,ierr_psc) call DMDASetLocalFunction(da,AL_formResidual,ierr_psc)
call DMDASetLocalFunction(da,AL_FormResidual,ierr_psc)
call SNESSetDM(snes,da,ierr_psc) call SNESSetDM(snes,da,ierr_psc)
call SNESSetConvergenceTest(snes,AL_converged,dummy,PETSC_NULL_FUNCTION,ierr_psc) call SNESSetConvergenceTest(snes,AL_converged,dummy,PETSC_NULL_FUNCTION,ierr_psc)
call PetscOptionsInsertString(petsc_options,ierr_psc) call PetscOptionsInsertString(petsc_options,ierr_psc)
call SNESSetFromOptions(snes,ierr_psc) call SNESSetFromOptions(snes,ierr_psc)
call DMDAGetCorners(da,xs,ys,zs,xm,ym,zm,ierr_psc) call DMDestroy(da,ierr_psc)
call DMDAGetGhostCorners(da,gxs,gys,gzs,gxm,gym,gzm,ierr_psc)
xs = xs+1; gxs = gxs+1
xm = xm-1; gxm = gxm-1
ys = ys+1; gys = gys+1
ym = ym-1; gym = gym-1
zs = zs+1; gzs = gzs+1
zm = zm-1; gzm = gzm-1
end subroutine AL_init end subroutine AL_init
@ -262,6 +251,7 @@ module DAMASK_spectral_SolverAL
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! loop variables, convergence etc. ! loop variables, convergence etc.
real(pReal), dimension(3,3) :: temp33_Real real(pReal), dimension(3,3) :: temp33_Real
integer(pInt) :: ctr, i, j, k
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! !
@ -306,15 +296,19 @@ module DAMASK_spectral_SolverAL
S = Utilities_maskedCompliance(rotation_BC,P_BC%maskLogical,C) S = Utilities_maskedCompliance(rotation_BC,P_BC%maskLogical,C)
if (update_gamma) call Utilities_updateGamma(C) if (update_gamma) call Utilities_updateGamma(C)
iter = 0_pInt
ForwardData = .True. ForwardData = .True.
mask_stress = P_BC%maskFloat mask_stress = P_BC%maskFloat
params%P_BC = P_BC%values params%P_BC = P_BC%values
params%rotation_BC = rotation_BC params%rotation_BC = rotation_BC
params%timeinc = timeinc params%timeinc = timeinc
ctr = 1_pInt
call VecGetArrayF90(solution_vec,xx_psc,ierr_psc) call VecGetArrayF90(solution_vec,xx_psc,ierr_psc)
call AL_InitialGuess(xx_psc) do k = 1_pInt, res(3); do j = 1_pInt, res(2); do i = 1_pInt, res(1)
xx_psc(ctr:ctr+8_pInt) = reshape(F(i,j,k,1:3,1:3),[9])
xx_psc(ctr+9_pInt:ctr+17_pInt) = reshape(F_lambda(i,j,k,1:3,1:3),[9])
ctr = ctr + 18_pInt
enddo; enddo; enddo
call VecRestoreArrayF90(solution_vec,xx_psc,ierr_psc) call VecRestoreArrayF90(solution_vec,xx_psc,ierr_psc)
call SNESSolve(snes,PETSC_NULL_OBJECT,solution_vec,ierr_psc) call SNESSolve(snes,PETSC_NULL_OBJECT,solution_vec,ierr_psc)
call SNESGetConvergedReason(snes,reason,ierr_psc) call SNESGetConvergedReason(snes,reason,ierr_psc)
@ -322,50 +316,10 @@ module DAMASK_spectral_SolverAL
end function AL_solution end function AL_solution
!--------------------------------------------------------------------------------------------------
!> @brief fills solution vector with forwarded fields
!--------------------------------------------------------------------------------------------------
subroutine AL_InitialGuess(xx_psc)
implicit none
! Input/output variables:
PetscScalar xx_psc(0:17,gxs:(gxs+gxm),gys:(gys+gym),gxs:(gzs+gzm))
integer(pInt) :: i, j, k
! Compute function over the locally owned part of the grid
do k=gzs,gzs+gzm; do j=gys,gys+gym; do i=gxs,gxs+gxm
xx_psc(0,i,j,k) = F(i,j,k,1,1)
xx_psc(1,i,j,k) = F(i,j,k,1,2)
xx_psc(2,i,j,k) = F(i,j,k,1,3)
xx_psc(3,i,j,k) = F(i,j,k,2,1)
xx_psc(4,i,j,k) = F(i,j,k,2,2)
xx_psc(5,i,j,k) = F(i,j,k,2,3)
xx_psc(6,i,j,k) = F(i,j,k,3,1)
xx_psc(7,i,j,k) = F(i,j,k,3,2)
xx_psc(8,i,j,k) = F(i,j,k,3,3)
xx_psc(9,i,j,k) = F_lambda(i,j,k,1,1)
xx_psc(10,i,j,k) = F_lambda(i,j,k,1,2)
xx_psc(11,i,j,k) = F_lambda(i,j,k,1,3)
xx_psc(12,i,j,k) = F_lambda(i,j,k,2,1)
xx_psc(13,i,j,k) = F_lambda(i,j,k,2,2)
xx_psc(14,i,j,k) = F_lambda(i,j,k,2,3)
xx_psc(15,i,j,k) = F_lambda(i,j,k,3,1)
xx_psc(16,i,j,k) = F_lambda(i,j,k,3,2)
xx_psc(17,i,j,k) = F_lambda(i,j,k,3,3)
enddo; enddo; enddo
return
end subroutine AL_InitialGuess
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief forms the AL residual vector !> @brief forms the AL residual vector
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine AL_FormResidual(info,x_scal,f_scal,dummy,ierr_psc) subroutine AL_formResidual(in,x_scal,f_scal,dummy,ierr_psc)
use numerics, only: & use numerics, only: &
itmax, & itmax, &
@ -389,41 +343,29 @@ module DAMASK_spectral_SolverAL
integer(pInt) :: i,j,k integer(pInt) :: i,j,k
real(pReal), dimension (3,3) :: temp33_real real(pReal), dimension (3,3) :: temp33_real
DMDALocalInfo info(DMDA_LOCAL_INFO_SIZE) DMDALocalInfo :: in(DMDA_LOCAL_INFO_SIZE)
PetscScalar x_scal(0:17,gxs:gxs+gxm,gys:gys+gym,gzs:gzs+gzm) PetscScalar :: x_scal(in(DMDA_LOCAL_INFO_DOF),XG_RANGE,YG_RANGE,ZG_RANGE)
PetscScalar f_scal(0:17,xs:xs+xm,ys:ys+ym,zs:zs+zm) PetscScalar :: f_scal(in(DMDA_LOCAL_INFO_DOF),X_RANGE,Y_RANGE,Z_RANGE)
PetscObject dummy PetscInt :: iter, nfuncs
PetscErrorCode ierr_psc PetscObject :: dummy
PetscErrorCode :: ierr_psc
iter = iter + 1_pInt call SNESGetNumberFunctionEvals(snes,nfuncs,ierr_psc)
call SNESGetIterationNumber(snes,iter,ierr_psc)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! report begin of new iteration ! report begin of new iteration
write(6,'(a)') '' write(6,'(a)') ''
write(6,'(a)') '==================================================================' write(6,'(a)') '=================================================================='
write(6,'(3(a,i6.6))') ' @ Iter. ',itmin,' < ',iter,' < ',itmax write(6,'(4(a,i6.6))') ' @ Iter. ',itmin,' < ',iter,' < ',itmax, ' | # Func. calls = ',nfuncs
write(6,'(a,/,3(3(f12.7,1x)/))',advance='no') 'deformation gradient aim =',& write(6,'(a,/,3(3(f12.7,1x)/))',advance='no') 'deformation gradient aim =',&
math_transpose33(F_aim) math_transpose33(F_aim)
do k=gzs,gzs+gzm; do j=gys,gys+gym; do i=gxs,gxs+gxm do k=in(DMDA_LOCAL_INFO_ZS)+1,in(DMDA_LOCAL_INFO_ZS)+in(DMDA_LOCAL_INFO_ZM)
F(i,j,k,1,1) = x_scal(0,i,j,k) do j=in(DMDA_LOCAL_INFO_YS)+1,in(DMDA_LOCAL_INFO_YS)+in(DMDA_LOCAL_INFO_YM)
F(i,j,k,1,2) = x_scal(1,i,j,k) do i=in(DMDA_LOCAL_INFO_XS)+1,in(DMDA_LOCAL_INFO_XS)+in(DMDA_LOCAL_INFO_XM)
F(i,j,k,1,3) = x_scal(2,i,j,k) F(i,j,k,1:3,1:3) = reshape(x_scal(1:9,i,j,k),[3,3])
F(i,j,k,2,1) = x_scal(3,i,j,k) F_lambda(i,j,k,1:3,1:3) = reshape(x_scal(10:18,i,j,k),[3,3])
F(i,j,k,2,2) = x_scal(4,i,j,k)
F(i,j,k,2,3) = x_scal(5,i,j,k)
F(i,j,k,3,1) = x_scal(6,i,j,k)
F(i,j,k,3,2) = x_scal(7,i,j,k)
F(i,j,k,3,3) = x_scal(8,i,j,k)
F_lambda(i,j,k,1,1) = x_scal(9,i,j,k)
F_lambda(i,j,k,1,2) = x_scal(10,i,j,k)
F_lambda(i,j,k,1,3) = x_scal(11,i,j,k)
F_lambda(i,j,k,2,1) = x_scal(12,i,j,k)
F_lambda(i,j,k,2,2) = x_scal(13,i,j,k)
F_lambda(i,j,k,2,3) = x_scal(14,i,j,k)
F_lambda(i,j,k,3,1) = x_scal(15,i,j,k)
F_lambda(i,j,k,3,2) = x_scal(16,i,j,k)
F_lambda(i,j,k,3,3) = x_scal(17,i,j,k)
enddo; enddo; enddo enddo; enddo; enddo
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -434,7 +376,7 @@ module DAMASK_spectral_SolverAL
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! stress BC handling ! stress BC handling
F_aim = F_aim - math_mul3333xx33(S, ((P_av - params%P_BC))) !S = 0.0 for no bc F_aim = F_aim - math_mul3333xx33(S, ((P_av - params%P_BC))) ! S = 0.0 for no bc
err_stress = maxval(mask_stress * (P_av - params%P_BC)) ! mask = 0.0 for no bc err_stress = maxval(mask_stress * (P_av - params%P_BC)) ! mask = 0.0 for no bc
@ -462,31 +404,17 @@ module DAMASK_spectral_SolverAL
err_f = wgt*sqrt(err_f) err_f = wgt*sqrt(err_f)
err_p = wgt*sqrt(err_p) err_p = wgt*sqrt(err_p)
do k=gzs,gzs+gzm; do j=gys,gys+gym; do i=gxs,gxs+gxm do k=in(DMDA_LOCAL_INFO_ZS)+1,in(DMDA_LOCAL_INFO_ZS)+in(DMDA_LOCAL_INFO_ZM)
do j=in(DMDA_LOCAL_INFO_YS)+1,in(DMDA_LOCAL_INFO_YS)+in(DMDA_LOCAL_INFO_YM)
do i=in(DMDA_LOCAL_INFO_XS)+1,in(DMDA_LOCAL_INFO_XS)+in(DMDA_LOCAL_INFO_XM)
temp33_real = math_mul3333xx33(S_scale,P(i,j,k,1:3,1:3)) + math_I3 - F_lambda(i,j,k,1:3,1:3) & temp33_real = math_mul3333xx33(S_scale,P(i,j,k,1:3,1:3)) + math_I3 - F_lambda(i,j,k,1:3,1:3) &
+ F(i,j,k,1:3,1:3) - field_real(i,j,k,1:3,1:3) + F(i,j,k,1:3,1:3) - field_real(i,j,k,1:3,1:3)
f_scal(0,i,j,k) = temp33_real(1,1) f_scal(1:9,i,j,k) = reshape(temp33_real,[9])
f_scal(1,i,j,k) = temp33_real(1,2) f_scal(10:18,i,j,k) = reshape(F(i,j,k,1:3,1:3) - field_real(i,j,k,1:3,1:3),[9])
f_scal(2,i,j,k) = temp33_real(1,3)
f_scal(3,i,j,k) = temp33_real(2,1)
f_scal(4,i,j,k) = temp33_real(2,2)
f_scal(5,i,j,k) = temp33_real(2,3)
f_scal(6,i,j,k) = temp33_real(3,1)
f_scal(7,i,j,k) = temp33_real(3,2)
f_scal(8,i,j,k) = temp33_real(3,3)
f_scal(9,i,j,k) = F(i,j,k,1,1) - field_real(i,j,k,1,1)
f_scal(10,i,j,k) = F(i,j,k,1,2) - field_real(i,j,k,1,2)
f_scal(11,i,j,k) = F(i,j,k,1,3) - field_real(i,j,k,1,3)
f_scal(12,i,j,k) = F(i,j,k,2,1) - field_real(i,j,k,2,1)
f_scal(13,i,j,k) = F(i,j,k,2,2) - field_real(i,j,k,2,2)
f_scal(14,i,j,k) = F(i,j,k,2,3) - field_real(i,j,k,2,3)
f_scal(15,i,j,k) = F(i,j,k,3,1) - field_real(i,j,k,3,1)
f_scal(16,i,j,k) = F(i,j,k,3,2) - field_real(i,j,k,3,2)
f_scal(17,i,j,k) = F(i,j,k,3,3) - field_real(i,j,k,3,3)
enddo; enddo; enddo enddo; enddo; enddo
return return
end subroutine AL_FormResidual end subroutine AL_formResidual
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief convergence check !> @brief convergence check
@ -511,14 +439,14 @@ module DAMASK_spectral_SolverAL
PetscErrorCode ierr_psc PetscErrorCode ierr_psc
logical :: Converged logical :: Converged
Converged = (iter > itmin .and. & Converged = (it > itmin .and. &
all([ err_f/sqrt(sum((F_aim-math_I3)*(F_aim-math_I3)))/err_f_tol, & all([ err_f/sqrt(sum((F_aim-math_I3)*(F_aim-math_I3)))/err_f_tol, &
err_p/sqrt(sum((F_aim-math_I3)*(F_aim-math_I3)))/err_p_tol, & err_p/sqrt(sum((F_aim-math_I3)*(F_aim-math_I3)))/err_p_tol, &
err_stress/min(maxval(abs(P_av))*err_stress_tolrel,err_stress_tolabs)] < 1.0_pReal)) err_stress/min(maxval(abs(P_av))*err_stress_tolrel,err_stress_tolabs)] < 1.0_pReal))
if (Converged) then if (Converged) then
reason = 1 reason = 1
elseif (iter > itmax) then elseif (it > itmax) then
reason = -1 reason = -1
else else
reason = 0 reason = 0
@ -542,9 +470,7 @@ module DAMASK_spectral_SolverAL
PetscErrorCode ierr_psc PetscErrorCode ierr_psc
call VecDestroy(solution_vec,ierr_psc) call VecDestroy(solution_vec,ierr_psc)
call VecDestroy(residual_vec,ierr_psc)
call SNESDestroy(snes,ierr_psc) call SNESDestroy(snes,ierr_psc)
call DMDestroy(da,ierr_psc)
call PetscFinalize(ierr_psc) call PetscFinalize(ierr_psc)
call Utilities_destroy() call Utilities_destroy()

36
code/DAMASK_spectral_Utilities.f90
View File

@ -204,6 +204,7 @@ subroutine Utilities_updateGamma(C)
real(pReal), dimension(3,3,3,3), intent(in) :: C real(pReal), dimension(3,3,3,3), intent(in) :: C
real(pReal), dimension(3,3) :: temp33_Real, xiDyad real(pReal), dimension(3,3) :: temp33_Real, xiDyad
real(pReal) :: filter
integer(pInt) :: i, j, k, l, m, n, o integer(pInt) :: i, j, k, l, m, n, o
C_ref = C C_ref = C
@ -215,8 +216,9 @@ subroutine Utilities_updateGamma(C)
forall(l = 1_pInt:3_pInt, m = 1_pInt:3_pInt) & forall(l = 1_pInt:3_pInt, m = 1_pInt:3_pInt) &
temp33_Real(l,m) = sum(C_ref(l,m,1:3,1:3)*xiDyad) temp33_Real(l,m) = sum(C_ref(l,m,1:3,1:3)*xiDyad)
temp33_Real = math_inv33(temp33_Real) temp33_Real = math_inv33(temp33_Real)
filter = Utilities_getFilter(xi(1:3,i,j,k))
forall(l=1_pInt:3_pInt, m=1_pInt:3_pInt, n=1_pInt:3_pInt, o=1_pInt:3_pInt)& forall(l=1_pInt:3_pInt, m=1_pInt:3_pInt, n=1_pInt:3_pInt, o=1_pInt:3_pInt)&
gamma_hat(i,j,k, l,m,n,o) = temp33_Real(l,n)*xiDyad(m,o) gamma_hat(i,j,k, l,m,n,o) = filter*temp33_Real(l,n)*xiDyad(m,o)
endif endif
enddo; enddo; enddo enddo; enddo; enddo
gamma_hat(1,1,1, 1:3,1:3,1:3,1:3) = 0.0_pReal ! singular point at xi=(0.0,0.0,0.0) i.e. i=j=k=1 gamma_hat(1,1,1, 1:3,1:3,1:3,1:3) = 0.0_pReal ! singular point at xi=(0.0,0.0,0.0) i.e. i=j=k=1
@ -332,6 +334,7 @@ subroutine Utilities_fourierConvolution(fieldAim)
real(pReal), dimension(3,3), intent(in) :: fieldAim real(pReal), dimension(3,3), intent(in) :: fieldAim
real(pReal), dimension(3,3) :: xiDyad, temp33_Real real(pReal), dimension(3,3) :: xiDyad, temp33_Real
real(pReal) :: filter
integer(pInt) :: i, j, k, l, m, n, o integer(pInt) :: i, j, k, l, m, n, o
complex(pReal), dimension(3,3) :: temp33_complex complex(pReal), dimension(3,3) :: temp33_complex
@ -348,8 +351,9 @@ subroutine Utilities_fourierConvolution(fieldAim)
forall(l = 1_pInt:3_pInt, m = 1_pInt:3_pInt) & forall(l = 1_pInt:3_pInt, m = 1_pInt:3_pInt) &
temp33_Real(l,m) = sum(C_ref(l,m,1:3,1:3)*xiDyad) temp33_Real(l,m) = sum(C_ref(l,m,1:3,1:3)*xiDyad)
temp33_Real = math_inv33(temp33_Real) temp33_Real = math_inv33(temp33_Real)
filter = Utilities_getFilter(xi(1:3,i,j,k))
forall(l=1_pInt:3_pInt, m=1_pInt:3_pInt, n=1_pInt:3_pInt, o=1_pInt:3_pInt)& forall(l=1_pInt:3_pInt, m=1_pInt:3_pInt, n=1_pInt:3_pInt, o=1_pInt:3_pInt)&
gamma_hat(1,1,1, l,m,n,o) = temp33_Real(l,n)*xiDyad(m,o) gamma_hat(1,1,1, l,m,n,o) = filter*temp33_Real(l,n)*xiDyad(m,o)
forall(l = 1_pInt:3_pInt, m = 1_pInt:3_pInt) & forall(l = 1_pInt:3_pInt, m = 1_pInt:3_pInt) &
temp33_Complex(l,m) = sum(gamma_hat(1,1,1, l,m, 1:3,1:3) * field_fourier(i,j,k,1:3,1:3)) temp33_Complex(l,m) = sum(gamma_hat(1,1,1, l,m, 1:3,1:3) * field_fourier(i,j,k,1:3,1:3))
field_fourier(i,j,k,1:3,1:3) = temp33_Complex field_fourier(i,j,k,1:3,1:3) = temp33_Complex
@ -522,6 +526,9 @@ subroutine Utilities_constitutiveResponse(coordinates,F_lastInc,F,temperature,ti
real(pReal), dimension(6,6) :: dsde real(pReal), dimension(6,6) :: dsde
real(pReal), dimension(3,3) :: P_av_lab, P_av, rotation_BC real(pReal), dimension(3,3) :: P_av_lab, P_av, rotation_BC
write(6,'(a)') ''
write(6,'(a)') '... evaluating constitutive response .................'
if (ForwardData) then if (ForwardData) then
CPFEM_mode = 1_pInt CPFEM_mode = 1_pInt
else else
@ -554,8 +561,10 @@ subroutine Utilities_constitutiveResponse(coordinates,F_lastInc,F,temperature,ti
restartWrite = .false. restartWrite = .false.
P_av_lab = P_av_lab * wgt P_av_lab = P_av_lab * wgt
P_av = math_rotate_forward33(P_av_lab,rotation_BC) P_av = math_rotate_forward33(P_av_lab,rotation_BC)
write (6,'(a,/,3(3(2x,f12.7,1x)/))',advance='no') ' Piola-Kirchhoff stress / MPa =',& write (6,'(a,/,3(3(2x,f12.7,1x)/))',advance='no') ' Piola-Kirchhoff stress / MPa =',&
math_transpose33(P_av)/1.e6_pReal math_transpose33(P_av)/1.e6_pReal
C = C * wgt C = C * wgt
end subroutine Utilities_constitutiveResponse end subroutine Utilities_constitutiveResponse
@ -578,6 +587,29 @@ subroutine Utilities_forwardField(delta_aim,timeinc,timeinc_old,guessmode,field_
enddo; enddo; enddo enddo; enddo; enddo
end subroutine Utilities_forwardField end subroutine Utilities_forwardField
real(pReal) function Utilities_getFilter(k)
use numerics, only: &
myfilter
implicit none
real(pReal), dimension(3),intent(in) :: k
select case (myfilter)
case ('none')
Utilities_getFilter = 1.0_pReal
case ('cosine')
Utilities_getFilter = 0.125_pReal*(1.0_pReal + cos(pi*k(3)*geomdim(3)/(res(3)/2_pInt + 1_pInt))) &
*(1.0_pReal + cos(pi*k(2)*geomdim(2)/(res(2)/2_pInt + 1_pInt))) &
*(1.0_pReal + cos(pi*k(1)*geomdim(1)/(res(1)/2_pInt + 1_pInt)))
end select
end function Utilities_getFilter
subroutine Utilities_destroy() subroutine Utilities_destroy()
implicit none implicit none

1
code/config/numerics.config
View File

@ -66,4 +66,5 @@ memory_efficient 1 # Precalculate Gamma-operator (81 double
update_gamma 0 # Update Gamma-operator with current dPdF (not possible if memory_efficient=1) update_gamma 0 # Update Gamma-operator with current dPdF (not possible if memory_efficient=1)
divergence_correction 0 # Use dimension-independent divergence criterion divergence_correction 0 # Use dimension-independent divergence criterion
myspectralsolver AL # Type of spectral solver (AL-augmented lagrange, basic-basic) myspectralsolver AL # Type of spectral solver (AL-augmented lagrange, basic-basic)
myfilter none # Type of filtering method to mitigate Gibb's phenomenon (none, cosine, ...)
petsc_options -snes_type ngmres -snes_ngmres_anderson -snes_view # PetSc solver options petsc_options -snes_type ngmres -snes_ngmres_anderson -snes_view # PetSc solver options

8
code/numerics.f90
View File

@ -82,7 +82,8 @@ real(pReal) :: err_div_tol = 0.1_pReal, &
fftw_timelimit = -1.0_pReal, & ! sets the timelimit of plan creation for FFTW, see manual on www.fftw.org, Default -1.0: disable timelimit fftw_timelimit = -1.0_pReal, & ! sets the timelimit of plan creation for FFTW, see manual on www.fftw.org, Default -1.0: disable timelimit
rotation_tol = 1.0e-12_pReal ! tolerance of rotation specified in loadcase, Default 1.0e-12: first guess rotation_tol = 1.0e-12_pReal ! tolerance of rotation specified in loadcase, Default 1.0e-12: first guess
character(len=64) :: fftw_plan_mode = 'FFTW_PATIENT', & ! reads the planing-rigor flag, see manual on www.fftw.org, Default FFTW_PATIENT: use patient planner flag character(len=64) :: fftw_plan_mode = 'FFTW_PATIENT', & ! reads the planing-rigor flag, see manual on www.fftw.org, Default FFTW_PATIENT: use patient planner flag
myspectralsolver = 'basic' ! spectral solution method myspectralsolver = 'basic' , & ! spectral solution method
myfilter = 'none' ! spectral filtering method
character(len=1024) :: petsc_options = '-snes_type ngmres -snes_ngmres_anderson -snes_view' character(len=1024) :: petsc_options = '-snes_type ngmres -snes_ngmres_anderson -snes_view'
integer(pInt) :: fftw_planner_flag = 32_pInt, & ! conversion of fftw_plan_mode to integer, basically what is usually done in the include file of fftw integer(pInt) :: fftw_planner_flag = 32_pInt, & ! conversion of fftw_plan_mode to integer, basically what is usually done in the include file of fftw
itmax = 20_pInt, & ! maximum number of iterations itmax = 20_pInt, & ! maximum number of iterations
@ -257,6 +258,8 @@ subroutine numerics_init
fftw_plan_mode = IO_stringValue(line,positions,2_pInt) fftw_plan_mode = IO_stringValue(line,positions,2_pInt)
case ('myspectralsolver') case ('myspectralsolver')
myspectralsolver = IO_stringValue(line,positions,2_pInt) myspectralsolver = IO_stringValue(line,positions,2_pInt)
case ('myfilter')
myfilter = IO_stringValue(line,positions,2_pInt)
case ('petsc_options') case ('petsc_options')
petsc_options = IO_stringValue(line,positions,2_pInt) petsc_options = IO_stringValue(line,positions,2_pInt)
case ('rotation_tol') case ('rotation_tol')
@ -269,7 +272,7 @@ subroutine numerics_init
#ifndef Spectral #ifndef Spectral
case ('err_div_tol','err_stress_tolrel','err_stress_tolabs',& case ('err_div_tol','err_stress_tolrel','err_stress_tolabs',&
'itmax', 'itmin','memory_efficient','fftw_timelimit','fftw_plan_mode','myspectralsolver', & 'itmax', 'itmin','memory_efficient','fftw_timelimit','fftw_plan_mode','myspectralsolver', &
'rotation_tol','divergence_correction','update_gamma','petsc_options') 'rotation_tol','divergence_correction','update_gamma','petsc_options','myfilter')
call IO_warning(40_pInt,ext_msg=tag) call IO_warning(40_pInt,ext_msg=tag)
#endif #endif
case default case default
@ -363,6 +366,7 @@ subroutine numerics_init
endif endif
write(6,'(a24,1x,a)') ' fftw_plan_mode: ',trim(fftw_plan_mode) write(6,'(a24,1x,a)') ' fftw_plan_mode: ',trim(fftw_plan_mode)
write(6,'(a24,1x,a)') ' myspectralsolver: ',trim(myspectralsolver) write(6,'(a24,1x,a)') ' myspectralsolver: ',trim(myspectralsolver)
write(6,'(a24,1x,a)') ' myfilter: ',trim(myfilter)
write(6,'(a24,1x,a)') ' PetSc_options: ',trim(petsc_options) write(6,'(a24,1x,a)') ' PetSc_options: ',trim(petsc_options)
write(6,'(a24,1x,i8)') ' fftw_planner_flag: ',fftw_planner_flag write(6,'(a24,1x,i8)') ' fftw_planner_flag: ',fftw_planner_flag
write(6,'(a24,1x,es8.1)') ' rotation_tol: ',rotation_tol write(6,'(a24,1x,es8.1)') ' rotation_tol: ',rotation_tol