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

remove redundant debug output

This commit is contained in:
Chen Zhang 2014-09-16 18:22:03 +00:00
parent cc7064d025
commit 2d460c3b78
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/CPFEM.f90
View File

@ -150,7 +150,7 @@ subroutine CPFEM_init
#ifdef NEWSTATE #ifdef NEWSTATE
homogState, & homogState, &
mappingHomogenization, & mappingHomogenization, &
#endif #endif
phase_plasticity, & phase_plasticity, &
plasticState plasticState
use crystallite, only: & use crystallite, only: &
@ -317,7 +317,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, temperature, dt, elFE, ip)
#ifdef NEWSTATE #ifdef NEWSTATE
homogState, & homogState, &
mappingHomogenization, & mappingHomogenization, &
#endif #endif
thermalState, & thermalState, &
mappingConstitutive, & mappingConstitutive, &
material_phase, & material_phase, &
@ -659,10 +659,6 @@ subroutine CPFEM_general(mode, ffn, ffn1, temperature, dt, elFE, ip)
cauchyStress = CPFEM_cs (1:6, ip,elCP) cauchyStress = CPFEM_cs (1:6, ip,elCP)
jacobian = CPFEM_dcsdE(1:6,1:6,ip,elCP) jacobian = CPFEM_dcsdE(1:6,1:6,ip,elCP)
if (iand(mode, CPFEM_COLLECT) == 0_pInt &
.and. maxval(abs(cauchyStress)) > 1e10) &
write(6,'(a,i8,1x,i2,/,12x,6(f10.3,1x)/)') &
'<< CPFEM >> stress/MPa at elFE ip ', elFE, ip, cauchyStress*1.0e-6_pReal
!*** remember extreme values of stress ... !*** remember extreme values of stress ...
cauchyStress33 = math_Mandel6to33(CPFEM_cs(1:6,ip,elCP)) cauchyStress33 = math_Mandel6to33(CPFEM_cs(1:6,ip,elCP))