From fc8ec7ec6866f37e1cabb31af06575b6f72f8176 Mon Sep 17 00:00:00 2001 From: eschnett Date: Wed, 12 Sep 2012 18:00:56 +0000 Subject: Correct format specifier git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@421 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- interface.ccl | 2 +- src/GRHydro_Con2Prim.F90 | 2 +- src/GRHydro_TVDReconstruct.F90 | 2 +- src/GRHydro_Tmunu.F90 | 2 +- src/GRHydro_TmunuM.F90 | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/interface.ccl b/interface.ccl index 7650be1..06d9a63 100644 --- a/interface.ccl +++ b/interface.ccl @@ -611,8 +611,8 @@ real fs_alpha TYPE=SCALAR fs_alpha5 } "Maximum characteristic speeds for the flux splitting" -real Y_e_con_rhs TYPE=GF tags='Prolongation="None" checkpoint="no"' "RHS for the electron fraction" public: +real Y_e_con_rhs TYPE=GF tags='Prolongation="None" checkpoint="no"' "RHS for the electron fraction" real Y_e_con_flux TYPE=GF tags='Prolongation="None" checkpoint="no"' "Flux for the electron fraction" private: real Y_e_plus TYPE=GF tags='Prolongation="None" checkpoint="no"' "Plus state for the electron fraction" diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index bb53c0a..5458320 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -859,7 +859,7 @@ subroutine Con2Prim_pt_hot(cctk_iteration, ii,jj,kk,handle, dens, & if(nf.gt.nfudgemax) then if(GRHydro_c2p_reset_eps_tau_hot_eos.ne.1) then call CCTK_WARN(failinfomode,"EOS error in c2p 0: injected heat too many times") - write(warnline,"(i8.4i5,1P10E15.6)") cctk_iteration,GRHydro_reflevel,ii,jj,kk,x,y,z + write(warnline,"(i8,4i5,1P10E15.6)") cctk_iteration,GRHydro_reflevel,ii,jj,kk,x,y,z call CCTK_WARN(failinfomode,warnline) write(warnline,"(1P10E15.6)") rho,epsilon,temp,ye call CCTK_WARN(failinfomode,warnline) diff --git a/src/GRHydro_TVDReconstruct.F90 b/src/GRHydro_TVDReconstruct.F90 index 526999d..b2528c8 100644 --- a/src/GRHydro_TVDReconstruct.F90 +++ b/src/GRHydro_TVDReconstruct.F90 @@ -115,7 +115,7 @@ contains CCTK_REAL,intent(IN)::a_in,b_in CCTK_REAL::minmod_result - minmod_result=0.5D0*(sign(1.0D0,a_in)+sign(1.0D0,b_in))*min(abs(a_in),abs(b_in)) + minmod_result=0.5D0*(sign(1.0d0,a_in)+sign(1.0d0,b_in))*min(abs(a_in),abs(b_in)) end function minmod_func end subroutine tvdreconstruct diff --git a/src/GRHydro_Tmunu.F90 b/src/GRHydro_Tmunu.F90 index 5f16fcc..bc7724c 100644 --- a/src/GRHydro_Tmunu.F90 +++ b/src/GRHydro_Tmunu.F90 @@ -105,7 +105,7 @@ !!$ Calculate the specific relativistic enthalpy times rho times the !!$ square of the lorentz factor. - rhoenthalpy = w_lorentz(i,j,k)**2*(rho(i,j,k)*(1.0D0 + eps(i,j,k)) + press(i,j,k)) + rhoenthalpy = w_lorentz(i,j,k)**2*(rho(i,j,k)*(1.0d0 + eps(i,j,k)) + press(i,j,k)) !!$ Calculate lower components of 4-velocity (without the Lorent factor). diff --git a/src/GRHydro_TmunuM.F90 b/src/GRHydro_TmunuM.F90 index 58906ca..841ff69 100644 --- a/src/GRHydro_TmunuM.F90 +++ b/src/GRHydro_TmunuM.F90 @@ -122,7 +122,7 @@ !!$ Calculate the specific relativistic enthalpy times rho + the mag. field contribution times the !!$ square of the lorentz factor. - rhohstarw2 = w_lorentz(i,j,k)**2*(rho(i,j,k)*(1.0D0 + eps(i,j,k)) + press(i,j,k) + b2) + rhohstarw2 = w_lorentz(i,j,k)**2*(rho(i,j,k)*(1.0d0 + eps(i,j,k)) + press(i,j,k) + b2) pstar = press(i,j,k)+0.5d0*b2 !!$ Calculate lower components of 4-velocity (without the Lorent factor). -- cgit v1.2.3