[svn:einsteintoolkit] GRHydro/branches/hot_and_MHD_temp_dev/src/ (Rev. 179) - Commits

17 Nov 2010

User: cott
Date: 2010/11/17 10:04 PM
Modified:
 /branches/hot_and_MHD_temp_dev/src/
  GRHydro_Boundaries.F90
Log:
 * make gcc/gfortran happy
File Changes:
Directory: /branches/hot_and_MHD_temp_dev/src/
==============================================
File [modified]: GRHydro_Boundaries.F90
Delta lines: +6 -6
===================================================================

--- branches/hot_and_MHD_temp_dev/src/GRHydro_Boundaries.F90	2010-11-17 23:07:08 UTC (rev 178)
+++ branches/hot_and_MHD_temp_dev/src/GRHydro_Boundaries.F90	2010-11-18 04:04:08 UTC (rev 179)
@@ -157,21 +157,21 @@
     ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
          "HydroBase::vel", "Flat")
-    if(evolve_tracer .ne. 0) then 
+    if(evolve_tracer.ne.0) then 
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::GRHydro_tracers", "Flat")
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::GRHydro_cons_tracers", "Flat")
     endif
-    if(evolve_y_e) then
+    if(evolve_y_e.ne.0) then
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "HydroBase::Y_e", "Flat")
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::Y_e_con", "Flat")
     endif
-    if(evolve_temper) then
+    if(evolve_temper.ne.0) then
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "HydroBase::temperature", "Flat")
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
@@ -199,21 +199,21 @@
     ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
          "HydroBase::vel", "None")
-    if(evolve_tracer .ne. 0) then 
+    if(evolve_tracer.ne.0) then 
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::GRHydro_tracers", "None")
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::GRHydro_cons_tracers", "None")
     endif
-    if(evolve_y_e) then
+    if(evolve_y_e.ne.0) then
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "HydroBase::Y_e", "None")
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::Y_e_con", "None")
     endif
-    if(evolve_temper) then
+    if(evolve_temper.ne.0) then
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "HydroBase::temperature", "None")
       ierr = Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &

    