From 838a8be1b9db5a90dc29d96f264ab8a323cd5875 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 12 May 2014 09:28:32 +0000 Subject: [PATCH] removed forgotten debug statements from last commit fixed material.config for abaqus example --- code/DAMASK_spectral_driver.f90 | 1 - code/constitutive_phenopowerlaw.f90 | 6 +----- code/crystallite.f90 | 7 ------- code/mesh.f90 | 1 - examples/AbaqusStandard/material.config | 4 ++-- 5 files changed, 3 insertions(+), 16 deletions(-) diff --git a/code/DAMASK_spectral_driver.f90 b/code/DAMASK_spectral_driver.f90 index ac56f410c..d7fb5a542 100644 --- a/code/DAMASK_spectral_driver.f90 +++ b/code/DAMASK_spectral_driver.f90 @@ -135,7 +135,6 @@ program DAMASK_spectral_Driver !-------------------------------------------------------------------------------------------------- ! init DAMASK (all modules) call CPFEM_initAll(temperature = 300.0_pReal, el = 1_pInt, ip = 1_pInt) - !print*, 'Flag' write(6,'(/,a)') ' <<<+- DAMASK_spectral_driver init -+>>>' write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() diff --git a/code/constitutive_phenopowerlaw.f90 b/code/constitutive_phenopowerlaw.f90 index 0f501390b..91897e758 100644 --- a/code/constitutive_phenopowerlaw.f90 +++ b/code/constitutive_phenopowerlaw.f90 @@ -155,12 +155,8 @@ subroutine constitutive_phenopowerlaw_init(fileUnit) write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_PHENOPOWERLAW_label//' init -+>>>' write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() - write(6,*) '******Flag in DAMASK********' #include "compilation_info.f90" - - -! write(6,*) 'lattice_maxNslipFamily=',lattice_maxNslipFamily maxNinstance = int(count(phase_plasticity == PLASTICITY_PHENOPOWERLAW_ID),pInt) if (maxNinstance == 0_pInt) return @@ -702,7 +698,7 @@ pure subroutine constitutive_phenopowerlaw_LpAndItsTangent(Lp,dLp_dTstar99,Tstar ((abs(tau_slip_neg(j))/state%p(j))**constitutive_phenopowerlaw_n_slip(instance))*& sign(1.0_pReal,tau_slip_neg(j)) Lp = Lp + (1.0_pReal-state%p(index_F))*& ! 1-F - (gdot_slip_pos(j)+gdot_slip_neg(j))*lattice_Sslip(1:3,1:3,1,index_myFamily+i,phase) +1 + (gdot_slip_pos(j)+gdot_slip_neg(j))*lattice_Sslip(1:3,1:3,1,index_myFamily+i,phase) !-------------------------------------------------------------------------------------------------- ! Calculation of the tangent of Lp diff --git a/code/crystallite.f90 b/code/crystallite.f90 index e3f9b15d0..04613076e 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -3547,11 +3547,4 @@ function crystallite_postResults(ipc, ip, el) end function crystallite_postResults -!subroutine gradients -!use DAMASK_spectral_utilities - -!implicit none - -!end subroutine gradients - end module crystallite diff --git a/code/mesh.f90 b/code/mesh.f90 index 9d0f2ede6..b59ffba75 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -615,7 +615,6 @@ subroutine mesh_init(ip,el) calcMode = .false. ! pretend to have collected what first call is asking (F = I) calcMode(ip,mesh_FEasCP('elem',el)) = .true. ! first ip,el needs to be already pingponged to "calc" - print*,'flag in mesh',mesh_maxNips,mesh_NcpElems end subroutine mesh_init diff --git a/examples/AbaqusStandard/material.config b/examples/AbaqusStandard/material.config index 95919c93c..e39a790ec 100644 --- a/examples/AbaqusStandard/material.config +++ b/examples/AbaqusStandard/material.config @@ -57,8 +57,8 @@ plasticity phenopowerlaw (output) totalvolfrac lattice_structure fcc -Nslip 12 0 0 0 # per family -Ntwin 0 0 0 0 # per family +Nslip 12 +Ntwin 0 c11 106.75e9 c12 60.41e9