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

REFINEMENT: Make Intel compiler happy.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-01-02 11:36:37 -02:00
parent d5c819057c
commit e35a54de4a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/refinement.F90
View File

@ -152,8 +152,8 @@ module refinement
if (verbose) then if (verbose) then
write (*,"(4x,a,1x,a)" ) "refined variables =", trim(rvars) write (*,"(4x,a,1x,a)" ) "refined variables =", trim(rvars)
write (*,"(4x,a,1x,1e9.3)") "derefinement threshold =", crefmin write (*,"(4x,a,1x,1e9.2)") "derefinement threshold =", crefmin
write (*,"(4x,a,1x,1e9.3)") "refinement threshold =", crefmax write (*,"(4x,a,1x,1e9.2)") "refinement threshold =", crefmax
end if end if