# new interface for Abaqus
# IO has some additional functionality for Abaqus parsing # ping pong scheme in FE interface now similar (and more human understandable) in both versions # mesh has better splitting of different tasks, plus operation on database whenever possible # FEsolver as new global var to indicate FEM solver type # computation mode reshuffling: 6 is now Marc special case of recycling...
This commit is contained in:
Philip Eisenlohr
parent
02602144d2
commit
21cad32137
|
|
@ -79,8 +79,6 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
terminallyIll, &
|
terminallyIll, &
|
||||||
cycleCounter, &
|
cycleCounter, &
|
||||||
theInc, &
|
theInc, &
|
||||||
theCycle, &
|
|
||||||
theLovl, &
|
|
||||||
theTime, &
|
theTime, &
|
||||||
FEsolving_execElem, &
|
FEsolving_execElem, &
|
||||||
FEsolving_execIP
|
FEsolving_execIP
|
||||||
|
|
@ -133,12 +131,12 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
real(pReal), intent(in) :: dt ! time increment
|
real(pReal), intent(in) :: dt ! time increment
|
||||||
real(pReal), dimension (3,3), intent(in) :: ffn, & ! deformation gradient for t=t0
|
real(pReal), dimension (3,3), intent(in) :: ffn, & ! deformation gradient for t=t0
|
||||||
ffn1 ! deformation gradient for t=t1
|
ffn1 ! deformation gradient for t=t1
|
||||||
integer(pInt), intent(in) :: mode ! computation mode 1: regular computation with aged results
|
integer(pInt), intent(in) :: mode ! computation mode 1: regular computation plus aging of results
|
||||||
! 2: regular computation
|
! 2: regular computation
|
||||||
! 3: collection of FEM data
|
! 3: collection of FEM data
|
||||||
! 4: recycling of former results (MARC speciality)
|
! 4: backup tangent from former converged inc
|
||||||
! 5: record tangent from former converged inc
|
! 5: restore tangent from former converged inc
|
||||||
! 6: restore tangent from former converged inc
|
! 6: recycling of former results (MARC speciality)
|
||||||
|
|
||||||
!*** output variables ***!
|
!*** output variables ***!
|
||||||
real(pReal), dimension(ngens), intent(out) :: cauchyStress ! stress vector in Mandel notation
|
real(pReal), dimension(ngens), intent(out) :: cauchyStress ! stress vector in Mandel notation
|
||||||
|
|
@ -176,7 +174,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
call debug_init()
|
call debug_init()
|
||||||
call math_init()
|
call math_init()
|
||||||
call FE_init()
|
call FE_init()
|
||||||
call mesh_init()
|
call mesh_init(IP, element) ! pass on coordinates to alter calcMode of first ip
|
||||||
call lattice_init()
|
call lattice_init()
|
||||||
call material_init()
|
call material_init()
|
||||||
call constitutive_init()
|
call constitutive_init()
|
||||||
|
|
@ -190,12 +188,14 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
cp_en = mesh_FEasCP('elem',element)
|
cp_en = mesh_FEasCP('elem',element)
|
||||||
|
|
||||||
if (cp_en == 1 .and. IP == 1) then
|
if (cp_en == 1 .and. IP == 1) then
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
write(6,*)
|
write(6,*)
|
||||||
write(6,*) '#####################################'
|
write(6,*) '#####################################'
|
||||||
write(6,'(a10,1x,f8.4,1x,a10,1x,i4,1x,a10,1x,i3,1x,a10,1x,i2,x,a10,1x,i2)') &
|
write(6,'(a10,x,f8.4,x,a10,x,i4,x,a10,x,i3,x,a16,x,i2,x,a16,x,i2)') &
|
||||||
'theTime',theTime,'theInc',theInc,'theCycle',theCycle,'theLovl',theLovl,&
|
'theTime',theTime,'theInc',theInc,'cycleCounter',cycleCounter,'computationMode',mode
|
||||||
'mode',mode
|
|
||||||
write(6,*) '#####################################'
|
write(6,*) '#####################################'
|
||||||
|
call flush (6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
! according to our "mode" we decide what to do
|
! according to our "mode" we decide what to do
|
||||||
|
|
@ -213,7 +213,9 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
j = 1:mesh_maxNips, &
|
j = 1:mesh_maxNips, &
|
||||||
k = 1:mesh_NcpElems ) &
|
k = 1:mesh_NcpElems ) &
|
||||||
constitutive_state0(i,j,k)%p = constitutive_state(i,j,k)%p ! microstructure of crystallites
|
constitutive_state0(i,j,k)%p = constitutive_state(i,j,k)%p ! microstructure of crystallites
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
write(6,'(a10,/,4(3(e20.8,x),/))') 'aged state',constitutive_state(1,1,1)%p
|
write(6,'(a10,/,4(3(e20.8,x),/))') 'aged state',constitutive_state(1,1,1)%p
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
do k = 1,mesh_NcpElems
|
do k = 1,mesh_NcpElems
|
||||||
do j = 1,mesh_maxNips
|
do j = 1,mesh_maxNips
|
||||||
if (homogenization_sizeState(j,k) > 0_pInt) &
|
if (homogenization_sizeState(j,k) > 0_pInt) &
|
||||||
|
|
@ -225,7 +227,9 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
! deformation gradient outdated or any actual deformation gradient differs more than relevantStrain from the stored one
|
! deformation gradient outdated or any actual deformation gradient differs more than relevantStrain from the stored one
|
||||||
if (terminallyIll .or. outdatedFFN1 .or. any(abs(ffn1 - materialpoint_F(:,:,IP,cp_en)) > relevantStrain)) then
|
if (terminallyIll .or. outdatedFFN1 .or. any(abs(ffn1 - materialpoint_F(:,:,IP,cp_en)) > relevantStrain)) then
|
||||||
if (.not. terminallyIll .and. .not. outdatedFFN1) then
|
if (.not. terminallyIll .and. .not. outdatedFFN1) then
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
write(6,'(a11,x,i5,x,i2,x,a10,/,3(3(f10.6,x),/))') 'outdated at',cp_en,IP,'FFN1 now:',ffn1(:,1),ffn1(:,2),ffn1(:,3)
|
write(6,'(a11,x,i5,x,i2,x,a10,/,3(3(f10.6,x),/))') 'outdated at',cp_en,IP,'FFN1 now:',ffn1(:,1),ffn1(:,2),ffn1(:,3)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
outdatedFFN1 = .true.
|
outdatedFFN1 = .true.
|
||||||
endif
|
endif
|
||||||
CPFEM_cs(1:ngens,IP,cp_en) = CPFEM_odd_stress
|
CPFEM_cs(1:ngens,IP,cp_en) = CPFEM_odd_stress
|
||||||
|
|
@ -234,7 +238,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
! deformation gradient is not outdated
|
! deformation gradient is not outdated
|
||||||
else
|
else
|
||||||
! set flag for Jacobian update
|
! set flag for Jacobian update
|
||||||
updateJaco = (mod(cycleCounter-4,4_pInt*iJacoStiffness)==0)
|
updateJaco = mod(cycleCounter,iJacoStiffness) == 0
|
||||||
|
|
||||||
! no parallel computation
|
! no parallel computation
|
||||||
if (.not. parallelExecution) then
|
if (.not. parallelExecution) then
|
||||||
|
|
@ -278,8 +282,13 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
|
|
||||||
! --+>> COLLECTION OF FEM DATA AND RETURN OF ODD STRESS AND JACOBIAN <<+--
|
! --+>> COLLECTION OF FEM INPUT WITH RETURNING OF ODD STRESS AND JACOBIAN <<+--
|
||||||
case (3)
|
case (3,4,5)
|
||||||
|
if (mode == 4) then
|
||||||
|
CPFEM_dcsde_knownGood = CPFEM_dcsde ! --+>> BACKUP JACOBIAN FROM FORMER CONVERGED INC
|
||||||
|
else if (mode == 5) then
|
||||||
|
CPFEM_dcsde = CPFEM_dcsde_knownGood ! --+>> RESTORE CONSISTENT JACOBIAN FROM FORMER CONVERGED INC
|
||||||
|
end if
|
||||||
materialpoint_Temperature(IP,cp_en) = Temperature
|
materialpoint_Temperature(IP,cp_en) = Temperature
|
||||||
materialpoint_F0(:,:,IP,cp_en) = ffn
|
materialpoint_F0(:,:,IP,cp_en) = ffn
|
||||||
materialpoint_F(:,:,IP,cp_en) = ffn1
|
materialpoint_F(:,:,IP,cp_en) = ffn1
|
||||||
|
|
@ -288,29 +297,26 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
|
||||||
CPFEM_calc_done = .false.
|
CPFEM_calc_done = .false.
|
||||||
|
|
||||||
! --+>> RECYCLING OF FORMER RESULTS (MARC SPECIALTY) <<+--
|
! --+>> RECYCLING OF FORMER RESULTS (MARC SPECIALTY) <<+--
|
||||||
case (4)
|
|
||||||
! do nothing
|
|
||||||
|
|
||||||
! --+>> RECORD JACOBIAN FROM FORMER CONVERGED INC <<+--
|
|
||||||
case (5)
|
|
||||||
CPFEM_dcsde_knownGood = CPFEM_dcsde
|
|
||||||
|
|
||||||
! --+>> RESTORE CONSISTENT JACOBIAN FROM FORMER CONVERGED INC <<+--
|
|
||||||
case (6)
|
case (6)
|
||||||
CPFEM_dcsde = CPFEM_dcsde_knownGood
|
! do nothing
|
||||||
|
|
||||||
end select
|
end select
|
||||||
|
|
||||||
! return the local stress and the jacobian from storage
|
! return the local stress and the jacobian from storage
|
||||||
cauchyStress(1:ngens) = CPFEM_cs(1:ngens,IP,cp_en)
|
cauchyStress(1:ngens) = CPFEM_cs(1:ngens,IP,cp_en)
|
||||||
jacobian(1:ngens,1:ngens) = CPFEM_dcsdE(1:ngens,1:ngens,IP,cp_en)
|
jacobian(1:ngens,1:ngens) = CPFEM_dcsdE(1:ngens,1:ngens,IP,cp_en)
|
||||||
if (IP == 1 .and. cp_en == 1) write(6,'(a,/,6(6(f10.3,x)/))') 'jacobian/GPa at ip 1 el 1',jacobian/1e9
|
if (IP == 1 .and. cp_en == 1) then
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write(6,'(a,/,6(6(f10.3,x)/))') 'jacobian/GPa at ip 1 el 1',jacobian/1e9
|
||||||
|
call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
endif
|
||||||
|
|
||||||
! return temperature
|
! return temperature
|
||||||
if (theInc > 0_pInt) Temperature = materialpoint_Temperature(IP,cp_en) ! homogenized result except for potentially non-isothermal starting condition.
|
if (theInc > 0_pInt) Temperature = materialpoint_Temperature(IP,cp_en) ! homogenized result except for potentially non-isothermal starting condition.
|
||||||
return
|
return
|
||||||
|
|
||||||
end subroutine
|
end subroutine
|
||||||
|
|
||||||
|
|
||||||
END MODULE CPFEM
|
END MODULE CPFEM
|
||||||
|
|
||||||
|
|
@ -6,12 +6,13 @@
|
||||||
use prec, only: pInt,pReal
|
use prec, only: pInt,pReal
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
integer(pInt) cycleCounter
|
integer(pInt) cycleCounter, theInc
|
||||||
integer(pInt) theInc,theCycle,theLovl
|
real(pReal) theTime, theDelta
|
||||||
real(pReal) theTime
|
|
||||||
logical :: lastIncConverged = .false.,outdatedByNewInc = .false.,outdatedFFN1 = .false.,terminallyIll = .false.
|
logical :: lastIncConverged = .false.,outdatedByNewInc = .false.,outdatedFFN1 = .false.,terminallyIll = .false.
|
||||||
logical :: symmetricSolver = .false.
|
logical :: symmetricSolver = .false.
|
||||||
logical :: parallelExecution = .true.
|
logical :: parallelExecution = .true.
|
||||||
|
logical :: lastMode = .true., cutBack = .false.
|
||||||
|
logical, dimension(:,:), allocatable :: calcMode
|
||||||
integer(pInt), dimension(:,:), allocatable :: FEsolving_execIP
|
integer(pInt), dimension(:,:), allocatable :: FEsolving_execIP
|
||||||
integer(pInt), dimension(2) :: FEsolving_execElem
|
integer(pInt), dimension(2) :: FEsolving_execElem
|
||||||
|
|
||||||
|
|
|
||||||
187
code/IO.f90
187
code/IO.f90
|
|
@ -27,11 +27,16 @@
|
||||||
!********************************************************************
|
!********************************************************************
|
||||||
! output version number
|
! output version number
|
||||||
!********************************************************************
|
!********************************************************************
|
||||||
subroutine IO_init
|
subroutine IO_init ()
|
||||||
|
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
write(6,*)
|
write(6,*)
|
||||||
write(6,*) '<<<+- IO init -+>>>'
|
write(6,*) '<<<+- IO init -+>>>'
|
||||||
write(6,*) '$Id$'
|
write(6,*) '$Id$'
|
||||||
write(6,*)
|
write(6,*)
|
||||||
|
call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
|
||||||
return
|
return
|
||||||
endsubroutine
|
endsubroutine
|
||||||
|
|
||||||
|
|
@ -64,6 +69,7 @@ endsubroutine
|
||||||
!********************************************************************
|
!********************************************************************
|
||||||
logical function IO_open_inputFile(unit)
|
logical function IO_open_inputFile(unit)
|
||||||
|
|
||||||
|
use cpfem_interface
|
||||||
use prec, only: pReal, pInt
|
use prec, only: pReal, pInt
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
|
|
@ -74,11 +80,18 @@ endsubroutine
|
||||||
|
|
||||||
inquire(6, name=outName) ! determine outputfileName
|
inquire(6, name=outName) ! determine outputfileName
|
||||||
extPos = len_trim(outName)-2
|
extPos = len_trim(outName)-2
|
||||||
if(outName(extPos:extPos+2)=='out') then
|
! if(outName(extPos:extPos+2)=='out') then
|
||||||
ext='dat' ! MARC
|
! ext='dat' ! MARC
|
||||||
else
|
! else
|
||||||
ext='inp' ! ABAQUS
|
! ext='inp' ! ABAQUS
|
||||||
endif
|
! endif
|
||||||
|
select case (FEsolver)
|
||||||
|
case ('Marc')
|
||||||
|
ext='dat'
|
||||||
|
case ('Abaqus')
|
||||||
|
ext='inp'
|
||||||
|
end select
|
||||||
|
|
||||||
open(unit,status='old',err=100,file=outName(1:extPos-1)//ext)
|
open(unit,status='old',err=100,file=outName(1:extPos-1)//ext)
|
||||||
IO_open_inputFile = .true.
|
IO_open_inputFile = .true.
|
||||||
return
|
return
|
||||||
|
|
@ -461,7 +474,7 @@ endfunction
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
character(len=*), intent(in) :: line
|
character(len=*), intent(in) :: line
|
||||||
character(len=*), parameter :: sep=achar(32)//achar(9)//achar(10)//achar(13) ! whitespaces
|
character(len=*), parameter :: sep=achar(44)//achar(32)//achar(9)//achar(10)//achar(13) ! comma and whitespaces
|
||||||
integer(pInt), intent(in) :: N
|
integer(pInt), intent(in) :: N
|
||||||
integer(pInt) part
|
integer(pInt) part
|
||||||
integer(pInt) IO_stringPos(1+N*2)
|
integer(pInt) IO_stringPos(1+N*2)
|
||||||
|
|
@ -705,58 +718,145 @@ endfunction
|
||||||
|
|
||||||
|
|
||||||
!********************************************************************
|
!********************************************************************
|
||||||
! count items in consecutive lines of ints concatenated by "c"
|
! extract value from key=value pair and check whether key matches
|
||||||
! as last char or range of values a "to" b
|
|
||||||
!********************************************************************
|
!********************************************************************
|
||||||
function IO_countContinousIntValues (unit)
|
pure function IO_extractValue (line,key)
|
||||||
|
|
||||||
use prec, only: pReal,pInt
|
use prec, only: pReal,pInt
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
integer(pInt) IO_countContinousIntValues,unit
|
character(len=*), intent(in) :: line,key
|
||||||
integer(pInt), dimension(67) :: pos ! allow for 32 values excl "c"
|
character(len=*), parameter :: sep = achar(61) ! '='
|
||||||
character(len=300) line
|
integer(pInt) pos
|
||||||
|
character(len=300) IO_extractValue
|
||||||
|
|
||||||
IO_countContinousIntValues = 0
|
IO_extractValue = ''
|
||||||
|
|
||||||
|
pos = scan(line,sep)
|
||||||
|
if (pos > 0 .and. line(:pos-1) == key(:pos-1)) & ! key matches expected key
|
||||||
|
IO_extractValue = line(pos+1:) ! extract value
|
||||||
|
|
||||||
|
return
|
||||||
|
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
|
||||||
|
!********************************************************************
|
||||||
|
! count lines containig data up to next *keyword
|
||||||
|
!********************************************************************
|
||||||
|
function IO_countDataLines (unit)
|
||||||
|
|
||||||
|
use prec, only: pReal,pInt
|
||||||
|
implicit none
|
||||||
|
|
||||||
|
integer(pInt) IO_countDataLines,unit
|
||||||
|
integer(pInt), parameter :: maxNchunks = 64
|
||||||
|
integer(pInt), dimension(1+2*maxNchunks) :: pos
|
||||||
|
character(len=300) line,tmp
|
||||||
|
|
||||||
|
IO_countDataLines = 0
|
||||||
do
|
do
|
||||||
read(unit,'(A300)',end=100) line
|
read(unit,'(A300)',end=100) line
|
||||||
pos = IO_stringPos(line,33)
|
pos = IO_stringPos(line,maxNchunks)
|
||||||
if (IO_lc(IO_stringValue(line,pos,2)) == 'to' ) then ! found range indicator
|
tmp = IO_lc(IO_stringValue(line,pos,1))
|
||||||
IO_countContinousIntValues = IO_countContinousIntValues+1+IO_intValue(line,pos,3)-IO_intValue(line,pos,1)
|
if (tmp(1:1) == '*' ) then ! found keyword
|
||||||
exit
|
exit
|
||||||
else
|
else
|
||||||
IO_countContinousIntValues = IO_countContinousIntValues+pos(1)-1
|
IO_countDataLines = IO_countDataLines + 1_pInt
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
100 backspace(unit)
|
||||||
|
return
|
||||||
|
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
|
||||||
|
!********************************************************************
|
||||||
|
! count items in consecutive lines
|
||||||
|
! Marc: ints concatenated by "c" as last char or range of values a "to" b
|
||||||
|
! Abaqus: triplet of start,stop,inc
|
||||||
|
!********************************************************************
|
||||||
|
function IO_countContinousIntValues (unit)
|
||||||
|
|
||||||
|
use cpfem_interface
|
||||||
|
use prec, only: pReal,pInt
|
||||||
|
implicit none
|
||||||
|
|
||||||
|
integer(pInt) unit,i,j,l,count
|
||||||
|
integer(pInt) IO_countContinousIntValues
|
||||||
|
integer(pInt), parameter :: maxNchunks = 64
|
||||||
|
integer(pInt), dimension(1+2*maxNchunks) :: pos
|
||||||
|
character(len=300) line
|
||||||
|
|
||||||
|
IO_countContinousIntValues = 0_pInt
|
||||||
|
|
||||||
|
select case (FEsolver)
|
||||||
|
case ('Marc')
|
||||||
|
|
||||||
|
do
|
||||||
|
read(unit,'(A300)',end=100) line
|
||||||
|
pos = IO_stringPos(line,maxNchunks)
|
||||||
|
if (IO_lc(IO_stringValue(line,pos,2)) == 'to' ) then ! found range indicator
|
||||||
|
IO_countContinousIntValues = 1 + IO_intValue(line,pos,3) - IO_intValue(line,pos,1)
|
||||||
|
exit ! only one single range indicator allowed
|
||||||
|
else
|
||||||
|
IO_countContinousIntValues = IO_countContinousIntValues+pos(1)-1 ! add line's count when assuming 'c'
|
||||||
if ( IO_lc(IO_stringValue(line,pos,pos(1))) /= 'c' ) then ! line finished, read last value
|
if ( IO_lc(IO_stringValue(line,pos,pos(1))) /= 'c' ) then ! line finished, read last value
|
||||||
IO_countContinousIntValues = IO_countContinousIntValues+1
|
IO_countContinousIntValues = IO_countContinousIntValues+1
|
||||||
exit
|
exit ! data ended
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
case('Abaqus')
|
||||||
|
|
||||||
|
count = IO_countDataLines(unit)
|
||||||
|
do l = 1,count
|
||||||
|
backspace(unit)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
do l = 1,count
|
||||||
|
read(unit,'(A300)',end=100) line
|
||||||
|
pos = IO_stringPos(line,maxNchunks)
|
||||||
|
IO_countContinousIntValues = IO_countContinousIntValues + 1 + & ! assuming range generation
|
||||||
|
(IO_intValue(line,pos,2)-IO_intValue(line,pos,1))/max(1,IO_intValue(line,pos,3))
|
||||||
|
enddo
|
||||||
|
|
||||||
|
endselect
|
||||||
|
|
||||||
100 return
|
100 return
|
||||||
|
|
||||||
endfunction
|
endfunction
|
||||||
|
|
||||||
!*********************************************************************
|
|
||||||
! read consecutive lines of ints concatenated by "c" as last char
|
!********************************************************************
|
||||||
! or range of values a "to" b
|
! return integer list corrsponding to items in consecutive lines
|
||||||
!*********************************************************************
|
! Marc: ints concatenated by "c" as last char, range of a "to" b, or named set
|
||||||
|
! Abaqus: triplet of start,stop,inc or named set
|
||||||
|
!********************************************************************
|
||||||
function IO_continousIntValues (unit,maxN,lookupName,lookupMap,lookupMaxN)
|
function IO_continousIntValues (unit,maxN,lookupName,lookupMap,lookupMaxN)
|
||||||
|
|
||||||
|
use cpfem_interface
|
||||||
use prec, only: pReal,pInt
|
use prec, only: pReal,pInt
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
integer(pInt) unit,maxN,i
|
integer(pInt) unit,maxN,i,j,l,count,first,last
|
||||||
integer(pInt), dimension(1+maxN) :: IO_continousIntValues
|
integer(pInt), dimension(1+maxN) :: IO_continousIntValues
|
||||||
integer(pInt), dimension(67) :: pos ! allow for 32 values excl "c"
|
integer(pInt), parameter :: maxNchunks = 64
|
||||||
|
integer(pInt), dimension(1+2*maxNchunks) :: pos
|
||||||
character(len=64), dimension(:) :: lookupName
|
character(len=64), dimension(:) :: lookupName
|
||||||
integer(pInt) :: lookupMaxN
|
integer(pInt) :: lookupMaxN
|
||||||
integer(pInt), dimension(:,:) :: lookupMap
|
integer(pInt), dimension(:,:) :: lookupMap
|
||||||
character(len=300) line
|
character(len=300) line
|
||||||
|
|
||||||
IO_continousIntValues = 0_pInt
|
IO_continousIntValues = 0
|
||||||
|
|
||||||
|
select case (FEsolver)
|
||||||
|
case ('Marc')
|
||||||
|
|
||||||
do
|
do
|
||||||
read(unit,'(A300)',end=100) line
|
read(unit,'(A300)',end=100) line
|
||||||
pos = IO_stringPos(line,33)
|
pos = IO_stringPos(line,maxNchunks)
|
||||||
if (verify(IO_stringValue(line,pos,1),"0123456789") > 0) then ! a non-int, i.e. set name
|
if (verify(IO_stringValue(line,pos,1),"0123456789") > 0) then ! a non-int, i.e. set name
|
||||||
do i = 1,lookupMaxN ! loop over known set names
|
do i = 1,lookupMaxN ! loop over known set names
|
||||||
if (IO_stringValue(line,pos,1) == lookupName(i)) then ! found matching name
|
if (IO_stringValue(line,pos,1) == lookupName(i)) then ! found matching name
|
||||||
|
|
@ -783,11 +883,44 @@ endfunction
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
case('Abaqus')
|
||||||
|
|
||||||
|
count = IO_countDataLines(unit)
|
||||||
|
do l = 1,count
|
||||||
|
backspace(unit)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
do l = 1,count
|
||||||
|
read(unit,'(A300)',end=100) line
|
||||||
|
pos = IO_stringPos(line,maxNchunks)
|
||||||
|
if (verify(IO_stringValue(line,pos,1),"0123456789") > 0) then ! a non-int, i.e. set names follow on this line
|
||||||
|
do i = 1,pos(1) ! loop over set names in line
|
||||||
|
do j = 1,lookupMaxN ! look thru known set names
|
||||||
|
if (IO_stringValue(line,pos,i) == lookupName(j)) then ! found matching name
|
||||||
|
first = 2 + IO_continousIntValues(1) ! where to start appending data
|
||||||
|
last = first + lookupMap(1,j) - 1 ! up to where to append data
|
||||||
|
IO_continousIntValues(first:last) = lookupMap(2:1+lookupMap(1,j),j) ! add resp. entity list
|
||||||
|
IO_continousIntValues(1) = IO_continousIntValues(1) + lookupMap(1,j) ! count them
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
enddo
|
||||||
|
else ! assuming range generation
|
||||||
|
do i = IO_intValue(line,pos,1),IO_intValue(line,pos,2),max(1,IO_intValue(line,pos,3))
|
||||||
|
IO_continousIntValues(1) = IO_continousIntValues(1) + 1
|
||||||
|
IO_continousIntValues(1+IO_continousIntValues(1)) = i
|
||||||
|
enddo
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
|
||||||
|
endselect
|
||||||
|
|
||||||
100 return
|
100 return
|
||||||
|
|
||||||
endfunction
|
endfunction
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
!********************************************************************
|
!********************************************************************
|
||||||
! write error statements to standard out
|
! write error statements to standard out
|
||||||
! and terminate the Marc run with exit #9xxx
|
! and terminate the Marc run with exit #9xxx
|
||||||
|
|
|
||||||
|
|
@ -175,7 +175,7 @@ subroutine homogenization_RGC_partitionDeformation(&
|
||||||
use prec, only: pReal,pInt,p_vec
|
use prec, only: pReal,pInt,p_vec
|
||||||
use mesh, only: mesh_element,mesh_NcpElems,mesh_maxNips
|
use mesh, only: mesh_element,mesh_NcpElems,mesh_maxNips
|
||||||
use material, only: homogenization_maxNgrains,homogenization_Ngrains,homogenization_typeInstance
|
use material, only: homogenization_maxNgrains,homogenization_Ngrains,homogenization_typeInstance
|
||||||
use FEsolving, only: theInc,theCycle,theTime
|
use FEsolving, only: theInc,cycleCounter,theTime
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
|
|
@ -198,7 +198,7 @@ subroutine homogenization_RGC_partitionDeformation(&
|
||||||
|
|
||||||
!* Debugging the overall deformation gradient
|
!* Debugging the overall deformation gradient
|
||||||
if (RGCdebug) then
|
if (RGCdebug) then
|
||||||
write(6,'(x,a,i3,a,i3,a)')'========== Increment: ',theInc,' Cycle: ',theCycle,' =========='
|
write(6,'(x,a,i3,a,i3,a)')'========== Increment: ',theInc,' Cycle: ',cycleCounter,' =========='
|
||||||
write(6,'(x,a32)')'Overall deformation gradient: '
|
write(6,'(x,a32)')'Overall deformation gradient: '
|
||||||
do i = 1,3
|
do i = 1,3
|
||||||
write(6,'(x,3(e14.8,x))')(avgF(i,j), j = 1,3)
|
write(6,'(x,3(e14.8,x))')(avgF(i,j), j = 1,3)
|
||||||
|
|
@ -256,7 +256,7 @@ function homogenization_RGC_updateState(&
|
||||||
use mesh, only: mesh_element,mesh_NcpElems,mesh_maxNips
|
use mesh, only: mesh_element,mesh_NcpElems,mesh_maxNips
|
||||||
use material, only: homogenization_maxNgrains,homogenization_typeInstance,homogenization_Ngrains
|
use material, only: homogenization_maxNgrains,homogenization_typeInstance,homogenization_Ngrains
|
||||||
use numerics, only: absTol_RGC,relTol_RGC,absMax_RGC,relMax_RGC,pPert_RGC
|
use numerics, only: absTol_RGC,relTol_RGC,absMax_RGC,relMax_RGC,pPert_RGC
|
||||||
use FEsolving, only: theInc,theCycle,theTime
|
use FEsolving, only: theInc,cycleCounter,theTime
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
|
|
|
||||||
1159
code/mesh.f90
1159
code/mesh.f90
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,270 @@
|
||||||
|
!* $Id$
|
||||||
|
!********************************************************************
|
||||||
|
! Material subroutine for Abaqus
|
||||||
|
!
|
||||||
|
! written by P. Eisenlohr,
|
||||||
|
! F. Roters,
|
||||||
|
! K. Janssens
|
||||||
|
!
|
||||||
|
! MPI fuer Eisenforschung, Duesseldorf
|
||||||
|
! PSI, Switzerland
|
||||||
|
!********************************************************************
|
||||||
|
|
||||||
|
MODULE cpfem_interface
|
||||||
|
|
||||||
|
character(len=64), parameter :: FEsolver = 'Abaqus'
|
||||||
|
|
||||||
|
CONTAINS
|
||||||
|
|
||||||
|
subroutine mpie_cpfem_init ()
|
||||||
|
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write(6,*)
|
||||||
|
write(6,*) '<<<+- mpie_cpfem_abaqus init -+>>>'
|
||||||
|
write(6,*)
|
||||||
|
call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
return
|
||||||
|
end subroutine
|
||||||
|
|
||||||
|
END MODULE
|
||||||
|
|
||||||
|
include "prec.f90" ! uses nothing else
|
||||||
|
include "IO.f90" ! uses prec
|
||||||
|
include "numerics.f90" ! uses prec, IO
|
||||||
|
include "math.f90" ! uses prec, numerics
|
||||||
|
include "debug.f90" ! uses prec, numerics
|
||||||
|
include "FEsolving.f90" ! uses prec, IO
|
||||||
|
include "mesh.f90" ! uses prec, math, IO, FEsolving
|
||||||
|
include "material.f90" ! uses prec, math, IO, mesh
|
||||||
|
include "lattice.f90" ! uses prec, math, IO, material
|
||||||
|
include "constitutive_phenopowerlaw.f90" ! uses prec, math, IO, latt ice, material, debug
|
||||||
|
include "constitutive_j2.f90" ! uses prec, math, IO, latt ice, material, debug
|
||||||
|
include "constitutive_dislobased.f90" ! uses prec, math, IO, latt ice, material, debug
|
||||||
|
include "constitutive_nonlocal.f90" ! uses prec, math, IO, latt ice, material, debug
|
||||||
|
include "constitutive.f90" ! uses prec, IO, math, lattice, mesh, debug
|
||||||
|
include "crystallite.f90" ! uses prec, math, IO, numerics
|
||||||
|
include "homogenization_isostrain.f90" ! uses prec, math, IO,
|
||||||
|
include "homogenization_RGC.f90" ! uses prec, math, IO, numerics, mesh: added <<<updated 31.07.2009>>>
|
||||||
|
include "homogenization.f90" ! uses prec, math, IO, numerics
|
||||||
|
include "CPFEM.f90" ! uses prec, math, IO, numerics, debug, FEsolving, mesh, lattice, constitutive, crystallite
|
||||||
|
|
||||||
|
subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
|
||||||
|
RPL,DDSDDT,DRPLDE,DRPLDT,STRAN,DSTRAN,&
|
||||||
|
TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,NDI,NSHR,NTENS,&
|
||||||
|
NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,CELENT,&
|
||||||
|
DFGRD0,DFGRD1,NOEL,NPT,KSLAY,KSPT,KSTEP,KINC)
|
||||||
|
|
||||||
|
use prec, only: pReal, &
|
||||||
|
pInt
|
||||||
|
use FEsolving, only: cycleCounter, &
|
||||||
|
theInc, &
|
||||||
|
cutBack, &
|
||||||
|
calcMode, &
|
||||||
|
lastMode, &
|
||||||
|
theTime, &
|
||||||
|
theDelta, &
|
||||||
|
lastIncConverged, &
|
||||||
|
outdatedByNewInc, &
|
||||||
|
outdatedFFN1, &
|
||||||
|
terminallyIll, &
|
||||||
|
symmetricSolver
|
||||||
|
use math, only: invnrmMandel
|
||||||
|
use debug, only: debug_info, &
|
||||||
|
debug_reset
|
||||||
|
use mesh, only: mesh_FEasCP
|
||||||
|
use CPFEM, only: CPFEM_general,CPFEM_init_done
|
||||||
|
use homogenization, only: materialpoint_sizeResults, materialpoint_results
|
||||||
|
|
||||||
|
|
||||||
|
implicit none
|
||||||
|
|
||||||
|
CHARACTER*80 CMNAME
|
||||||
|
integer(pInt) ndi, nshr, ntens, nstatv, nprops, noel, npt,&
|
||||||
|
kslay, kspt, kstep, kinc
|
||||||
|
real(pReal) STRESS(NTENS),STATEV(NSTATV),&
|
||||||
|
DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),&
|
||||||
|
STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),&
|
||||||
|
PROPS(NPROPS),COORDS(3),DROT(3,3),&
|
||||||
|
DFGRD0(3,3),DFGRD1(3,3)
|
||||||
|
real(pReal) SSE, SPD, SCD, RPL, DRPLDT, DTIME, TEMP,&
|
||||||
|
DTEMP, PNEWDT, CELENT
|
||||||
|
|
||||||
|
! local variables
|
||||||
|
real(pReal), dimension(6) :: stress_h
|
||||||
|
real(pReal), dimension(6,6) :: ddsdde_h
|
||||||
|
integer(pInt) computationMode, i, cp_en
|
||||||
|
|
||||||
|
if (noel == 1 .and. npt == 1) then
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write(6,*) 'el',noel,'ip',npt
|
||||||
|
write(6,*) 'got kinc as',kinc
|
||||||
|
write(6,*) 'got dStran',dstran
|
||||||
|
call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
endif
|
||||||
|
|
||||||
|
if ( .not. CPFEM_init_done ) then
|
||||||
|
|
||||||
|
computationMode = 2 ! calc + init
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write(6,'(i6,x,i2,x,a)') noel,npt,'first call special case..!'; call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
|
||||||
|
else
|
||||||
|
cp_en = mesh_FEasCP('elem',noel)
|
||||||
|
if (theTime < time(2) .or. theInc /= kinc) then ! reached convergence
|
||||||
|
lastIncConverged = .true.
|
||||||
|
outdatedByNewInc = .true.
|
||||||
|
terminallyIll = .false.
|
||||||
|
cycleCounter = 0
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write (6,'(i6,x,i2,x,a)') noel,npt,'lastIncConverged + outdated'; call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
endif
|
||||||
|
|
||||||
|
if ( dtime < theDelta ) then ! cutBack
|
||||||
|
calcMode = .true. ! pretend last step was calculation
|
||||||
|
cutBack = .true.
|
||||||
|
terminallyIll = .false.
|
||||||
|
cycleCounter = 0
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write(6,'(i6,x,i2,x,a)') noel,npt,'cutback detected..!'; call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
endif
|
||||||
|
|
||||||
|
calcMode(npt,cp_en) = .not. calcMode(npt,cp_en) ! ping pong (calc <--> collect)
|
||||||
|
|
||||||
|
if ( calcMode(npt,cp_en) ) then ! now calc
|
||||||
|
if ( lastMode .ne. calcMode(npt,cp_en) ) then ! first after ping pong
|
||||||
|
call debug_reset() ! resets debugging
|
||||||
|
outdatedFFN1 = .false.
|
||||||
|
cycleCounter = cycleCounter + 1
|
||||||
|
endif
|
||||||
|
if ( outdatedByNewInc ) then
|
||||||
|
outdatedByNewInc = .false.
|
||||||
|
computationMode = 1 ! calc and age results
|
||||||
|
else
|
||||||
|
computationMode = 2 ! plain calc
|
||||||
|
endif
|
||||||
|
else ! now collect
|
||||||
|
if ( lastMode .ne. calcMode(npt,cp_en) ) call debug_info() ! first after ping pong reports debugging
|
||||||
|
if ( lastIncConverged ) then
|
||||||
|
lastIncConverged = .false.
|
||||||
|
computationMode = 4 ! collect and backup Jacobian after convergence
|
||||||
|
elseif ( cutBack ) then
|
||||||
|
cutBack = .false.
|
||||||
|
computationMode = 5 ! collect and restore Jacobian after cutback
|
||||||
|
else
|
||||||
|
computationMode = 3 ! plain collect
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
theTime = time(2) ! record current starting time
|
||||||
|
theDelta = dtime ! record current time increment
|
||||||
|
theInc = kinc ! record current increment number
|
||||||
|
if (CPFEM_init_done) lastMode = calcMode(npt,cp_en) ! record calculationMode
|
||||||
|
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write(6,'(a16,x,i2,x,a,i5,a,i5,x,i5,a)') 'computationMode',computationMode,'(',cp_en,':',noel,npt,')'; call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
|
||||||
|
call CPFEM_general(computationMode,dfgrd0,dfgrd1,temp,dtime,noel,npt,stress,ddsdde,ntens)
|
||||||
|
|
||||||
|
! Mandel: 11, 22, 33, SQRT(2)*12, SQRT(2)*23, SQRT(2)*13
|
||||||
|
! straight: 11, 22, 33, 12, 23, 13
|
||||||
|
forall(i=1:ntens) ddsdde(1:ntens,i) = invnrmMandel(i)*ddsdde(1:ntens,i)*invnrmMandel(1:ntens)
|
||||||
|
stress(1:ntens) = stress(1:ntens)*invnrmMandel(1:ntens)
|
||||||
|
if(symmetricSolver) ddsdde(1:ntens,1:ntens) = 0.5_pReal*(ddsdde(1:ntens,1:ntens) + transpose(ddsdde(1:ntens,1:ntens)))
|
||||||
|
! ABAQUS: 11, 22, 33, 12, 13, 23
|
||||||
|
if(ntens == 6) then
|
||||||
|
stress_h=stress
|
||||||
|
stress(5)=stress_h(6)
|
||||||
|
stress(6)=stress_h(5)
|
||||||
|
ddsdde_h=ddsdde
|
||||||
|
ddsdde(:,5)=ddsdde_h(:,6)
|
||||||
|
ddsdde(:,6)=ddsdde_h(:,5)
|
||||||
|
ddsdde_h=ddsdde
|
||||||
|
ddsdde(5,:)=ddsdde_h(6,:)
|
||||||
|
ddsdde(6,:)=ddsdde_h(5,:)
|
||||||
|
end if
|
||||||
|
|
||||||
|
statev = materialpoint_results(1:min(nstatv,materialpoint_sizeResults),npt,mesh_FEasCP('elem', noel))
|
||||||
|
|
||||||
|
if ( terminallyIll ) pnewdt = 0.5_pReal ! force cutback directly ?
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine
|
||||||
|
|
||||||
|
!********************************************************************
|
||||||
|
! This subroutine replaces the corresponding Marc subroutine
|
||||||
|
!********************************************************************
|
||||||
|
subroutine quit(mpie_error)
|
||||||
|
|
||||||
|
use prec, only: pReal, &
|
||||||
|
pInt
|
||||||
|
implicit none
|
||||||
|
integer(pInt) mpie_error
|
||||||
|
|
||||||
|
call xit
|
||||||
|
end subroutine
|
||||||
|
|
||||||
|
!############################################################################
|
||||||
|
!
|
||||||
|
|
||||||
|
! include "KJ_Disp.f"
|
||||||
|
subroutine disp(u,kstep,kinc,time,node,noel,jdof,coords)
|
||||||
|
|
||||||
|
! hardwired aba_param.inc
|
||||||
|
implicit real*8(a-h,o-z)
|
||||||
|
parameter (nprecd=2)
|
||||||
|
!
|
||||||
|
dimension u(3),time(2), coords(3)
|
||||||
|
|
||||||
|
real ktime,ktcl,ktmax,ktmin,ktdeltaup,ktdeltadown
|
||||||
|
real klmin,klmax,kldelta,klbegincycle
|
||||||
|
real kdeltau, kru, kret
|
||||||
|
! When using stdb_abqerr for debugging
|
||||||
|
! dimension intv(2),realv(4)
|
||||||
|
! character*8 charv(1)
|
||||||
|
|
||||||
|
! ratchet displacement per cycle
|
||||||
|
kru = 0.1
|
||||||
|
! ratcheting ends at time kret
|
||||||
|
kret = 400.
|
||||||
|
! displacement amplitude
|
||||||
|
kdeltau = 0.5
|
||||||
|
! time cycle length:
|
||||||
|
ktcl = 4.
|
||||||
|
ktmax = ktcl/4
|
||||||
|
ktmin = 3.*ktmax
|
||||||
|
ktdeltadown = ktmin - ktmax
|
||||||
|
ktdeltaup = ktcl - ktdeltadown
|
||||||
|
! load minimum & maximum:
|
||||||
|
klmin = -kdeltau
|
||||||
|
klmax = kdeltau
|
||||||
|
kldelta = klmax - klmin
|
||||||
|
klbegincycle = klmin + kldelta * (ktcl-ktmin) / ktdeltaup
|
||||||
|
! load as a function of (total time); trianglar loading cycle
|
||||||
|
ktime = time(2)
|
||||||
|
kru = kru * MIN(kret, ktime) / ktcl
|
||||||
|
if ( ktime .lt. ktmax ) then
|
||||||
|
! special case for path to first maximum
|
||||||
|
u(1) = kru + (ktime/ktmax) * klmax
|
||||||
|
else
|
||||||
|
do while ( ktime .ge. ktcl )
|
||||||
|
ktime = ktime - ktcl
|
||||||
|
end do
|
||||||
|
if ( ktime .le. ktmax ) then
|
||||||
|
u(1) = kru + klbegincycle + ktime * (klmax-klbegincycle) / ktmax
|
||||||
|
else if ( ktime .lt. ktmin ) then
|
||||||
|
u(1) = kru + klmax - (ktime-ktmax) * kldelta / (ktmin-ktmax)
|
||||||
|
else
|
||||||
|
u(1) = kru + klmin + (ktime-ktmin) * (klbegincycle-klmin)/(ktcl-ktmin)
|
||||||
|
end if
|
||||||
|
endif
|
||||||
|
return
|
||||||
|
end
|
||||||
|
!
|
||||||
|
|
@ -38,6 +38,8 @@
|
||||||
!
|
!
|
||||||
MODULE cpfem_interface
|
MODULE cpfem_interface
|
||||||
|
|
||||||
|
character(len=64), parameter :: FEsolver = 'Marc'
|
||||||
|
|
||||||
CONTAINS
|
CONTAINS
|
||||||
|
|
||||||
subroutine mpie_cpfem_init
|
subroutine mpie_cpfem_init
|
||||||
|
|
@ -61,7 +63,7 @@ END MODULE
|
||||||
include "lattice.f90" ! uses prec, math, IO, material
|
include "lattice.f90" ! uses prec, math, IO, material
|
||||||
include "constitutive_phenopowerlaw.f90" ! uses prec, math, IO, lattice, material, debug
|
include "constitutive_phenopowerlaw.f90" ! uses prec, math, IO, lattice, material, debug
|
||||||
include "constitutive_j2.f90" ! uses prec, math, IO, lattice, material, debug
|
include "constitutive_j2.f90" ! uses prec, math, IO, lattice, material, debug
|
||||||
include "constitutive_dislotwin.f90" ! uses prec, math, IO, lattice, material, debug
|
include "constitutive_dislobased.f90" ! uses prec, math, IO, lattice, material, debug
|
||||||
include "constitutive_nonlocal.f90" ! uses prec, math, IO, lattice, material, debug
|
include "constitutive_nonlocal.f90" ! uses prec, math, IO, lattice, material, debug
|
||||||
include "constitutive.f90" ! uses prec, IO, math, lattice, mesh, debug
|
include "constitutive.f90" ! uses prec, IO, math, lattice, mesh, debug
|
||||||
include "crystallite.f90" ! uses prec, math, IO, numerics
|
include "crystallite.f90" ! uses prec, math, IO, numerics
|
||||||
|
|
@ -148,18 +150,22 @@ subroutine hypela2(&
|
||||||
pInt
|
pInt
|
||||||
use FEsolving, only: cycleCounter, &
|
use FEsolving, only: cycleCounter, &
|
||||||
theInc, &
|
theInc, &
|
||||||
theCycle, &
|
cutBack, &
|
||||||
theLovl, &
|
calcMode, &
|
||||||
|
lastMode, &
|
||||||
theTime, &
|
theTime, &
|
||||||
|
theDelta, &
|
||||||
lastIncConverged, &
|
lastIncConverged, &
|
||||||
outdatedByNewInc, &
|
outdatedByNewInc, &
|
||||||
outdatedFFN1, &
|
outdatedFFN1, &
|
||||||
terminallyIll, &
|
terminallyIll, &
|
||||||
symmetricSolver
|
symmetricSolver
|
||||||
use CPFEM, only: CPFEM_general
|
|
||||||
use math, only: invnrmMandel
|
use math, only: invnrmMandel
|
||||||
use debug, only: debug_info, &
|
use debug, only: debug_info, &
|
||||||
debug_reset
|
debug_reset
|
||||||
|
use mesh, only: mesh_FEasCP
|
||||||
|
use CPFEM, only: CPFEM_general,CPFEM_init_done
|
||||||
|
use homogenization, only: materialpoint_sizeResults, materialpoint_results
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
! ** Start of generated type statements **
|
! ** Start of generated type statements **
|
||||||
|
|
@ -179,47 +185,74 @@ subroutine hypela2(&
|
||||||
include "concom%%MARCVERSION%%" ! concom is needed for inc, subinc, ncycle, lovl
|
include "concom%%MARCVERSION%%" ! concom is needed for inc, subinc, ncycle, lovl
|
||||||
include "creeps%%MARCVERSION%%" ! creeps is needed for timinc (time increment)
|
include "creeps%%MARCVERSION%%" ! creeps is needed for timinc (time increment)
|
||||||
|
|
||||||
integer(pInt) computationMode, i
|
integer(pInt) computationMode, i, cp_en
|
||||||
|
|
||||||
if (inc == 0) then
|
if ( .not. CPFEM_init_done ) then
|
||||||
cycleCounter = 4
|
|
||||||
|
computationMode = 2 ! calc + init
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write (6,'(i6,x,i2,x,a)') n(1),nn,'first call special case..!'; call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
|
|
||||||
|
else if (lovl == 4) then ! Marc requires stiffness in separate call
|
||||||
|
computationMode = 6 ! --> just return known value
|
||||||
else
|
else
|
||||||
if (theCycle > ncycle .or. theInc /= inc) then
|
cp_en = mesh_FEasCP('elem',n(1))
|
||||||
cycleCounter = 0 ! reset counter for each cutback or new inc
|
if (theTime < cptim .or. theInc /= inc) then ! reached convergence
|
||||||
terminallyIll = .false.
|
|
||||||
endif
|
|
||||||
if (theCycle /= ncycle .or. theLovl /= lovl) then
|
|
||||||
cycleCounter = cycleCounter+1 ! ping pong
|
|
||||||
outdatedFFN1 = .false.
|
|
||||||
write (6,*) n(1),nn,'cycleCounter',cycleCounter
|
|
||||||
call debug_info() ! output of debugging/performance statistics of former
|
|
||||||
call debug_reset()
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
if (cptim > theTime .or. theInc /= inc) then ! reached convergence
|
|
||||||
lastIncConverged = .true.
|
lastIncConverged = .true.
|
||||||
outdatedByNewInc = .true.
|
outdatedByNewInc = .true.
|
||||||
write (6,*) n(1),nn,'lastIncConverged + outdated'
|
terminallyIll = .false.
|
||||||
|
cycleCounter = 0
|
||||||
|
!$OMP CRITICAL (write2out)
|
||||||
|
write (6,'(i6,x,i2,x,a)') n(1),nn,'lastIncConverged + outdated'; call flush(6)
|
||||||
|
!$OMP END CRITICAL (write2out)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if (mod(cycleCounter,2) /= 0) computationMode = 4 ! recycle in odd cycles
|
if ( timinc < theDelta ) then ! cutBack
|
||||||
if (mod(cycleCounter,4) == 2) computationMode = 3 ! collect in 2,6,10,...
|
calcMode = .true. ! pretend last step was calculation
|
||||||
if (mod(cycleCounter,4) == 0) computationMode = 2 ! compute in 0,4,8,...
|
cutBack = .true.
|
||||||
if (computationMode == 4 .and. ncycle == 0 .and. .not. lastIncConverged) &
|
terminallyIll = .false.
|
||||||
computationMode = 6 ! recycle but restore known good consistent tangent
|
cycleCounter = 0
|
||||||
if (computationMode == 4 .and. lastIncConverged) then
|
!$OMP CRITICAL (write2out)
|
||||||
computationMode = 5 ! recycle and record former consistent tangent
|
write(6,'(i6,x,i2,x,a)') n(1),nn,'cutback detected..!'; call flush(6)
|
||||||
lastIncConverged = .false.
|
!$OMP END CRITICAL (write2out)
|
||||||
endif
|
endif
|
||||||
if (computationMode == 2 .and. outdatedByNewInc) then
|
|
||||||
computationMode = 1 ! compute and age former results
|
calcMode(nn,cp_en) = .not. calcMode(nn,cp_en) ! ping pong (calc <--> collect)
|
||||||
|
|
||||||
|
if ( calcMode(nn,cp_en) ) then ! now calc
|
||||||
|
if ( lastMode .ne. calcMode(nn,cp_en) ) then ! first after ping pong
|
||||||
|
call debug_reset() ! resets debugging
|
||||||
|
outdatedFFN1 = .false.
|
||||||
|
cycleCounter = cycleCounter + 1
|
||||||
|
endif
|
||||||
|
if ( outdatedByNewInc ) then
|
||||||
outdatedByNewInc = .false.
|
outdatedByNewInc = .false.
|
||||||
|
computationMode = 1 ! calc and age results
|
||||||
|
else
|
||||||
|
computationMode = 2 ! plain calc
|
||||||
|
endif
|
||||||
|
else ! now collect
|
||||||
|
if ( lastMode .ne. calcMode(nn,cp_en) ) call debug_info() ! first after ping pong reports debugging
|
||||||
|
if ( lastIncConverged ) then
|
||||||
|
lastIncConverged = .false.
|
||||||
|
computationMode = 4 ! collect and backup Jacobian after convergence
|
||||||
|
elseif ( cutBack ) then
|
||||||
|
cutBack = .false.
|
||||||
|
computationMode = 5 ! collect and restore Jacobian after cutback
|
||||||
|
else
|
||||||
|
computationMode = 3 ! plain collect
|
||||||
|
endif
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
if (lovl /= 4) then ! pass-by for Marc recycle
|
||||||
theTime = cptim ! record current starting time
|
theTime = cptim ! record current starting time
|
||||||
|
theDelta = timinc ! record current time increment
|
||||||
theInc = inc ! record current increment number
|
theInc = inc ! record current increment number
|
||||||
theCycle = ncycle ! record current cycle count
|
if (CPFEM_init_done) lastMode = calcMode(nn,cp_en) ! record calculationMode
|
||||||
theLovl = lovl ! record current lovl
|
endif
|
||||||
|
|
||||||
call CPFEM_general(computationMode,ffn,ffn1,t(1),timinc,n(1),nn,s,d,ngens)
|
call CPFEM_general(computationMode,ffn,ffn1,t(1),timinc,n(1),nn,s,d,ngens)
|
||||||
|
|
||||||
|
|
@ -269,55 +302,3 @@ subroutine plotv(&
|
||||||
return
|
return
|
||||||
|
|
||||||
end subroutine
|
end subroutine
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
! subroutine utimestep(timestep,timestepold,icall,time,timeloadcase)
|
|
||||||
!********************************************************************
|
|
||||||
! This routine modifies the addaptive time step of Marc
|
|
||||||
!********************************************************************
|
|
||||||
! use prec, only: pReal,pInt
|
|
||||||
! use CPFEM, only : CPFEM_timefactor_max
|
|
||||||
! implicit none
|
|
||||||
!
|
|
||||||
! real(pReal) timestep, timestepold, time,timeloadcase
|
|
||||||
! integer(pInt) icall
|
|
||||||
!
|
|
||||||
! user subroutine for modifying the time step in auto step
|
|
||||||
!
|
|
||||||
! timestep : the current time step as suggested by marc
|
|
||||||
! to be modified in this routine
|
|
||||||
! timestepold : the current time step before it was modified by marc
|
|
||||||
! icall : =1 for setting the initial time step
|
|
||||||
! =2 if this routine is called during an increment
|
|
||||||
! =3 if this routine is called at the beginning
|
|
||||||
! of the increment
|
|
||||||
! time : time at the start of the current increment
|
|
||||||
! timeloadcase: time period of the current load case
|
|
||||||
!
|
|
||||||
! it is in general not recommended to increase the time step
|
|
||||||
! during the increment.
|
|
||||||
! this routine is called right after the time step has (possibly)
|
|
||||||
! been updated by marc.
|
|
||||||
!
|
|
||||||
! user coding
|
|
||||||
! reduce timestep during increment in case mpie_timefactor is too large
|
|
||||||
! if(icall==2_pInt) then
|
|
||||||
! if(mpie_timefactor_max>1.25_pReal) then
|
|
||||||
! timestep=min(timestep,timestepold*0.8_pReal)
|
|
||||||
! end if
|
|
||||||
! return
|
|
||||||
! modify timestep at beginning of new increment
|
|
||||||
! else if(icall==3_pInt) then
|
|
||||||
! if(mpie_timefactor_max<=0.8_pReal) then
|
|
||||||
! timestep=min(timestep,timestepold*1.25_pReal)
|
|
||||||
! else if (mpie_timefactor_max<=1.0_pReal) then
|
|
||||||
! timestep=min(timestep,timestepold/mpie_timefactor_max)
|
|
||||||
! else if (mpie_timefactor_max<=1.25_pReal) then
|
|
||||||
! timestep=min(timestep,timestepold*1.01_pReal)
|
|
||||||
! else
|
|
||||||
! timestep=min(timestep,timestepold*0.8_pReal)
|
|
||||||
! end if
|
|
||||||
! end if
|
|
||||||
! return
|
|
||||||
! end
|
|
||||||
Loading…
Reference in New Issue