From deb8ebeb5b4ee111e132b0006ce5a9e2856f0dae Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 22 Nov 2022 14:24:33 +0100 Subject: [PATCH] avoid confusion during reporting polarization needs to ensure BC for F and P --- src/grid/grid_mech_spectral_polarisation.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/grid/grid_mech_spectral_polarisation.f90 b/src/grid/grid_mech_spectral_polarisation.f90 index 2b4ea364a..2bf3f3a5e 100644 --- a/src/grid/grid_mech_spectral_polarisation.f90 +++ b/src/grid/grid_mech_spectral_polarisation.f90 @@ -541,7 +541,7 @@ subroutine converged(snes_local,PETScIter,devNull1,devNull2,devNull3,reason,dumm err_div/divTol, ' (',err_div, ' / m, tol = ',divTol,')' print '(1x,a,f12.2,a,es8.2,a,es9.2,a)', 'error curl = ', & err_curl/curlTol,' (',err_curl,' -, tol = ',curlTol,')' - print '(1x,a,f12.2,a,es8.2,a,es9.2,a)', 'error stress BC = ', & + print '(1x,a,f12.2,a,es8.2,a,es9.2,a)', 'error mech BC = ', & err_BC/BCTol, ' (',err_BC, ' Pa, tol = ',BCTol,')' print'(/,1x,a)', '===========================================================================' flush(IO_STDOUT)