From 145d971d7eb4c2d5306441066ac4021a6bc70ca3 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Wed, 30 May 2012 08:05:36 +0000 Subject: [PATCH] added some debug output --- code/constitutive_nonlocal.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 65ea58040..11c72e4e7 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -1718,6 +1718,8 @@ deltaState%p = reshape(deltaRho,(/10_pInt*ns/)) .and. ((debug_e == el .and. debug_i == ip .and. debug_g == g)& .or. .not. iand(debug_what(debug_constitutive),debug_levelSelective) /= 0_pInt )) then write(6,'(a,/,8(12x,12(e12.5,1x),/))') '<< CONST >> dislocation remobilization', deltaRhoRemobilization(1:ns,1:8) + write(6,'(a,/,10(12x,12(e12.5,1x),/))') '<< CONST >> dipole formation by stress decrease', deltaRhoSingle2DipoleStress + write(6,'(a,/,10(12x,12(e12.5,1x),/))') '<< CONST >> dipole dissociation by stress increase', deltaRhoDipole2SingleStress write(6,*) endif #endif