gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into binaries

Browse Source
This commit is contained in:
Grzegorz Kowal 2022-05-26 22:35:54 -03:00
commit 03cdfa1a11
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sources/equations.F90
View File

@ -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 ]