hints from gfortran
This commit is contained in:
parent
e9eb34692c
commit
dbad2a7413
|
@ -162,7 +162,7 @@ end function parse_flow
|
||||||
!> @brief Find location of chunk end: ',' '}', or ']'.
|
!> @brief Find location of chunk end: ',' '}', or ']'.
|
||||||
!> @details leaves nested lists ( '[...]' and dicts '{...}') intact
|
!> @details leaves nested lists ( '[...]' and dicts '{...}') intact
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
integer function find_end(str,e_char)
|
integer(pI64) function find_end(str,e_char)
|
||||||
|
|
||||||
character(len=*), intent(in) :: str !< chunk of YAML flow string
|
character(len=*), intent(in) :: str !< chunk of YAML flow string
|
||||||
character, intent(in) :: e_char !< end of list/dict ( '}' or ']')
|
character, intent(in) :: e_char !< end of list/dict ( '}' or ']')
|
||||||
|
|
|
@ -82,12 +82,6 @@ module grid_mechanical_spectral_basic
|
||||||
err_BC, & !< deviation from stress BC
|
err_BC, & !< deviation from stress BC
|
||||||
err_div !< RMS of div of P
|
err_div !< RMS of div of P
|
||||||
|
|
||||||
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
|
|
||||||
type(MPI_Status) :: status
|
|
||||||
#else
|
|
||||||
integer, dimension(MPI_STATUS_SIZE) :: status
|
|
||||||
#endif
|
|
||||||
|
|
||||||
integer :: &
|
integer :: &
|
||||||
totalIter = 0 !< total iteration in current increment
|
totalIter = 0 !< total iteration in current increment
|
||||||
|
|
||||||
|
|
|
@ -94,12 +94,6 @@ module grid_mechanical_spectral_polarization
|
||||||
err_curl, & !< RMS of curl of F
|
err_curl, & !< RMS of curl of F
|
||||||
err_div !< RMS of div of P
|
err_div !< RMS of div of P
|
||||||
|
|
||||||
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
|
|
||||||
type(MPI_Status) :: status
|
|
||||||
#else
|
|
||||||
integer, dimension(MPI_STATUS_SIZE) :: status
|
|
||||||
#endif
|
|
||||||
|
|
||||||
integer :: &
|
integer :: &
|
||||||
totalIter = 0 !< total iteration in current increment
|
totalIter = 0 !< total iteration in current increment
|
||||||
|
|
||||||
|
|
|
@ -189,7 +189,6 @@ function grid_thermal_spectral_solution(Delta_t) result(solution)
|
||||||
real(pREAL), intent(in) :: &
|
real(pREAL), intent(in) :: &
|
||||||
Delta_t !< increment in time for current solution
|
Delta_t !< increment in time for current solution
|
||||||
|
|
||||||
integer :: i, j, k, ce
|
|
||||||
type(tSolutionState) :: solution
|
type(tSolutionState) :: solution
|
||||||
PetscInt :: devNull
|
PetscInt :: devNull
|
||||||
PetscReal :: T_min, T_max, stagNorm
|
PetscReal :: T_min, T_max, stagNorm
|
||||||
|
|
Loading…
Reference in New Issue