Commits September 2012

commits@lists.einsteintoolkit.org

5 participants
55 discussions

[svn:einsteintoolkit] GRHydro_InitData/trunk/src/ (Rev. 154)
by rhaas＠tapir.caltech.edu 04 Sep '12

04 Sep '12

User: rhaas Date: 2012/09/04 07:28 AM Modified: /trunk/src/ GRHydro_PoloidalMagFieldM.F90 Log: Make GRHydro_PoloidalMagFieldM.F90 call P2C correctly for temperature evolved or not evolved. From: Philipp Moesta <pmoesta(a)tapir.caltech.edu> File Changes: Directory: /trunk/src/ ====================== File [modified]: GRHydro_PoloidalMagFieldM.F90 Delta lines: +18 -15 =================================================================== --- trunk/src/GRHydro_PoloidalMagFieldM.F90 2012-09-04 12:28:40 UTC (rev 153) +++ trunk/src/GRHydro_PoloidalMagFieldM.F90 2012-09-04 12:28:43 UTC (rev 154) @@ -136,21 +136,24 @@ eps(i,j,k),press(i,j,k),Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),& w_lorentz(i,j,k)) else - call Prim2ConGenM_hot(GRHydro_eos_handle,GRHydro_reflevel,& - i,j,k,x(i,j,k),y(i,j,k),z(i,j,k),gxx(i,j,k),gxy(i,j,k),& - gxz(i,j,k),gyy(i,j,k),gyz(i,j,k),gzz(i,j,k),& - det, dens(i,j,k),sx(i,j,k),sy(i,j,k),sz(i,j,k),& - tau(i,j,k),Bconsx(i,j,k),Bconsy(i,j,k),Bconsz(i,j,k),rho(i,j,k),& - velx(i,j,k),vely(i,j,k),velz(i,j,k),& - eps(i,j,k),press(i,j,k),Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),& - w_lorentz(i,j,k),temperature(i,j,k),y_e(i,j,k)) -! call Prim2ConGenM(GRHydro_eos_handle,gxx(i,j,k),gxy(i,j,k),& -! gxz(i,j,k),gyy(i,j,k),gyz(i,j,k),gzz(i,j,k),& -! det, dens(i,j,k),sx(i,j,k),sy(i,j,k),sz(i,j,k),& -! tau(i,j,k),Bconsx(i,j,k),Bconsy(i,j,k),Bconsz(i,j,k),rho(i,j,k),& -! velx(i,j,k),vely(i,j,k),velz(i,j,k),& -! eps(i,j,k),press(i,j,k),Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),& -! w_lorentz(i,j,k)) + if (evolve_temper .ne. 0) then + call Prim2ConGenM_hot(GRHydro_eos_handle,GRHydro_reflevel,& + i,j,k,x(i,j,k),y(i,j,k),z(i,j,k),gxx(i,j,k),gxy(i,j,k),& + gxz(i,j,k),gyy(i,j,k),gyz(i,j,k),gzz(i,j,k),& + det, dens(i,j,k),sx(i,j,k),sy(i,j,k),sz(i,j,k),& + tau(i,j,k),Bconsx(i,j,k),Bconsy(i,j,k),Bconsz(i,j,k),rho(i,j,k),& + velx(i,j,k),vely(i,j,k),velz(i,j,k),& + eps(i,j,k),press(i,j,k),Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),& + w_lorentz(i,j,k),temperature(i,j,k),y_e(i,j,k)) + else + call Prim2ConGenM(GRHydro_eos_handle,gxx(i,j,k),gxy(i,j,k),& + gxz(i,j,k),gyy(i,j,k),gyz(i,j,k),gzz(i,j,k),& + det, dens(i,j,k),sx(i,j,k),sy(i,j,k),sz(i,j,k),& + tau(i,j,k),Bconsx(i,j,k),Bconsy(i,j,k),Bconsz(i,j,k),rho(i,j,k),& + velx(i,j,k),vely(i,j,k),velz(i,j,k),& + eps(i,j,k),press(i,j,k),Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),& + w_lorentz(i,j,k)) + end if end if enddo

1 0

[svn:einsteintoolkit] GRHydro_InitData/trunk/ (Rev. 153)
by rhaas＠tapir.caltech.edu 04 Sep '12

04 Sep '12

