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

cleaning

This commit is contained in:
Martin Diehl 2019-03-08 23:23:07 +01:00
parent 2621689843
commit ae5ea87ab1
3 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/FEM_utilities.f90
View File

@ -127,14 +127,6 @@ contains
!> @brief allocates all neccessary fields, sets debug flags !> @brief allocates all neccessary fields, sets debug flags
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine utilities_init() subroutine utilities_init()
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment)
use DAMASK_interface, only: &
getSolverJobName
use IO, only: &
IO_error, &
IO_warning, &
IO_timeStamp, &
IO_open_file
use numerics, only: & use numerics, only: &
structOrder, & structOrder, &
integrationOrder, & integrationOrder, &
@ -167,8 +159,6 @@ subroutine utilities_init()
PetscErrorCode :: ierr PetscErrorCode :: ierr
write(6,'(/,a)') ' <<<+- DAMASK_FEM_utilities init -+>>>' write(6,'(/,a)') ' <<<+- DAMASK_FEM_utilities init -+>>>'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90"
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! set debugging parameters ! set debugging parameters
@ -287,6 +277,7 @@ subroutine utilities_constitutiveResponse(timeinc,P_av,forwardData)
end subroutine utilities_constitutiveResponse end subroutine utilities_constitutiveResponse
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Create index sets of boundary dofs (in local and global numbering) !> @brief Create index sets of boundary dofs (in local and global numbering)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -377,6 +368,7 @@ subroutine utilities_indexBoundaryDofs(dm_local,nFaceSets,numFields,local2global
end subroutine utilities_indexBoundaryDofs end subroutine utilities_indexBoundaryDofs
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Project BC values to local vector !> @brief Project BC values to local vector
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------

1
src/mesh_grid.f90
View File

@ -175,7 +175,6 @@ subroutine mesh_init(ip,el)
use DAMASK_interface use DAMASK_interface
use IO, only: & use IO, only: &
IO_open_file, &
IO_error IO_error
use debug, only: & use debug, only: &
debug_e, & debug_e, &

3
src/spectral_utilities.f90
View File

@ -152,8 +152,7 @@ contains
subroutine utilities_init() subroutine utilities_init()
use IO, only: & use IO, only: &
IO_error, & IO_error, &
IO_warning, & IO_warning
IO_open_file
use numerics, only: & use numerics, only: &
spectral_derivative, & spectral_derivative, &
fftw_planner_flag, & fftw_planner_flag, &