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

exception for marc

This commit is contained in:
Sharan Roongta 2020-06-18 19:31:08 +02:00
parent 5bbbad9888
commit 9a03a6d13a
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/DAMASK_marc.f90
View File

@ -253,8 +253,8 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
lastIncConverged = .false., & !< needs description lastIncConverged = .false., & !< needs description
outdatedByNewInc = .false., & !< needs description outdatedByNewInc = .false., & !< needs description
CPFEM_init_done = .false. !< remember whether init has been done already CPFEM_init_done = .false. !< remember whether init has been done already
if (iand(debug_level(debug_MARC),debug_LEVELBASIC) /= 0) then if(debug_marc_basic) then
write(6,'(a,/,i8,i8,i2)') ' MSC.MARC information on shape of element(2), IP:', m, nn write(6,'(a,/,i8,i8,i2)') ' MSC.MARC information on shape of element(2), IP:', m, nn
write(6,'(a,2(i1))') ' Jacobian: ', ngens,ngens write(6,'(a,2(i1))') ' Jacobian: ', ngens,ngens
write(6,'(a,i1)') ' Direct stress: ', ndi write(6,'(a,i1)') ' Direct stress: ', ndi

11
src/debug.f90
View File

@ -15,8 +15,11 @@ module debug
private private
class(tNode), pointer, public :: & class(tNode), pointer, public :: &
debug_root debug_root
logical, public :: &
debug_marc_basic = .false.
public :: debug_init public :: debug_init
contains contains
@ -30,6 +33,8 @@ subroutine debug_init
character(len=:), allocatable :: & character(len=:), allocatable :: &
debug_input, & debug_input, &
debug_inFlow debug_inFlow
class(tNode), pointer :: &
debug_Marc
logical :: fexist logical :: fexist
write(6,'(/,a)') ' <<<+- debug init -+>>>' write(6,'(/,a)') ' <<<+- debug init -+>>>'
@ -43,6 +48,8 @@ subroutine debug_init
debug_input = IO_read('debug.yaml') debug_input = IO_read('debug.yaml')
debug_inFlow = to_flow(debug_input) debug_inFlow = to_flow(debug_input)
debug_root => parse_flow(debug_inFlow,defaultVal=emptyDict) debug_root => parse_flow(debug_inFlow,defaultVal=emptyDict)
debug_Marc => debug_root%get('marc',defaultVal=emptyList)
debug_marc_basic = debug_Marc%contains('basic')
endif fileExists endif fileExists
end subroutine debug_init end subroutine debug_init