diff --git a/src/driver.F90 b/src/driver.F90 index 2f50ea7..ae61f5b 100644 --- a/src/driver.F90 +++ b/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 diff --git a/src/forcing.F90 b/src/forcing.F90 index 26efa61..7775dc8 100644 --- a/src/forcing.F90 +++ b/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 diff --git a/src/mesh.F90 b/src/mesh.F90 index cd07dce..4a30924 100644 --- a/src/mesh.F90 +++ b/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