From 8002f982c291972c7b9f2048c49c72c64945da1b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 4 Feb 2023 09:58:58 +0100 Subject: [PATCH] unused variable (leftover from stroring *.C_ref) --- src/grid/grid_mech_spectral_basic.f90 | 5 ----- src/grid/grid_mech_spectral_polarisation.f90 | 6 +----- 2 files changed, 1 insertion(+), 10 deletions(-) diff --git a/src/grid/grid_mech_spectral_basic.f90 b/src/grid/grid_mech_spectral_basic.f90 index 6f5a85815..451e450ee 100644 --- a/src/grid/grid_mech_spectral_basic.f90 +++ b/src/grid/grid_mech_spectral_basic.f90 @@ -115,11 +115,6 @@ subroutine grid_mechanical_spectral_basic_init() PetscInt, dimension(0:worldsize-1) :: localK real(pReal), dimension(3,3,product(cells(1:2))*cells3) :: temp33n 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 :: & num_grid type(tList), pointer :: & diff --git a/src/grid/grid_mech_spectral_polarisation.f90 b/src/grid/grid_mech_spectral_polarisation.f90 index 52b20dfbd..d46880c85 100644 --- a/src/grid/grid_mech_spectral_polarisation.f90 +++ b/src/grid/grid_mech_spectral_polarisation.f90 @@ -128,11 +128,6 @@ subroutine grid_mechanical_spectral_polarisation_init() PetscInt, dimension(0:worldsize-1) :: localK real(pReal), dimension(3,3,product(cells(1:2))*cells3) :: temp33n 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 :: & num_grid type(tList), pointer :: & @@ -140,6 +135,7 @@ subroutine grid_mechanical_spectral_polarisation_init() character(len=pStringLen) :: & extmsg = '' + 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'