[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 407)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/08/04 02:41 AM

Modified:
 /trunk/src/
  GRHydro_Eigenproblem.F90, GRHydro_PPMMReconstruct_drv.F90, GRHydro_UpdateMask.F90

Log:
 GRHydro: add forgotten label in error message, whitespace change

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_Eigenproblem.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_Eigenproblem.F90	2012-08-04 07:18:51 UTC (rev 406)
+++ trunk/src/GRHydro_Eigenproblem.F90	2012-08-04 07:41:17 UTC (rev 407)
@@ -88,7 +88,7 @@
   if(cs2.lt.0.0d0) then
      !$OMP CRITICAL
      if (abs(cs2) .gt. 1.0d-4) then
-        write(warnline,'(a50,6g16.7)') 'rho, dpdrho, press*dpdeps/rho**2, eps, press/rho: ', abs(cs2), rho, dpdrho, press * dpdeps / (rho**2), eps, press/rho
+        write(warnline,'(a50,6g16.7)') 'abs(cs2), rho, dpdrho, press*dpdeps/rho**2, eps, press/rho: ', abs(cs2), rho, dpdrho, press * dpdeps / (rho**2), eps, press/rho
         call CCTK_WARN(1,warnline)
         call CCTK_WARN(1,"cs2 < 0! Check speed of sound calculation!")
         cs2 = 0.0d0

File [modified]: GRHydro_PPMMReconstruct_drv.F90
Delta lines: +1 -0
===================================================================
--- trunk/src/GRHydro_PPMMReconstruct_drv.F90	2012-08-04 07:18:51 UTC (rev 406)
+++ trunk/src/GRHydro_PPMMReconstruct_drv.F90	2012-08-04 07:41:17 UTC (rev 407)
@@ -240,6 +240,7 @@
          end do
          !$OMP END PARALLEL DO
       end if
+
       if(evolve_Y_e.ne.0) then
          !$OMP PARALLEL DO PRIVATE(j, k)
          do k = GRHydro_stencil, nz - GRHydro_stencil + 1

File [modified]: GRHydro_UpdateMask.F90
Delta lines: +2 -0
===================================================================
--- trunk/src/GRHydro_UpdateMask.F90	2012-08-04 07:18:51 UTC (rev 406)
+++ trunk/src/GRHydro_UpdateMask.F90	2012-08-04 07:41:17 UTC (rev 407)
@@ -48,6 +48,7 @@
                  densrhs(i,j,k) = 0.0d0
                  srhs(i,j,k,:)   = 0.0d0
                  taurhs(i,j,k)  = 0.0d0
+
                  ! Set real-valued mask! This will be sync'ed and right after syncing translated to
                  ! our standard integer based mask (so that atmosphere_mask is still valid!).
                  atmosphere_mask_real(i,j,k) = 1
@@ -69,6 +70,7 @@
                  densrhs(i,j,k) = 0.0d0
                  srhs(i,j,k,:)   = 0.0d0
                  taurhs(i,j,k)  = 0.0d0
+
                  ! Set real-valued mask! This will be sync'ed and right after syncing translated to
                  ! our standard integer based mask (so that atmosphere_mask is still valid!).
                  atmosphere_mask_real(i,j,k) = 1