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

unused variable (leftover from stroring *.C_ref)

This commit is contained in:
Martin Diehl 2023-02-04 09:58:58 +01:00
parent a45a86cfbf
commit 8002f982c2
2 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/grid/grid_mech_spectral_basic.f90
View File

@ -115,11 +115,6 @@ subroutine grid_mechanical_spectral_basic_init()
PetscInt, dimension(0:worldsize-1) :: localK PetscInt, dimension(0:worldsize-1) :: localK
real(pReal), dimension(3,3,product(cells(1:2))*cells3) :: temp33n real(pReal), dimension(3,3,product(cells(1:2))*cells3) :: temp33n
integer(HID_T) :: fileHandle, groupHandle integer(HID_T) :: fileHandle, groupHandle
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
type(MPI_File) :: fileUnit
#else
integer :: fileUnit
#endif
type(tDict), pointer :: & type(tDict), pointer :: &
num_grid num_grid
type(tList), pointer :: & type(tList), pointer :: &

6
src/grid/grid_mech_spectral_polarisation.f90
View File

@ -128,11 +128,6 @@ subroutine grid_mechanical_spectral_polarisation_init()
PetscInt, dimension(0:worldsize-1) :: localK PetscInt, dimension(0:worldsize-1) :: localK
real(pReal), dimension(3,3,product(cells(1:2))*cells3) :: temp33n real(pReal), dimension(3,3,product(cells(1:2))*cells3) :: temp33n
integer(HID_T) :: fileHandle, groupHandle integer(HID_T) :: fileHandle, groupHandle
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
type(MPI_File) :: fileUnit
#else
integer :: fileUnit
#endif
type(tDict), pointer :: & type(tDict), pointer :: &
num_grid num_grid
type(tList), pointer :: & type(tList), pointer :: &
@ -140,6 +135,7 @@ subroutine grid_mechanical_spectral_polarisation_init()
character(len=pStringLen) :: & character(len=pStringLen) :: &
extmsg = '' extmsg = ''
print'(/,1x,a)', '<<<+- grid_mechanical_spectral_polarization init -+>>>'; flush(IO_STDOUT) print'(/,1x,a)', '<<<+- grid_mechanical_spectral_polarization init -+>>>'; flush(IO_STDOUT)
print'(/,1x,a)', 'P. Shanthraj et al., International Journal of Plasticity 66:31–45, 2015' print'(/,1x,a)', 'P. Shanthraj et al., International Journal of Plasticity 66:31–45, 2015'