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

did only compile with BUILD_TYPE=DEBUG

This commit is contained in:
Arka Lahiri 2018-05-09 16:54:06 +02:00
parent 90e9b98584
commit 4d393518ac
2 changed files with 6 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/constitutive.f90
View File

@ -948,15 +948,6 @@ subroutine constitutive_collectDotState(Tstar_v, FeArray, FpArray, subdt, subfra
end select sourceType
enddo SourceLoop
if (iand(debug_level(debug_constitutive), debug_levelBasic) /= 0_pInt) then
call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
!$OMP CRITICAL (debugTimingDotState)
!debug_cumDotStateCalls = debug_cumDotStateCalls + 1_pInt
!debug_cumDotStateTicks = debug_cumDotStateTicks + tock-tick
!$OMP FLUSH (debug_cumDotStateTicks)
!if (tock < tick) debug_cumDotStateTicks = debug_cumDotStateTicks + maxticks
!$OMP END CRITICAL (debugTimingDotState)
endif
end subroutine constitutive_collectDotState
!--------------------------------------------------------------------------------------------------
@ -1032,16 +1023,6 @@ subroutine constitutive_collectDeltaState(Tstar_v, Fe, ipc, ip, el)
end select sourceType
enddo SourceLoop
if (iand(debug_level(debug_constitutive), debug_levelBasic) /= 0_pInt) then
call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
!$OMP CRITICAL (debugTimingDeltaState)
!debug_cumDeltaStateCalls = debug_cumDeltaStateCalls + 1_pInt
!debug_cumDeltaStateTicks = debug_cumDeltaStateTicks + tock-tick
!$OMP FLUSH (debug_cumDeltaStateTicks)
!if (tock < tick) debug_cumDeltaStateTicks = debug_cumDeltaStateTicks + maxticks
!$OMP END CRITICAL (debugTimingDeltaState)
endif
end subroutine constitutive_collectDeltaState

28
src/crystallite.f90
View File

@ -3239,19 +3239,16 @@ logical function crystallite_integrateStress(&
subStepSizeLp, &
subStepSizeLi
use debug, only: debug_level, &
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
#ifdef DEBUG
debug_e, &
debug_i, &
debug_g!, &
debug_g, &
#endif
!debug_cumLpCalls, &
!debug_cumLpTicks, &
!debug_StressLoopLpDistribution, &
!debug_StressLoopLiDistribution
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective
use constitutive, only: constitutive_LpAndItsTangent, &
constitutive_LiAndItsTangent, &
constitutive_TandItsTangent
@ -3457,9 +3454,6 @@ logical function crystallite_integrateStress(&
!* calculate plastic velocity gradient and its tangent from constitutive law
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) &
call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
#ifdef DEBUG
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &
@ -3474,16 +3468,6 @@ logical function crystallite_integrateStress(&
call constitutive_LpAndItsTangent(Lp_constitutive, dLp_dT3333, dLp_dFi3333, &
Tstar_v, Fi_new, ipc, ip, el)
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
!$OMP CRITICAL (debugTimingLpTangent)
!debug_cumLpCalls = debug_cumLpCalls + 1_pInt
!debug_cumLpTicks = debug_cumLpTicks + tock-tick
!$OMP FLUSH (debug_cumLpTicks)
!if (tock < tick) debug_cumLpTicks = debug_cumLpTicks + maxticks
!$OMP END CRITICAL (debugTimingLpTangent)
endif
#ifdef DEBUG
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &