User: knarf Date: 2010/11/13 11:15 PM
Modified: /branches/hot_and_MHD_temp_dev/src/ GRHydro_Con2Prim.F90
Log: fix type of GRHydro_C2P_failed: this is a CCTK_REAL
File Changes:
Directory: /branches/hot_and_MHD_temp_dev/src/ ==============================================
File [modified]: GRHydro_Con2Prim.F90 Delta lines: +4 -2 =================================================================== --- branches/hot_and_MHD_temp_dev/src/GRHydro_Con2Prim.F90 2010-11-11 23:05:07 UTC (rev 173) +++ branches/hot_and_MHD_temp_dev/src/GRHydro_Con2Prim.F90 2010-11-14 05:15:59 UTC (rev 174) @@ -264,7 +264,8 @@ y, z, r, GRHydro_rho_min
CCTK_REAL s2, c0, c1, c2, c3, c4, f, df, ftol, v2, w, vlowx, vlowy, vlowz - CCTK_INT count, i, handle, GRHydro_reflevel, GRHydro_C2P_failed + CCTK_INT count, i, handle, GRHydro_reflevel + CCTK_REAL GRHydro_C2P_failed CCTK_REAL udens, usx, usy, usz, utau, pold, pnew, epsold, epsnew, w2, & w2mhalf, temp1, drhobydpress, depsbydpress, dpressbydeps, dpressbydrho, pmin, epsmin character(len=200) warnline @@ -486,7 +487,8 @@ y, z, r, GRHydro_rho_min CCTK_REAL temp, ye CCTK_REAL s2, c0, c1, c2, c3, c4, f, df, ftol, v2, w, vlowx, vlowy, vlowz - CCTK_INT ii,jj,kk,count, i, handle, GRHydro_reflevel, GRHydro_C2P_failed + CCTK_INT ii,jj,kk,count, i, handle, GRHydro_reflevel + CCTK_REAL GRHydro_C2P_failed CCTK_REAL udens, usx, usy, usz, utau, pold, pnew, epsold, epsnew, w2, & w2mhalf, temp1, drhobydpress, depsbydpress, dpressbydeps, dpressbydrho, pmin, epsmin character(len=200) warnline