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

Merge branch 'master' into reconnection

Browse Source
This commit is contained in:
Grzegorz Kowal 2013-12-23 21:53:40 -02:00
commit 560702fbd8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/coordinates.F90
View File

@ -339,12 +339,12 @@ module coordinates
! print info
!
write(*,"(4x,a, 1x,i6)" ) "refinement to level =", toplev
write(*,"(4x,a,3(1x,i6))") "base configuration =", ir, jr, kr
write(*,"(4x,a,3(1x,i6))") "top level blocks =", dm(:)
write(*,"(4x,a, 1x,i6)" ) "maximum cover blocks =", product(dm(:))
write(*,"(4x,a,3(1x,i6))") "base resolution =", cm(1:NDIMS)
write(*,"(4x,a,3(1x,i6))") "effective resolution =", rm(1:NDIMS)
write(*,"(4x,a, 1x,i6 )" ) "refinement to level =", toplev
write(*,"(4x,a,3(1x,i6 ))") "base configuration =", ir, jr, kr
write(*,"(4x,a,3(1x,i6 ))") "top level blocks =", dm(:)
write(*,"(4x,a, 1x,i12)" ) "maximum cover blocks =", product(dm(:))
write(*,"(4x,a,3(1x,i6 ))") "base resolution =", cm(1:NDIMS)
write(*,"(4x,a,3(1x,i6 ))") "effective resolution =", rm(1:NDIMS)
end if ! master