Merge branch 'master' into binaries
This commit is contained in:
commit
03cdfa1a11
@ -1450,7 +1450,7 @@ module equations
|
|||||||
|
|
||||||
if (nc > 0) then
|
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,".")'
|
'at time step ",i0,".")'
|
||||||
write(msg,sfmt) pdata%meta%id, nc, step
|
write(msg,sfmt) pdata%meta%id, nc, step
|
||||||
call print_message(loc, msg)
|
call print_message(loc, msg)
|
||||||
@ -1479,8 +1479,8 @@ module equations
|
|||||||
|
|
||||||
n = n + 1
|
n = n + 1
|
||||||
|
|
||||||
write(msg,'("n: ",i0,"[i,j,k]: ",3i0,"[x,y,z]: ",3es12.4)') &
|
sfmt = '("n: ",i0,", [i,j,k]: ",3(1x,i0),", [x,y,z]: ",3es12.4)'
|
||||||
n, i, j, k, x(i), y(j), z(k)
|
write(msg,sfmt) n, i, j, k, x(i), y(j), z(k)
|
||||||
call print_message(loc, msg)
|
call print_message(loc, msg)
|
||||||
|
|
||||||
idx(:,n) = [ i, j, k ]
|
idx(:,n) = [ i, j, k ]
|
||||||
|
Loading…
x
Reference in New Issue
Block a user