Merge pull request #3 from martinvandriel/master

- idom_fluid is not a logical, caused runtime error on cray
geodynamics · Mar 21, 2014 · 5cafb19 · 5cafb19
2 parents c09dd7c + 3e17a03
commit 5cafb19
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/MESHER/discont_meshing.f90 b/MESHER/discont_meshing.f90
@@ -104,7 +104,7 @@ subroutine create_subregions
       write(6,*) '#######################################################################'
       fmtstring = '("  ", A, I12, F12.2)'
       write(6,fmtstring)'discontinuities:    ', idom,real(discont(idom))
-      fmtstring = '("  ", A, L12, L12)'
+      fmtstring = '("  ", A, L12, I12)'
       write(6,fmtstring)'solid/fluid domain: ', solid_domain(idom),idom_fluid(idom)
       fmtstring = '("  ", A, F12.2, F12.2)'
       write(6,fmtstring)'upper/lower radius: ', real(rdisc_top(idom)),real(rdisc_bot(idom))