Improve program and module setup information formatting.

src/driver.F90

@@ -88,8 +88,8 @@ program godunov
 #ifdef ISO
     "isothermal"
 #endif /* ISO */
-
-    write (*,*)
+    write (*,"(4x,a,1x,a)"    ) "geometry               =",                    &
+    "rectangular"
   end if
 
 ! read configuration file

src/forcing.F90

@@ -170,12 +170,12 @@ module forcing
 ! print information about forcing parameters
 !
     if (is_master()) then
+      write(*,*                )
       write(*,"(1x,a)"         ) "Forcing parameters:"
       write(*,"(4x,a,1x,i6)"   ) "number of components   =", nf
       write(*,"(4x,a,1x,f12.6)") "input power            =", fpow
       write(*,"(4x,a,1x,f12.6)") "normalization coeff.   =", fnor
       write(*,"(4x,a,1x,f12.6)") "maximum amplitude      =", fa
-      write(*,*                )
     end if
 
 ! multiply aplitude by the square of forcing time step so we don't have to

src/mesh.F90

@@ -84,8 +84,11 @@ module mesh
 ! according to the defined geometry is already created; no refinement
 ! is done yet; we fill out the coarse blocks with the initial condition
 !
-    if (is_master()) &
+    if (is_master()) then
+      write(*,*)
+      write(*,"(1x,a)"  ) "Generating the initial mesh:"
       write(*,"(4x,a,$)") "generating level       =    "
+    end if
 
     l = 1
     do while (l .le. maxlev)
@@ -403,7 +406,8 @@ module mesh
 ! print general information about resolutions
 !
     if (is_master()) then
-      write(*,"(1x,a)"         ) "Generating the initial mesh:"
+      write(*,*)
+      write(*,"(1x,a)"         ) "Geometry:"
       write(*,"(4x,a,3(1x,i6))") "base configuration     =", rdims(1:NDIMS)
       write(*,"(4x,a,3(1x,i6))") "base resolution        ="                    &
                                                        , rdims(1:NDIMS) * ncells