User: rhaas Date: 2012/09/04 07:28 AM Modified: /trunk/ interface.ccl, schedule.ccl /trunk/src/ GRHydro_PoloidalMagFieldM.F90 Log: Changes to make GRHydro MHD work with nuclear/hot equation of state: 1) Switch to EOSOmni pointwise C2P routine and modify where necessary. 2) Modify Con2PrimM.F90 to allow for the evolution of temperature and adjust the wrapper routine. 3) Create EigenProblemM_hot pointwise routine and call that from HLLEM.F90 when temperature is evolved. Additionally adjust HLLEM where necessary. 4) Adjust InterfacesM.h to incorporate the newly created functions. 5) Fix a loop problem (not taking into account constraint transport) in PPM reconstruction of Y_e 6) Introduce Prim2ConM_hot and call this pointwise routine from Prim2ConM.F90 when temperature is evolved. Additionally also make this routine available to initial data routine in GRHydro_InitData 7) Adjust loops in GRHydro_PoloidalMagFieldM.F90 to not set boundary points it cannot set but instead call boundary group afterwards! Pay attention as this will not work with boundary conditions set to "none" in MHD case anymore but is the correct thing to do. 8) Allow StarMapper to extend HydroBase::initial_hydro = "starmapper". 9) Smaller fixes. From: Philipp Moesta <pmoesta(a)tapir.caltech.edu> File Changes: Directory: /trunk/src/ ====================== File [modified]: GRHydro_PoloidalMagFieldM.F90 Delta lines: +22 -6 =================================================================== --- trunk/src/GRHydro_PoloidalMagFieldM.F90 2012-08-27 21:19:38 UTC (rev 152) +++ trunk/src/GRHydro_PoloidalMagFieldM.F90 2012-09-04 12:28:40 UTC (rev 153) @@ -75,10 +75,12 @@ dy = CCTK_DELTA_SPACE(2) dz = CCTK_DELTA_SPACE(3) - do i=1,nx - do j=1,ny - do k=1,nz + write(*,*)'GRHydro_InitData: Setting up initial poloidal magnetic field' + do i=2,nx-1 + do j=2,ny-1 + do k=2,nz-1 + rhofac = 1.0d0-rho(i,j,k)/poloidal_rho_max delPcut = press(i,j,k)-poloidal_P_cut maxP_Pcut = max(delPcut,0.0d0) @@ -121,6 +123,10 @@ Bvecy(i,j,k) = - Ax_dz/sdet Bvecz(i,j,k) = (Ax_dy-Ay_dx)/sdet + !Bvecx(i,j,k) = 0.0d0 + !Bvecy(i,j,k) = 0.0d0 + !Bvecz(i,j,k) = 0.00000001/sdet + if (CCTK_EQUALS(GRHydro_eos_type,"Polytype")) then call Prim2ConPolyM(GRHydro_eos_handle,gxx(i,j,k),gxy(i,j,k),& gxz(i,j,k),gyy(i,j,k),gyz(i,j,k),gzz(i,j,k),& @@ -130,13 +136,21 @@ eps(i,j,k),press(i,j,k),Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),& w_lorentz(i,j,k)) else - call Prim2ConGenM(GRHydro_eos_handle,gxx(i,j,k),gxy(i,j,k),& + call Prim2ConGenM_hot(GRHydro_eos_handle,GRHydro_reflevel,& + i,j,k,x(i,j,k),y(i,j,k),z(i,j,k),gxx(i,j,k),gxy(i,j,k),& gxz(i,j,k),gyy(i,j,k),gyz(i,j,k),gzz(i,j,k),& det, dens(i,j,k),sx(i,j,k),sy(i,j,k),sz(i,j,k),& tau(i,j,k),Bconsx(i,j,k),Bconsy(i,j,k),Bconsz(i,j,k),rho(i,j,k),& velx(i,j,k),vely(i,j,k),velz(i,j,k),& eps(i,j,k),press(i,j,k),Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),& - w_lorentz(i,j,k)) + w_lorentz(i,j,k),temperature(i,j,k),y_e(i,j,k)) +! call Prim2ConGenM(GRHydro_eos_handle,gxx(i,j,k),gxy(i,j,k),& +! gxz(i,j,k),gyy(i,j,k),gyz(i,j,k),gzz(i,j,k),& +! det, dens(i,j,k),sx(i,j,k),sy(i,j,k),sz(i,j,k),& +! tau(i,j,k),Bconsx(i,j,k),Bconsy(i,j,k),Bconsz(i,j,k),rho(i,j,k),& +! velx(i,j,k),vely(i,j,k),velz(i,j,k),& +! eps(i,j,k),press(i,j,k),Bvecx(i,j,k),Bvecy(i,j,k),Bvecz(i,j,k),& +! w_lorentz(i,j,k)) end if enddo @@ -147,7 +161,9 @@ srhs = 0.d0 taurhs = 0.d0 Bconsrhs = 0.d0 - + if (clean_divergence .ne. 0) then + psidcrhs =0.0 + endif return end subroutine GRHydro_PoloidalMagFieldM Directory: /trunk/ ================== File [modified]: interface.ccl Delta lines: +17 -0 =================================================================== --- trunk/interface.ccl 2012-08-27 21:19:38 UTC (rev 152) +++ trunk/interface.ccl 2012-09-04 12:28:40 UTC (rev 153) @@ -66,7 +66,23 @@ CCTK_REAL OUT press, CCTK_REAL IN Bvecx, CCTK_REAL IN Bvecy, \ CCTK_REAL IN Bvecz, CCTK_REAL OUT w_lorentz) +SUBROUTINE Prim2ConGenM_hot(CCTK_INT IN handle, CCTK_INT IN GRHydro_reflevel, CCTK_INT IN i, CCTK_INT IN j, CCTK_INT IN k, \ + CCTK_REAL IN x, CCTK_REAL IN y, CCTK_REAL IN z, \ + CCTK_REAL IN gxx, CCTK_REAL IN gxy, \ + CCTK_REAL IN gxz, CCTK_REAL IN gyy, \ + CCTK_REAL IN gyz, CCTK_REAL IN gzz, \ + CCTK_REAL IN det, CCTK_REAL OUT dens, \ + CCTK_REAL OUT sx, CCTK_REAL OUT sy, \ + CCTK_REAL OUT sz, CCTK_REAL OUT tau, \ + CCTK_REAL OUT Bconsx, CCTK_REAL OUT Bconsy, \ + CCTK_REAL OUT Bconsz, CCTK_REAL IN rho, CCTK_REAL IN velx, \ + CCTK_REAL IN vely, \ + CCTK_REAL IN velz, CCTK_REAL IN epsilon, \ + CCTK_REAL OUT press, CCTK_REAL IN Bvecx, CCTK_REAL IN Bvecy, \ + CCTK_REAL IN Bvecz, CCTK_REAL OUT w_lorentz, \ + CCTK_REAL INOUT temperature, CCTK_REAL IN Y_e) + SUBROUTINE Con2PrimPoly(CCTK_INT IN handle, CCTK_REAL OUT dens, \ CCTK_REAL OUT sx, CCTK_REAL OUT sy, \ CCTK_REAL OUT sz, CCTK_REAL OUT tau, \ @@ -154,6 +170,7 @@ USES FUNCTION Prim2ConGen USES FUNCTION Prim2ConPolyM USES FUNCTION Prim2ConGenM +USES FUNCTION Prim2ConGenM_hot USES FUNCTION Con2PrimPoly USES FUNCTION Con2PrimGen USES FUNCTION Con2PrimGenM File [modified]: schedule.ccl Delta lines: +5 -1 =================================================================== --- trunk/schedule.ccl 2012-08-27 21:19:38 UTC (rev 152) +++ trunk/schedule.ccl 2012-09-04 12:28:40 UTC (rev 153) @@ -245,9 +245,13 @@ if (CCTK_EQUALS(initial_Bvec, "poloidalmagfield")) { - SCHEDULE GRHydro_PoloidalMagFieldM IN HydroBase_Initial AFTER TOV_Initial_Data +# SCHEDULE GRHydro_PoloidalMagFieldM AT CCTK_INITIAL AFTER IN HydroBase_Initial AFTER rnsid_init AFTER TOV_Initial_Data after CCCC_StarMapper_InitialData + SCHEDULE GRHydro_PoloidalMagFieldM AT CCTK_POSTINITIAL { LANGUAGE: Fortran } "Set up a poloidal magnetic field. It expects the other fluid variables already to be set, as for example in the TOV solution" + SCHEDULE group HydroBase_Boundaries IN HydroBase_Initial AFTER GRHydro_PoloidalMagFieldM + { + } "Call boundary conditions after magnetic field initial data setup" }

1 0

[svn:einsteintoolkit] GRHydro/trunk/ (Rev. 420)
by knarf＠cct.lsu.edu 03 Sep '12

03 Sep '12

User: knarf Date: 2012/09/03 08:20 PM Modified: /trunk/ schedule.ccl Log: put { on new line after else File Changes: Directory: /trunk/ ================== File [modified]: schedule.ccl Delta lines: +3 -1 =================================================================== --- trunk/schedule.ccl 2012-08-27 19:19:46 UTC (rev 419) +++ trunk/schedule.ccl 2012-09-04 01:20:40 UTC (rev 420) @@ -972,7 +972,9 @@ { LANG: Fortran } "Convert initial data given in primive variables to conserved variables - MHD version" - } else { + } + else + { schedule Conservative2Primitive IN HydroBase_Con2Prim AS Con2Prim IF GRHydro::execute_MoL_PostStep { LANG: Fortran

1 0

New changesets in Carpet Mercurial
by Carpet mercurial repositories 31 Aug '12

31 Aug '12

changeset: 3643:237f69922fd3 user: Erik Schnetter <schnetter(a)gmail.com> date: Fri Aug 31 21:17:27 2012 -0400 summary: CarpetRegrid2: Try harder to combine different refined regions changeset: 3644:e0d7a3f3ccd4 tag: tip user: Erik Schnetter <schnetter(a)gmail.com> date: Fri Aug 31 21:17:51 2012 -0400 summary: Carpet: Handle granularity in recursive load balancing

1 0

New changesets in Carpet Mercurial
by Carpet mercurial repositories 31 Aug '12

31 Aug '12

changeset: 3642:ab3bc09908fe tag: tip user: Erik Schnetter <schnetter(a)gmail.com> date: Fri Aug 31 20:56:39 2012 -0400 summary: CarpetRegrid2: Add virtual destructor to base class

1 0

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

Commits September 2012