diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-04-22 22:26:46 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-04-22 22:26:46 +0000 |
commit | 3ef08cf4b9245dcf2c1c6b9f8262a40cd76a32ec (patch) | |
tree | 42f29de4045046b847cf81a05a88841df5047b92 | |
parent | ac21e8c3c15e4dd9b6a8ca3a37c8baab36f7a5e4 (diff) |
replace thorn names, testsuites pass now
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@110 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
-rw-r--r-- | src/Whisky_Startup.F90 | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/Whisky_Startup.F90 b/src/Whisky_Startup.F90 index 8b893aa..883a222 100644 --- a/src/Whisky_Startup.F90 +++ b/src/Whisky_Startup.F90 @@ -103,8 +103,8 @@ integer function Whisky_Startup() call CCTK_VarIndex(indep_gfs(2), "whisky::epsplus") end if call CCTK_VarIndex(dep_gfs(1), "whisky::pressplus") - call CCTK_VarIndex(dep_gfs(2), "whisky::eos_dpdeps_p") - call CCTK_VarIndex(dep_gfs(3), "whisky::eos_cs2_p") + call CCTK_VarIndex(dep_gfs(2), "GRHydro::eos_dpdeps_p") + call CCTK_VarIndex(dep_gfs(3), "GRHydro::eos_cs2_p") call CCTK_FortranString(strlen, eosgeneral_indep_plus_gfs, var_gfs) var_gfs = trim(var_gfs) @@ -148,8 +148,8 @@ integer function Whisky_Startup() call CCTK_VarIndex(indep_gfs(2), "whisky::epsminus") end if call CCTK_VarIndex(dep_gfs(1), "whisky::pressminus") - call CCTK_VarIndex(dep_gfs(2), "whisky::eos_dpdeps_m") - call CCTK_VarIndex(dep_gfs(3), "whisky::eos_cs2_m") + call CCTK_VarIndex(dep_gfs(2), "GRHydro::eos_dpdeps_m") + call CCTK_VarIndex(dep_gfs(3), "GRHydro::eos_cs2_m") call CCTK_FortranString(strlen, eosgeneral_indep_minus_gfs, var_gfs) var_gfs = trim(var_gfs) @@ -186,14 +186,14 @@ integer function Whisky_Startup() !!$ Third, the "Average" state for the Roe solver if (CCTK_EQUALS(whisky_eos_type, "Polytype")) then - call CCTK_VarIndex(indep_gfs(1), "whisky::rho_ave") + call CCTK_VarIndex(indep_gfs(1), "GRHydro::rho_ave") else - call CCTK_VarIndex(indep_gfs(1), "whisky::rho_ave") - call CCTK_VarIndex(indep_gfs(2), "whisky::eps_ave") + call CCTK_VarIndex(indep_gfs(1), "GRHydro::rho_ave") + call CCTK_VarIndex(indep_gfs(2), "GRHydro::eps_ave") end if - call CCTK_VarIndex(dep_gfs(1), "whisky::press_ave") - call CCTK_VarIndex(dep_gfs(2), "whisky::eos_dpdeps_ave") - call CCTK_VarIndex(dep_gfs(3), "whisky::eos_cs2_ave") + call CCTK_VarIndex(dep_gfs(1), "GRHydro::press_ave") + call CCTK_VarIndex(dep_gfs(2), "GRHydro::eos_dpdeps_ave") + call CCTK_VarIndex(dep_gfs(3), "GRHydro::eos_cs2_ave") call CCTK_FortranString(strlen, eosgeneral_indep_gfs, var_gfs) var_gfs = trim(var_gfs) @@ -236,8 +236,8 @@ integer function Whisky_Startup() "Pressure DPressureDSpecificInternalEnergy DPressureDRho SpecificInternalEnergy", & "Dependent variable names") call CCTK_VarIndex(dep_gfs(1), "HydroBase::press") - call CCTK_VarIndex(dep_gfs(2), "whisky::eos_dpdeps_temp") - call CCTK_VarIndex(dep_gfs(3), "whisky::eos_dpdrho_temp") + call CCTK_VarIndex(dep_gfs(2), "GRHydro::eos_dpdeps_temp") + call CCTK_VarIndex(dep_gfs(3), "GRHydro::eos_dpdrho_temp") call CCTK_VarIndex(dep_gfs(4), "HydroBase::eps") else call CCTK_VarIndex(indep_gfs(1), "HydroBase::rho") @@ -246,8 +246,8 @@ integer function Whisky_Startup() "Pressure DPressureDSpecificInternalEnergy DPressureDRho", & "Dependent variable names") call CCTK_VarIndex(dep_gfs(1), "HydroBase::press") - call CCTK_VarIndex(dep_gfs(2), "whisky::eos_dpdeps_temp") - call CCTK_VarIndex(dep_gfs(3), "whisky::eos_dpdrho_temp") + call CCTK_VarIndex(dep_gfs(2), "GRHydro::eos_dpdeps_temp") + call CCTK_VarIndex(dep_gfs(3), "GRHydro::eos_dpdrho_temp") end if if (CCTK_EQUALS(whisky_eos_type, "Polytype")) then |