increased debug threshold for some outputs (decreased verbosity level at "basic")

This commit is contained in:
Philip Eisenlohr 2014-05-15 13:01:54 +00:00
parent 4915725e34
commit 88f94cbbec
1 changed files with 17 additions and 7 deletions

View File

@ -601,17 +601,27 @@ subroutine crystallite_stressAndItsTangent(updateJaco,rate_sensitivity)
real(pReal) :: counter
if(iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0_pInt &
.and. ((e == debug_e .and. i == debug_i .and. g == debug_g) &
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
!$OMP CRITICAL (write2out)
write(6,'(/,a,i8,1x,i2,1x,i3)') '<< CRYST >> crystallite start at el ip g ', debug_e, debug_i, debug_g
write(6,'(/a,i8,1x,i8)') '<< CRYST >> element range ', FEsolving_execElem(1),FEsolving_execElem(2)
!$OMP END CRITICAL (write2out)
endif
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt &
.and. ((e == debug_e .and. i == debug_i .and. g == debug_g) &
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
!$OMP CRITICAL (write2out)
write(6,'(/,a,i8,1x,i2,1x,i3)') '<< CRYST >> values at el ip g ', e, i, g
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> F0 ', &
math_transpose33(crystallite_partionedF0(1:3,1:3,debug_g,debug_i,debug_e))
math_transpose33(crystallite_partionedF0(1:3,1:3,g,i,e))
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Fp0', &
math_transpose33(crystallite_partionedFp0(1:3,1:3,debug_g,debug_i,debug_e))
math_transpose33(crystallite_partionedFp0(1:3,1:3,g,i,e))
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Lp0', &
math_transpose33(crystallite_partionedLp0(1:3,1:3,debug_g,debug_i,debug_e))
math_transpose33(crystallite_partionedLp0(1:3,1:3,g,i,e))
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> F ', &
math_transpose33(crystallite_partionedF(1:3,1:3,debug_g,debug_i,debug_e))
math_transpose33(crystallite_partionedF(1:3,1:3,g,i,e))
!$OMP END CRITICAL (write2out)
endif
@ -2812,7 +2822,7 @@ subroutine crystallite_integrateStateFPI()
- stateResiduum(1:mySizeDotState) ! need to copy to local variable, since we cant flush a pointer in openmp
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt &
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
.and. ((e == debug_e .and. i == debug_i .and. g == debug_g) &
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
write(6,'(a,i8,1x,i2,1x,i3,/)') '<< CRYST >> update state at el ip g ',e,i,g