32 lines
1.4 KiB
Fortran
32 lines
1.4 KiB
Fortran
|
|
||
|
|
!##############################################################
|
||
|
|
MODULE prec
|
||
|
|
!##############################################################
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
! *** Precision of real and integer variables ***
|
||
|
|
integer, parameter :: pReal = 8
|
||
|
|
integer, parameter :: pInt = 4
|
||
|
|
! *** Numerical parameters ***
|
||
|
|
! *** How frequently the jacobian is recalculated ***
|
||
|
|
integer (pInt), parameter :: ijaco = 5_pInt
|
||
|
|
! *** Maximum number of internal cutbacks in time step ***
|
||
|
|
integer(pInt), parameter :: nCutback = 7_pInt
|
||
|
|
! *** Maximum number of regularization attempts for Jacobi inversion ***
|
||
|
|
integer(pInt), parameter :: nReg = 1_pInt
|
||
|
|
! *** Perturbation of strain array for numerical calculation of FEM Jacobi matrix ***
|
||
|
|
real(pReal), parameter :: pert_e=1.0e-5_pReal
|
||
|
|
! *** Maximum number of iterations in outer (state variables) loop ***
|
||
|
|
integer(pInt), parameter :: nState = 50_pInt
|
||
|
|
! *** Convergence criteria for outer (state variables) loop ***
|
||
|
|
real(pReal), parameter :: tol_State = 1.0e-6_pReal
|
||
|
|
! *** Maximum number of iterations in inner (stress) loop ***
|
||
|
|
integer(pInt), parameter :: nStress = 500_pInt
|
||
|
|
! *** Convergence criteria for inner (stress) loop ***
|
||
|
|
real(pReal), parameter :: tol_Stress = 1.0e-6_pReal
|
||
|
|
! *** Factor for maximum stress correction in inner (stress) loop ***
|
||
|
|
! real(pReal), parameter :: crite = 0.1_pReal
|
||
|
|
|
||
|
|
|
||
|
|
END MODULE prec
|