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

40 lines
2.2 KiB
Fortran
Raw Normal View History

let's see whether this is the thing to do..!?!?
2007-03-20 19:25:22 +05:30
!##############################################################
MODULE prec
!##############################################################
implicit none
updated constitutive_xxx to reflect new 9x9 dLp_dTstar - used to be 3x3x3x3
2008-02-21 18:20:37 +05:30
moved all numerical parameters to prec.f90 removed some unused variables
2007-03-29 12:45:12 +05:30
! *** Precision of real and integer variables ***
changed precision assignment to intrinsic (and standardized) "selected_*_kind"
2008-03-07 20:51:46 +05:30
integer, parameter :: pReal = selected_real_kind(15,300) ! 15 significant digits, up to 1e+-300
integer, parameter :: pInt = selected_int_kind(9) ! up to +- 1e9
changed pLongInt to 8
2009-03-31 14:37:30 +05:30
integer, parameter :: pLongInt = 8 ! should be 64bit
introduced pLongInt for Long Integers
2009-03-31 14:21:14 +05:30
updated constitutive_xxx to reflect new 9x9 dLp_dTstar - used to be 3x3x3x3
2008-02-21 18:20:37 +05:30
overhaul to allow for multiphase/homogenization setup.
2009-03-04 17:18:54 +05:30
type :: p_vec
real(pReal), dimension(:), pointer :: p
end type p_vec
updated constitutive_xxx to reflect new 9x9 dLp_dTstar - used to be 3x3x3x3
2008-02-21 18:20:37 +05:30
! *** Strain increment considered significant ***
CPFEM changed consistent tangent scheme to D.Tjahjanto Diss version fixed nasty bug in decision when to calculate new values (CPFEM_general) prec precision values should now be on safe side.
2008-02-18 23:41:24 +05:30
real(pReal), parameter :: relevantStrain = 1.0e-7_pReal
CPFEM: time integration scheme changed to start from guessing of Lp. Newton-Raphson algorithm now accelerates as long as residuum improves. IO: added error 650 for polar decomposition problems prec: some cleanup. Introduced "relevantStrain" for convergence checking in CPFEM
2008-02-15 15:34:49 +05:30
! *** Numerical parameters ***
integer(pInt), parameter :: ijaco = 1_pInt ! frequency of FEM Jacobi update
# separated CPFEM_Crystallite from CPFEM. Now in separate module crystallite.f90 as "SingleCrystallite" # improved SingleCrystallite to advance by true cutbacking (instead of improving guess and integrating always from t_0) # module "crystal" renamed to "lattice" together with its prefix for variables # extension of "computationMode" to deal with cutbacks (CPFEM_general). # cutback and new inc detection for MARC is based on common block variable cptim (and inc), not incsub anymore! # generalized GrainInterAction as new homogenization scheme # two symbolic links are required: constitutive.f90 and CPFEM.f90
2008-04-07 20:24:29 +05:30
real(pReal), parameter :: pert_Fg = 1.0e-6_pReal ! strain perturbation for FEM Jacobi
major restructuring of code. homogenization as well as constitutive are now free to choose. the runtime got somewhat longer (25% on simple tests) compared to a hardcoded isostrain homogenization. this might be a point of further optimization at a later stage... please use homogenization_isostrain.f90 as starting point / example for future developments of homog-schemes. the homogenization scheme now can additionally output certain results. hence, the userdata structure at each integration point now looks like this: - sizeHomogPostResults - block of that size containing homogPostResults then for each grain: - sizeGrainPostResults - block of that size containing crystallitePostResults, which consist of: + phaseID + volFrac + Eulers (3) + any constitutive post results requested
2009-05-07 21:57:36 +05:30
integer(pInt), parameter :: nReg = 1_pInt ! regularization attempts for Jacobi inversion
integer(pInt), parameter :: nHomog = 10_pInt ! homogenization loop limit
integer(pInt), parameter :: nCryst = 10_pInt ! crystallite loop limit (state update)
integer(pInt), parameter :: nStress = 20_pInt ! stress loop limit
integer(pInt), parameter :: nLp = 40_pInt ! stress loop limit
real(pReal), parameter :: rTol_crystalliteState = 1.0e-5_pReal ! relative tolerance in crystallite state loop
real(pReal), parameter :: rTol_crystalliteStress = 1.0e-6_pReal ! relative tolerance in crystallite stress loop
real(pReal), parameter :: aTol_crystalliteStress = 1.0e-8_pReal ! absolute tolerance in crystallite stress loop
# separated CPFEM_Crystallite from CPFEM. Now in separate module crystallite.f90 as "SingleCrystallite" # improved SingleCrystallite to advance by true cutbacking (instead of improving guess and integrating always from t_0) # module "crystal" renamed to "lattice" together with its prefix for variables # extension of "computationMode" to deal with cutbacks (CPFEM_general). # cutback and new inc detection for MARC is based on common block variable cptim (and inc), not incsub anymore! # generalized GrainInterAction as new homogenization scheme # two symbolic links are required: constitutive.f90 and CPFEM.f90
2008-04-07 20:24:29 +05:30
!
A revision for CPFEM_Taylor.f90.
2008-04-10 16:52:17 +05:30
real(pReal), parameter :: resToler = 1.0e-4_pReal ! relative tolerance of residual in GIA iteration
real(pReal), parameter :: resAbsol = 1.0e+2_pReal ! absolute tolerance of residual in GIA iteration (corresponds to ~1 Pa)
real(pReal), parameter :: resBound = 1.0e+1_pReal ! relative maximum value (upper bound) for GIA residual
# separated CPFEM_Crystallite from CPFEM. Now in separate module crystallite.f90 as "SingleCrystallite" # improved SingleCrystallite to advance by true cutbacking (instead of improving guess and integrating always from t_0) # module "crystal" renamed to "lattice" together with its prefix for variables # extension of "computationMode" to deal with cutbacks (CPFEM_general). # cutback and new inc detection for MARC is based on common block variable cptim (and inc), not incsub anymore! # generalized GrainInterAction as new homogenization scheme # two symbolic links are required: constitutive.f90 and CPFEM.f90
2008-04-07 20:24:29 +05:30
integer(pInt), parameter :: NRiterMax = 24_pInt ! maximum number of GIA iteration
real(pReal), parameter :: subStepMin = 1.0e-3_pReal ! minimum (relative) size of sub-step allowed during cutback
let's see whether this is the thing to do..!?!?
2007-03-20 19:25:22 +05:30
END MODULE prec