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 ]