From 96811f77ca91ecc87dd12860e5a3ec23f86c2504 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 23 Sep 2019 06:50:25 -0700 Subject: [PATCH] not used --- src/grid/DAMASK_grid.f90 | 8 ++++---- src/grid/grid_damage_spectral.f90 | 5 ++--- src/grid/grid_thermal_spectral.f90 | 5 ++--- 3 files changed, 8 insertions(+), 10 deletions(-) diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index 3400c375a..71d95187b 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -484,14 +484,14 @@ program DAMASK_spectral case(FIELD_MECH_ID) solres(field) = mech_solution (& incInfo,timeinc,timeIncOld, & - stress_BC = loadCases(currentLoadCase)%stress, & - rotation_BC = loadCases(currentLoadCase)%rotation) + stress_BC = loadCases(currentLoadCase)%stress, & + rotation_BC = loadCases(currentLoadCase)%rotation) case(FIELD_THERMAL_ID) - solres(field) = grid_thermal_spectral_solution(timeinc,timeIncOld,remainingLoadCaseTime) + solres(field) = grid_thermal_spectral_solution(timeinc,timeIncOld) case(FIELD_DAMAGE_ID) - solres(field) = grid_damage_spectral_solution(timeinc,timeIncOld,remainingLoadCaseTime) + solres(field) = grid_damage_spectral_solution(timeinc,timeIncOld) end select diff --git a/src/grid/grid_damage_spectral.f90 b/src/grid/grid_damage_spectral.f90 index 59ae5038c..bdd9a6b89 100644 --- a/src/grid/grid_damage_spectral.f90 +++ b/src/grid/grid_damage_spectral.f90 @@ -143,12 +143,11 @@ end subroutine grid_damage_spectral_init !-------------------------------------------------------------------------------------------------- !> @brief solution for the spectral damage scheme with internal iterations !-------------------------------------------------------------------------------------------------- -function grid_damage_spectral_solution(timeinc,timeinc_old,loadCaseTime) result(solution) +function grid_damage_spectral_solution(timeinc,timeinc_old) result(solution) real(pReal), intent(in) :: & timeinc, & !< increment in time for current solution - timeinc_old, & !< increment in time of last increment - loadCaseTime !< remaining time of current load case + timeinc_old !< increment in time of last increment integer :: i, j, k, cell type(tSolutionState) :: solution PetscInt :: devNull diff --git a/src/grid/grid_thermal_spectral.f90 b/src/grid/grid_thermal_spectral.f90 index 18fe2d320..2977faf2b 100644 --- a/src/grid/grid_thermal_spectral.f90 +++ b/src/grid/grid_thermal_spectral.f90 @@ -141,12 +141,11 @@ end subroutine grid_thermal_spectral_init !-------------------------------------------------------------------------------------------------- !> @brief solution for the spectral thermal scheme with internal iterations !-------------------------------------------------------------------------------------------------- -function grid_thermal_spectral_solution(timeinc,timeinc_old,loadCaseTime) result(solution) +function grid_thermal_spectral_solution(timeinc,timeinc_old) result(solution) real(pReal), intent(in) :: & timeinc, & !< increment in time for current solution - timeinc_old, & !< increment in time of last increment - loadCaseTime !< remaining time of current load case + timeinc_old !< increment in time of last increment integer :: i, j, k, cell type(tSolutionState) :: solution PetscInt :: position