2012-08-25 17:16:36 +05:30
|
|
|
! Copyright 2011,2012 Max-Planck-Institut für Eisenforschung GmbH
|
2011-04-04 19:39:54 +05:30
|
|
|
!
|
|
|
|
|
! This file is part of DAMASK,
|
2012-08-25 17:16:36 +05:30
|
|
|
! the Düsseldorf Advanced Material Simulation Kit.
|
2011-04-04 19:39:54 +05:30
|
|
|
!
|
|
|
|
|
! DAMASK is free software: you can redistribute it and/or modify
|
|
|
|
|
! it under the terms of the GNU General Public License as published by
|
|
|
|
|
! the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
! (at your option) any later version.
|
|
|
|
|
!
|
|
|
|
|
! DAMASK is distributed in the hope that it will be useful,
|
|
|
|
|
! but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
! GNU General Public License for more details.
|
|
|
|
|
!
|
|
|
|
|
! You should have received a copy of the GNU General Public License
|
|
|
|
|
! along with DAMASK. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
!
|
2012-08-25 17:16:36 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
2009-08-31 20:39:15 +05:30
|
|
|
!* $Id$
|
2012-08-25 17:16:36 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
|
|
|
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
|
|
|
|
|
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
|
|
|
|
|
!> @author Christoph Kords, Max-Planck-Institut für Eisenforschung GmbH
|
|
|
|
|
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
|
|
|
|
|
!> @brief Reading in and interpretating the debugging settings for the various modules
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
2012-03-09 01:55:28 +05:30
|
|
|
module debug
|
2012-03-20 17:56:21 +05:30
|
|
|
use prec, only: &
|
|
|
|
|
pInt, &
|
|
|
|
|
pReal, &
|
|
|
|
|
pLongInt
|
2008-01-11 00:23:57 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
implicit none
|
|
|
|
|
private
|
|
|
|
|
|
|
|
|
|
integer(pInt), parameter, public :: &
|
|
|
|
|
debug_levelSelective = 2_pInt**0_pInt, &
|
|
|
|
|
debug_levelBasic = 2_pInt**1_pInt, &
|
|
|
|
|
debug_levelExtensive = 2_pInt**2_pInt
|
|
|
|
|
integer(pInt), parameter, private :: &
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_maxGeneral = debug_levelExtensive ! must be set to the last bitcode used by (potentially) all debug types
|
2012-03-09 01:55:28 +05:30
|
|
|
integer(pInt), parameter, public :: &
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_spectralRestart = debug_maxGeneral*2_pInt**1_pInt, &
|
|
|
|
|
debug_spectralFFTW = debug_maxGeneral*2_pInt**2_pInt, &
|
|
|
|
|
debug_spectralDivergence = debug_maxGeneral*2_pInt**3_pInt
|
2012-03-09 01:55:28 +05:30
|
|
|
|
|
|
|
|
integer(pInt), parameter, public :: &
|
|
|
|
|
debug_debug = 1_pInt, &
|
|
|
|
|
debug_math = 2_pInt, &
|
|
|
|
|
debug_FEsolving = 3_pInt, &
|
2012-08-25 17:16:36 +05:30
|
|
|
debug_mesh = 4_pInt, & !< stores debug level for mesh part of DAMASK bitwise coded
|
|
|
|
|
debug_material = 5_pInt, & !< stores debug level for material part of DAMASK bitwise coded
|
|
|
|
|
debug_lattice = 6_pInt, & !< stores debug level for lattice part of DAMASK bitwise coded
|
|
|
|
|
debug_constitutive = 7_pInt, & !< stores debug level for constitutive part of DAMASK bitwise coded
|
2012-03-09 01:55:28 +05:30
|
|
|
debug_crystallite = 8_pInt, &
|
|
|
|
|
debug_homogenization = 9_pInt, &
|
|
|
|
|
debug_CPFEM = 10_pInt, &
|
2012-03-20 23:31:31 +05:30
|
|
|
debug_spectral = 11_pInt, &
|
|
|
|
|
debug_abaqus = 12_pInt
|
2012-03-21 23:34:52 +05:30
|
|
|
integer(pInt), parameter, private :: &
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_maxNtype = debug_abaqus ! must be set to the maximum defined debug type
|
2012-03-09 01:55:28 +05:30
|
|
|
|
2012-10-02 15:05:39 +05:30
|
|
|
integer(pInt),protected, dimension(debug_maxNtype+2_pInt), public :: & ! specific ones, and 2 for "all" and "other"
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_level = 0_pInt
|
2012-03-09 01:55:28 +05:30
|
|
|
|
|
|
|
|
integer(pInt), public :: &
|
2012-10-12 23:30:55 +05:30
|
|
|
debug_cumLpCalls = 0_pInt, & ! total number of calls to LpAndItsTangent
|
|
|
|
|
debug_cumDeltaStateCalls = 0_pInt, & ! total number of calls to deltaState
|
|
|
|
|
debug_cumDotStateCalls = 0_pInt, & ! total number of calls to dotState
|
|
|
|
|
debug_cumDotTemperatureCalls = 0_pInt, & ! total number of calls to dotTemprature
|
2012-03-09 01:55:28 +05:30
|
|
|
debug_e = 1_pInt, &
|
|
|
|
|
debug_i = 1_pInt, &
|
|
|
|
|
debug_g = 1_pInt
|
|
|
|
|
|
|
|
|
|
integer(pLongInt), public :: &
|
2012-10-12 23:30:55 +05:30
|
|
|
debug_cumLpTicks = 0_pLongInt, & ! total cpu ticks spent in LpAndItsTangent
|
|
|
|
|
debug_cumDeltaStateTicks = 0_pLongInt, & ! total cpu ticks spent in deltaState
|
|
|
|
|
debug_cumDotStateTicks = 0_pLongInt, & ! total cpu ticks spent in dotState
|
|
|
|
|
debug_cumDotTemperatureTicks = 0_pLongInt ! total cpu ticks spent in dotTemperature
|
2012-03-09 01:55:28 +05:30
|
|
|
|
|
|
|
|
integer(pInt), dimension(2), public :: &
|
|
|
|
|
debug_stressMaxLocation = 0_pInt, &
|
|
|
|
|
debug_stressMinLocation = 0_pInt, &
|
|
|
|
|
debug_jacobianMaxLocation = 0_pInt, &
|
|
|
|
|
debug_jacobianMinLocation = 0_pInt
|
|
|
|
|
|
|
|
|
|
integer(pInt), dimension(:), allocatable, public :: &
|
2012-10-12 23:30:55 +05:30
|
|
|
debug_CrystalliteLoopDistribution, & ! distribution of crystallite cutbacks
|
2012-03-09 01:55:28 +05:30
|
|
|
debug_MaterialpointStateLoopDistribution, &
|
|
|
|
|
debug_MaterialpointLoopDistribution
|
2010-09-23 13:31:41 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
integer(pInt), dimension(:,:), allocatable, public :: &
|
2012-10-12 23:30:55 +05:30
|
|
|
debug_StressLoopDistribution, & ! distribution of stress iterations until convergence
|
|
|
|
|
debug_StateLoopDistribution ! distribution of state iterations until convergence
|
2012-03-09 01:55:28 +05:30
|
|
|
|
|
|
|
|
real(pReal), public :: &
|
|
|
|
|
debug_stressMax = -huge(1.0_pReal), &
|
|
|
|
|
debug_stressMin = huge(1.0_pReal), &
|
|
|
|
|
debug_jacobianMax = -huge(1.0_pReal), &
|
|
|
|
|
debug_jacobianMin = huge(1.0_pReal)
|
|
|
|
|
|
|
|
|
|
character(len=64), parameter, private :: &
|
|
|
|
|
debug_configFile = 'debug.config' ! name of configuration file
|
|
|
|
|
|
|
|
|
|
public :: debug_init, &
|
|
|
|
|
debug_reset, &
|
|
|
|
|
debug_info
|
2008-02-19 18:28:46 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
contains
|
2008-02-19 18:28:46 +05:30
|
|
|
|
2009-10-22 14:44:17 +05:30
|
|
|
|
|
|
|
|
!********************************************************************
|
|
|
|
|
! initialize the debugging capabilities
|
|
|
|
|
!********************************************************************
|
2012-03-09 01:55:28 +05:30
|
|
|
subroutine debug_init
|
|
|
|
|
|
|
|
|
|
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
|
|
|
|
|
use numerics, only: nStress, &
|
|
|
|
|
nState, &
|
|
|
|
|
nCryst, &
|
|
|
|
|
nMPstate, &
|
|
|
|
|
nHomog
|
|
|
|
|
use IO, only: IO_error, &
|
|
|
|
|
IO_open_file_stat, &
|
|
|
|
|
IO_isBlank, &
|
|
|
|
|
IO_stringPos, &
|
|
|
|
|
IO_stringValue, &
|
|
|
|
|
IO_lc, &
|
|
|
|
|
IO_floatValue, &
|
|
|
|
|
IO_intValue
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
integer(pInt), parameter :: fileunit = 300_pInt
|
2012-07-05 15:24:50 +05:30
|
|
|
integer(pInt), parameter :: maxNchunks = 7_pInt
|
2012-03-09 01:55:28 +05:30
|
|
|
|
|
|
|
|
integer(pInt) :: i, what
|
|
|
|
|
integer(pInt), dimension(1+2*maxNchunks) :: positions
|
|
|
|
|
character(len=64) :: tag
|
|
|
|
|
character(len=1024) :: line
|
|
|
|
|
|
|
|
|
|
!$OMP CRITICAL (write2out)
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,*) '<<<+- debug init -+>>>'
|
|
|
|
|
write(6,*) '$Id$'
|
2012-02-01 00:48:55 +05:30
|
|
|
#include "compilation_info.f90"
|
2012-03-09 01:55:28 +05:30
|
|
|
!$OMP END CRITICAL (write2out)
|
|
|
|
|
|
2012-07-31 19:30:15 +05:30
|
|
|
if (allocated(debug_StressLoopDistribution)) &
|
|
|
|
|
deallocate(debug_StressLoopDistribution)
|
2012-10-12 23:30:55 +05:30
|
|
|
allocate(debug_StressLoopDistribution(nStress+1,2))
|
2012-07-31 19:30:15 +05:30
|
|
|
debug_StressLoopDistribution = 0_pInt
|
|
|
|
|
if (allocated(debug_StateLoopDistribution)) &
|
|
|
|
|
deallocate(debug_StateLoopDistribution)
|
2012-10-12 23:30:55 +05:30
|
|
|
allocate(debug_StateLoopDistribution(nState+1,2))
|
2012-07-31 19:30:15 +05:30
|
|
|
debug_StateLoopDistribution = 0_pInt
|
|
|
|
|
if (allocated(debug_CrystalliteLoopDistribution)) &
|
|
|
|
|
deallocate(debug_CrystalliteLoopDistribution)
|
|
|
|
|
allocate(debug_CrystalliteLoopDistribution(nCryst+1))
|
|
|
|
|
debug_CrystalliteLoopDistribution = 0_pInt
|
|
|
|
|
if (allocated(debug_MaterialpointStateLoopDistribution)) &
|
|
|
|
|
deallocate(debug_MaterialpointStateLoopDistribution)
|
|
|
|
|
allocate(debug_MaterialpointStateLoopDistribution(nMPstate))
|
|
|
|
|
debug_MaterialpointStateLoopDistribution = 0_pInt
|
|
|
|
|
if (allocated(debug_MaterialpointLoopDistribution)) &
|
|
|
|
|
deallocate(debug_MaterialpointLoopDistribution)
|
|
|
|
|
allocate(debug_MaterialpointLoopDistribution(nHomog+1))
|
|
|
|
|
debug_MaterialpointLoopDistribution = 0_pInt
|
2012-03-09 01:55:28 +05:30
|
|
|
|
|
|
|
|
|
|
|
|
|
! try to open the config file
|
|
|
|
|
if(IO_open_file_stat(fileunit,debug_configFile)) then
|
|
|
|
|
|
|
|
|
|
! read variables from config file and overwrite parameters
|
|
|
|
|
do
|
|
|
|
|
read(fileunit,'(a1024)',END=100) line
|
|
|
|
|
if (IO_isBlank(line)) cycle ! skip empty lines
|
|
|
|
|
positions = IO_stringPos(line,maxNchunks)
|
|
|
|
|
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
|
|
|
|
|
select case(tag)
|
|
|
|
|
case ('element','e','el')
|
|
|
|
|
debug_e = IO_intValue(line,positions,2_pInt)
|
|
|
|
|
case ('integrationpoint','i','ip')
|
|
|
|
|
debug_i = IO_intValue(line,positions,2_pInt)
|
|
|
|
|
case ('grain','g','gr')
|
|
|
|
|
debug_g = IO_intValue(line,positions,2_pInt)
|
|
|
|
|
end select
|
|
|
|
|
|
|
|
|
|
what = 0_pInt
|
|
|
|
|
select case(tag)
|
|
|
|
|
case ('debug')
|
|
|
|
|
what = debug_debug
|
|
|
|
|
case ('math')
|
|
|
|
|
what = debug_math
|
|
|
|
|
case ('fesolving', 'fe')
|
|
|
|
|
what = debug_FEsolving
|
|
|
|
|
case ('mesh')
|
|
|
|
|
what = debug_mesh
|
|
|
|
|
case ('material')
|
|
|
|
|
what = debug_material
|
|
|
|
|
case ('lattice')
|
|
|
|
|
what = debug_lattice
|
|
|
|
|
case ('constitutive')
|
|
|
|
|
what = debug_constitutive
|
|
|
|
|
case ('crystallite')
|
|
|
|
|
what = debug_crystallite
|
|
|
|
|
case ('homogenization')
|
|
|
|
|
what = debug_homogenization
|
|
|
|
|
case ('cpfem')
|
|
|
|
|
what = debug_CPFEM
|
|
|
|
|
case ('spectral')
|
|
|
|
|
what = debug_spectral
|
2012-03-20 23:31:31 +05:30
|
|
|
case ('abaqus')
|
|
|
|
|
what = debug_abaqus
|
2012-03-09 01:55:28 +05:30
|
|
|
case ('all')
|
2012-07-05 15:24:50 +05:30
|
|
|
what = debug_maxNtype + 1_pInt
|
2012-03-09 01:55:28 +05:30
|
|
|
case ('other')
|
2012-07-05 15:24:50 +05:30
|
|
|
what = debug_maxNtype + 2_pInt
|
2012-03-09 01:55:28 +05:30
|
|
|
end select
|
|
|
|
|
if(what /= 0) then
|
|
|
|
|
do i = 2_pInt, maxNchunks
|
|
|
|
|
select case(IO_lc(IO_stringValue(line,positions,i)))
|
|
|
|
|
case('basic')
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_level(what) = ior(debug_level(what), debug_levelBasic)
|
2012-03-09 01:55:28 +05:30
|
|
|
case('extensive')
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_level(what) = ior(debug_level(what), debug_levelExtensive)
|
2012-03-09 01:55:28 +05:30
|
|
|
case('selective')
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_level(what) = ior(debug_level(what), debug_levelSelective)
|
2012-03-09 01:55:28 +05:30
|
|
|
case('restart')
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_level(what) = ior(debug_level(what), debug_spectralRestart)
|
2012-03-09 01:55:28 +05:30
|
|
|
case('fft','fftw')
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_level(what) = ior(debug_level(what), debug_spectralFFTW)
|
2012-03-09 01:55:28 +05:30
|
|
|
case('divergence')
|
2012-07-05 15:24:50 +05:30
|
|
|
debug_level(what) = ior(debug_level(what), debug_spectralDivergence)
|
2012-03-09 01:55:28 +05:30
|
|
|
end select
|
|
|
|
|
enddo
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
100 close(fileunit)
|
|
|
|
|
|
2012-07-05 15:24:50 +05:30
|
|
|
do i = 1_pInt, debug_maxNtype
|
|
|
|
|
if (debug_level(i) == 0) &
|
|
|
|
|
debug_level(i) = ior(debug_level(i), debug_level(debug_maxNtype + 2_pInt)) ! fill undefined debug types with levels specified by "other"
|
|
|
|
|
|
|
|
|
|
debug_level(i) = ior(debug_level(i), debug_level(debug_maxNtype + 1_pInt)) ! fill all debug types with levels specified by "all"
|
2012-03-09 01:55:28 +05:30
|
|
|
enddo
|
2010-09-23 13:31:41 +05:30
|
|
|
|
2012-07-05 15:24:50 +05:30
|
|
|
if (iand(debug_level(debug_debug),debug_levelBasic) /= 0) then
|
2012-03-09 01:55:28 +05:30
|
|
|
!$OMP CRITICAL (write2out)
|
|
|
|
|
write(6,*) 'using values from config file'
|
|
|
|
|
write(6,*)
|
|
|
|
|
!$OMP END CRITICAL (write2out)
|
|
|
|
|
endif
|
2010-09-23 14:43:46 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
! no config file, so we use standard values
|
|
|
|
|
else
|
2012-07-05 15:24:50 +05:30
|
|
|
if (iand(debug_level(debug_debug),debug_levelBasic) /= 0) then
|
2012-03-09 01:55:28 +05:30
|
|
|
!$OMP CRITICAL (write2out)
|
|
|
|
|
write(6,*) 'using standard values'
|
|
|
|
|
write(6,*)
|
|
|
|
|
!$OMP END CRITICAL (write2out)
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
!output switched on (debug level for debug must be extensive)
|
2012-07-05 15:24:50 +05:30
|
|
|
if (iand(debug_level(debug_debug),debug_levelExtensive) /= 0) then
|
|
|
|
|
do i = 1_pInt, debug_maxNtype
|
|
|
|
|
select case(i)
|
|
|
|
|
case (debug_debug)
|
|
|
|
|
tag = 'Debug'
|
|
|
|
|
case (debug_math)
|
|
|
|
|
tag = 'Math'
|
|
|
|
|
case (debug_FEsolving)
|
|
|
|
|
tag = 'FEsolving'
|
|
|
|
|
case (debug_mesh)
|
|
|
|
|
tag = 'Mesh'
|
|
|
|
|
case (debug_material)
|
|
|
|
|
tag = 'Material'
|
|
|
|
|
case (debug_lattice)
|
|
|
|
|
tag = 'Lattice'
|
|
|
|
|
case (debug_constitutive)
|
|
|
|
|
tag = 'Constitutive'
|
|
|
|
|
case (debug_crystallite)
|
|
|
|
|
tag = 'Crystallite'
|
|
|
|
|
case (debug_homogenization)
|
|
|
|
|
tag = 'Homogenizaiton'
|
|
|
|
|
case (debug_CPFEM)
|
|
|
|
|
tag = 'CPFEM'
|
|
|
|
|
case (debug_spectral)
|
|
|
|
|
tag = 'Spectral solver'
|
|
|
|
|
case (debug_abaqus)
|
|
|
|
|
tag = 'ABAQUS FEM solver'
|
|
|
|
|
end select
|
|
|
|
|
|
|
|
|
|
if(debug_level(i) /= 0) then
|
2012-03-09 01:55:28 +05:30
|
|
|
!$OMP CRITICAL (write2out)
|
2012-07-05 15:24:50 +05:30
|
|
|
write(6,'(a,a)') tag,' debugging:'
|
|
|
|
|
if(iand(debug_level(i),debug_levelBasic) /= 0) write(6,'(a)') ' basic'
|
|
|
|
|
if(iand(debug_level(i),debug_levelExtensive) /= 0) write(6,'(a)') ' extensive'
|
|
|
|
|
if(iand(debug_level(i),debug_levelSelective) /= 0) then
|
2012-03-09 01:55:28 +05:30
|
|
|
write(6,'(a)') 'selective on:'
|
|
|
|
|
write(6,'(a24,1x,i8)') 'element: ',debug_e
|
|
|
|
|
write(6,'(a24,1x,i8)') 'ip: ',debug_i
|
|
|
|
|
write(6,'(a24,1x,i8)') 'grain: ',debug_g
|
|
|
|
|
endif
|
2012-07-05 15:24:50 +05:30
|
|
|
if(iand(debug_level(i),debug_spectralRestart) /= 0) write(6,'(a)') ' restart'
|
|
|
|
|
if(iand(debug_level(i),debug_spectralFFTW) /= 0) write(6,'(a)') ' FFTW'
|
|
|
|
|
if(iand(debug_level(i),debug_spectralDivergence)/= 0) write(6,'(a)') ' divergence'
|
|
|
|
|
!$OMP END CRITICAL (write2out)
|
2012-03-09 01:55:28 +05:30
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
endif
|
2010-09-23 13:31:41 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
end subroutine debug_init
|
2009-06-15 18:41:21 +05:30
|
|
|
|
2009-05-07 21:57:36 +05:30
|
|
|
!********************************************************************
|
|
|
|
|
! reset debug distributions
|
|
|
|
|
!********************************************************************
|
2012-03-09 01:55:28 +05:30
|
|
|
subroutine debug_reset
|
2009-05-07 21:57:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
implicit none
|
2011-03-17 18:43:13 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
debug_StressLoopDistribution = 0_pInt ! initialize debugging data
|
|
|
|
|
debug_StateLoopDistribution = 0_pInt
|
|
|
|
|
debug_CrystalliteLoopDistribution = 0_pInt
|
|
|
|
|
debug_MaterialpointStateLoopDistribution = 0_pInt
|
|
|
|
|
debug_MaterialpointLoopDistribution = 0_pInt
|
|
|
|
|
debug_cumLpTicks = 0_pLongInt
|
2012-05-16 20:13:26 +05:30
|
|
|
debug_cumDeltaStateTicks = 0_pLongInt
|
2012-03-09 01:55:28 +05:30
|
|
|
debug_cumDotStateTicks = 0_pLongInt
|
|
|
|
|
debug_cumDotTemperatureTicks = 0_pLongInt
|
|
|
|
|
debug_cumLpCalls = 0_pInt
|
2012-05-16 20:13:26 +05:30
|
|
|
debug_cumDeltaStateCalls = 0_pInt
|
2012-03-09 01:55:28 +05:30
|
|
|
debug_cumDotStateCalls = 0_pInt
|
|
|
|
|
debug_cumDotTemperatureCalls = 0_pInt
|
|
|
|
|
debug_stressMaxLocation = 0_pInt
|
|
|
|
|
debug_stressMinLocation = 0_pInt
|
|
|
|
|
debug_jacobianMaxLocation = 0_pInt
|
|
|
|
|
debug_jacobianMinLocation = 0_pInt
|
|
|
|
|
debug_stressMax = -huge(1.0_pReal)
|
|
|
|
|
debug_stressMin = huge(1.0_pReal)
|
|
|
|
|
debug_jacobianMax = -huge(1.0_pReal)
|
|
|
|
|
debug_jacobianMin = huge(1.0_pReal)
|
2009-05-07 21:57:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
end subroutine debug_reset
|
2008-02-19 18:28:46 +05:30
|
|
|
|
|
|
|
|
!********************************************************************
|
|
|
|
|
! write debug statements to standard out
|
|
|
|
|
!********************************************************************
|
2012-03-09 01:55:28 +05:30
|
|
|
subroutine debug_info
|
2008-02-19 18:28:46 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
use numerics, only: nStress, &
|
|
|
|
|
nState, &
|
|
|
|
|
nCryst, &
|
|
|
|
|
nMPstate, &
|
|
|
|
|
nHomog
|
2009-05-07 21:57:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
implicit none
|
|
|
|
|
integer(pInt) :: i,integral
|
|
|
|
|
integer(pLongInt) :: tickrate
|
2012-10-12 23:30:55 +05:30
|
|
|
character(len=1) :: exceed
|
2009-05-07 21:57:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
call system_clock(count_rate=tickrate)
|
|
|
|
|
|
|
|
|
|
!$OMP CRITICAL (write2out)
|
2012-07-05 15:24:50 +05:30
|
|
|
if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0) then
|
2012-03-09 01:55:28 +05:30
|
|
|
write(6,*)
|
|
|
|
|
write(6,*) 'DEBUG Info (from previous cycle)'
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,'(a33,1x,i12)') 'total calls to LpAndItsTangent :',debug_cumLpCalls
|
|
|
|
|
if (debug_cumLpCalls > 0_pInt) then
|
|
|
|
|
write(6,'(a33,1x,f12.3)') 'total CPU time/s :',real(debug_cumLpTicks,pReal)&
|
|
|
|
|
/real(tickrate,pReal)
|
|
|
|
|
write(6,'(a33,1x,f12.6)') 'avg CPU time/microsecs per call :',&
|
|
|
|
|
real(debug_cumLpTicks,pReal)*1.0e6_pReal/real(tickrate,pReal)/real(debug_cumLpCalls,pReal)
|
|
|
|
|
endif
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,'(a33,1x,i12)') 'total calls to collectDotState :',debug_cumDotStateCalls
|
|
|
|
|
if (debug_cumdotStateCalls > 0_pInt) then
|
|
|
|
|
write(6,'(a33,1x,f12.3)') 'total CPU time/s :',real(debug_cumDotStateTicks,pReal)&
|
|
|
|
|
/real(tickrate,pReal)
|
|
|
|
|
write(6,'(a33,1x,f12.6)') 'avg CPU time/microsecs per call :',&
|
|
|
|
|
real(debug_cumDotStateTicks,pReal)*1.0e6_pReal/real(tickrate,pReal)&
|
|
|
|
|
/real(debug_cumDotStateCalls,pReal)
|
|
|
|
|
endif
|
|
|
|
|
write(6,*)
|
2012-05-16 20:13:26 +05:30
|
|
|
write(6,'(a33,1x,i12)') 'total calls to collectDeltaState:',debug_cumDeltaStateCalls
|
|
|
|
|
if (debug_cumDeltaStateCalls > 0_pInt) then
|
|
|
|
|
write(6,'(a33,1x,f12.3)') 'total CPU time/s :',real(debug_cumDeltaStateTicks,pReal)&
|
|
|
|
|
/real(tickrate,pReal)
|
|
|
|
|
write(6,'(a33,1x,f12.6)') 'avg CPU time/microsecs per call :',&
|
|
|
|
|
real(debug_cumDeltaStateTicks,pReal)*1.0e6_pReal/real(tickrate,pReal)&
|
|
|
|
|
/real(debug_cumDeltaStateCalls,pReal)
|
|
|
|
|
endif
|
|
|
|
|
write(6,*)
|
2012-03-09 01:55:28 +05:30
|
|
|
write(6,'(a33,1x,i12)') 'total calls to dotTemperature :',debug_cumDotTemperatureCalls
|
|
|
|
|
if (debug_cumdotTemperatureCalls > 0_pInt) then
|
|
|
|
|
write(6,'(a33,1x,f12.3)') 'total CPU time/s :',real(debug_cumDotTemperatureTicks,pReal)&
|
|
|
|
|
/real(tickrate,pReal)
|
|
|
|
|
write(6,'(a33,1x,f12.6)') 'avg CPU time/microsecs per call :',&
|
|
|
|
|
real(debug_cumDotTemperatureTicks,pReal)*1.0e6_pReal/real(tickrate,pReal)&
|
|
|
|
|
/real(debug_cumDotTemperatureCalls,pReal)
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
integral = 0_pInt
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,*)
|
2012-11-06 18:05:45 +05:30
|
|
|
write(6,*) 'distribution_StressLoop : stress stiffness'
|
2012-10-12 23:30:55 +05:30
|
|
|
do i=1_pInt,nStress+1_pInt
|
2012-11-06 18:05:45 +05:30
|
|
|
if (any(debug_StressLoopDistribution(i,:) /= 0_pInt )) then
|
2012-10-12 23:30:55 +05:30
|
|
|
integral = integral + i*(debug_StressLoopDistribution(i,1) + debug_StressLoopDistribution(i,2))
|
|
|
|
|
exceed = ' '
|
|
|
|
|
if (i > nStress) exceed = '+' ! last entry gets "+"
|
2012-11-06 18:05:45 +05:30
|
|
|
write(6,'(i25,a1,i10,1x,i10)') min(nStress,i),exceed,debug_StressLoopDistribution(i,1),&
|
|
|
|
|
debug_StressLoopDistribution(i,2)
|
2012-03-09 01:55:28 +05:30
|
|
|
endif
|
|
|
|
|
enddo
|
2012-11-06 18:05:45 +05:30
|
|
|
write(6,'(a15,i10,2(1x,i10))') ' total',integral,sum(debug_StressLoopDistribution(:,1)), &
|
|
|
|
|
sum(debug_StressLoopDistribution(:,2))
|
2012-03-09 01:55:28 +05:30
|
|
|
|
|
|
|
|
integral = 0_pInt
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,*) 'distribution_CrystalliteStateLoop :'
|
2012-10-12 23:30:55 +05:30
|
|
|
do i=1_pInt,nState+1_pInt
|
2012-03-09 01:55:28 +05:30
|
|
|
if (any(debug_StateLoopDistribution(i,:) /= 0)) then
|
2012-10-12 23:30:55 +05:30
|
|
|
integral = integral + i*(debug_StateLoopDistribution(i,1) + debug_StateLoopDistribution(i,2))
|
|
|
|
|
exceed = ' '
|
|
|
|
|
if (i > nState) exceed = '+' ! last entry gets "+"
|
2012-11-06 18:05:45 +05:30
|
|
|
write(6,'(i25,a1,i10,1x,i10)') min(nState,i),exceed,debug_StateLoopDistribution(i,1),&
|
|
|
|
|
debug_StateLoopDistribution(i,2)
|
2012-03-09 01:55:28 +05:30
|
|
|
endif
|
|
|
|
|
enddo
|
2012-11-06 18:05:45 +05:30
|
|
|
write(6,'(a15,i10,2(1x,i10))') ' total',integral,sum(debug_StateLoopDistribution(:,1)), &
|
|
|
|
|
sum(debug_StateLoopDistribution(:,2))
|
2011-03-17 18:43:13 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
integral = 0_pInt
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,*) 'distribution_CrystalliteCutbackLoop :'
|
|
|
|
|
do i=1_pInt,nCryst+1_pInt
|
|
|
|
|
if (debug_CrystalliteLoopDistribution(i) /= 0) then
|
|
|
|
|
integral = integral + i*debug_CrystalliteLoopDistribution(i)
|
2012-10-12 23:30:55 +05:30
|
|
|
exceed = ' '
|
|
|
|
|
if (i > nCryst) exceed = '+'
|
|
|
|
|
write(6,'(i25,a1,i10)') min(nCryst,i),exceed,debug_CrystalliteLoopDistribution(i)
|
2012-03-09 01:55:28 +05:30
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
write(6,'(a15,i10,1x,i10)') ' total',integral,sum(debug_CrystalliteLoopDistribution)
|
|
|
|
|
endif
|
2011-03-21 16:01:17 +05:30
|
|
|
|
2012-07-05 15:24:50 +05:30
|
|
|
if (iand(debug_level(debug_homogenization),debug_levelBasic) /= 0) then
|
2012-03-09 01:55:28 +05:30
|
|
|
integral = 0_pInt
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,*) 'distribution_MaterialpointStateLoop :'
|
|
|
|
|
do i=1_pInt,nMPstate
|
|
|
|
|
if (debug_MaterialpointStateLoopDistribution(i) /= 0) then
|
|
|
|
|
integral = integral + i*debug_MaterialpointStateLoopDistribution(i)
|
|
|
|
|
write(6,'(i25,1x,i10)') i,debug_MaterialpointStateLoopDistribution(i)
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
write(6,'(a15,i10,1x,i10)') ' total',integral,sum(debug_MaterialpointStateLoopDistribution)
|
|
|
|
|
|
|
|
|
|
integral = 0_pInt
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,*) 'distribution_MaterialpointCutbackLoop :'
|
|
|
|
|
do i=1_pInt,nHomog+1_pInt
|
|
|
|
|
if (debug_MaterialpointLoopDistribution(i) /= 0) then
|
|
|
|
|
integral = integral + i*debug_MaterialpointLoopDistribution(i)
|
2012-10-12 23:30:55 +05:30
|
|
|
exceed = ' '
|
|
|
|
|
if (i > nHomog) exceed = '+'
|
|
|
|
|
write(6,'(i25,a1,i10)') min(nHomog,i),exceed,debug_MaterialpointLoopDistribution(i)
|
2012-03-09 01:55:28 +05:30
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
write(6,'(a15,i10,1x,i10)') ' total',integral,sum(debug_MaterialpointLoopDistribution)
|
2012-08-14 17:18:43 +05:30
|
|
|
endif
|
2011-03-21 16:01:17 +05:30
|
|
|
|
2012-08-14 17:18:43 +05:30
|
|
|
if (iand(debug_level(debug_CPFEM),debug_levelBasic) /= 0) then
|
2012-03-09 01:55:28 +05:30
|
|
|
write(6,*)
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,*) 'Extreme values of returned stress and jacobian'
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,'(a39)') ' value el ip'
|
|
|
|
|
write(6,'(a14,1x,e12.3,1x,i6,1x,i4)') 'stress min :', debug_stressMin, debug_stressMinLocation
|
|
|
|
|
write(6,'(a14,1x,e12.3,1x,i6,1x,i4)') ' max :', debug_stressMax, debug_stressMaxLocation
|
|
|
|
|
write(6,'(a14,1x,e12.3,1x,i6,1x,i4)') 'jacobian min :', debug_jacobianMin, debug_jacobianMinLocation
|
|
|
|
|
write(6,'(a14,1x,e12.3,1x,i6,1x,i4)') ' max :', debug_jacobianMax, debug_jacobianMaxLocation
|
|
|
|
|
write(6,*)
|
|
|
|
|
endif
|
|
|
|
|
!$OMP END CRITICAL (write2out)
|
|
|
|
|
|
|
|
|
|
end subroutine debug_info
|
2008-01-11 00:23:57 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
end module debug
|
