From edb3924499360ca61d7f45f4442ef5a8fa3a0e6c Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Thu, 26 May 2022 22:34:47 -0300 Subject: [PATCH] EQUATION: Correct formatting in correct_unphysical_states(). Signed-off-by: Grzegorz Kowal --- sources/equations.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sources/equations.F90 b/sources/equations.F90 index a942423..d9a9921 100644 --- a/sources/equations.F90 +++ b/sources/equations.F90 @@ -1450,7 +1450,7 @@ module equations if (nc > 0) then - sfmt = '("Unphysical cells in block ID:",i0," (",i0," counted) ' // & + sfmt = '("Unphysical cells in block ID: ",i0," (",i0," counted) ' // & 'at time step ",i0,".")' write(msg,sfmt) pdata%meta%id, nc, step call print_message(loc, msg) @@ -1479,8 +1479,8 @@ module equations n = n + 1 - write(msg,'("n: ",i0,"[i,j,k]: ",3i0,"[x,y,z]: ",3es12.4)') & - n, i, j, k, x(i), y(j), z(k) + sfmt = '("n: ",i0,", [i,j,k]: ",3(1x,i0),", [x,y,z]: ",3es12.4)' + write(msg,sfmt) n, i, j, k, x(i), y(j), z(k) call print_message(loc, msg) idx(:,n) = [ i, j, k ]