DRIVER: Move initialize_equations() to be called earlier.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>

sources/driver.F90

@@ -326,6 +326,11 @@ program amun
 !
   call initialize_random(1, 0)
 
+! initialize module EQUATIONS
+!
+  call initialize_equations(eqsys, eos, master, iret)
+  if (iret > 0) go to 300
+
 ! initialize geometry modules and print info
 !
   if (master) then
@@ -341,17 +346,6 @@ program amun
 !
   if (iret > 0) go to 100
 
-! initialize physics modules and print info
-!
-  if (master) then
-    write (*,*)
-    write (*,"(1x,a)"         ) "Physics:"
-  end if
-
-! initialize module EQUATIONS
-!
-  call initialize_equations(eqsys, eos, master, iret)
-
 ! jump to the end if the equations could not be initialized
 !
   if (iret > 0) go to 60
@@ -797,10 +791,6 @@ program amun
 !
   50 continue
 
-! finalize module EQUATIONS
-!
-  call finalize_equations(iret)
-
 ! jump point
 !
   60 continue
@@ -813,6 +803,11 @@ program amun
 !
   100 continue
 
+! finalize module EQUATIONS
+!
+  300 continue
+  call finalize_equations(iret)
+
 ! stop time accounting for the termination
 !
   call stop_timer(itm)

sources/equations.F90

@@ -927,10 +927,12 @@ module equations
 !
     if (verbose) then
 
-      write (*,"(4x,a,1x,a)"    ) "equation system        =", trim(name_eqsys)
-      write (*,"(4x,a,1x,a)"    ) "equation of state      =", trim(name_eos)
+      write (*,*)
+      write (*,"(1x,a)") "Physics:"
+      write (*,"(4x,a,1x,a)") "equation system        =", trim(name_eqsys)
+      write (*,"(4x,a,1x,a)") "equation of state      =", trim(name_eos)
       if (relativistic) then
-        write (*,"(4x,a,1x,a)"    ) "variable conversion    =", trim(name_c2p)
+        write (*,"(4x,a,1x,a)") "variable conversion    =", trim(name_c2p)
       end if
       write (*,"(4x,a20, 3x,'=',1x,a)") "fix unphysical cells"                 &
                                                         , trim(unphysical_fix)