gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Increase radii in binaries problem if mesh is too coarse.

Browse Source 
- in the case when we work in low resolution and the radii of star and
   sattelite are too small we increase them to be equal to the mesh
   size;
This commit is contained in:
Grzegorz Kowal 2011-05-09 18:34:08 -03:00
parent 0657926966
commit a521068011
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/problem.F90
View File

@ -729,7 +729,7 @@ module problem
! local variables ! local variables
! !
integer :: i, j, k integer :: i, j, k
real :: dx, dy, dz real :: dx, dy, dz, dr
real :: dnamb, pramb real :: dnamb, pramb
real :: dnstar, prstar, x1l, y1l, z1l, r1 real :: dnstar, prstar, x1l, y1l, z1l, r1
real :: dnsat , prsat , x2l, y2l, z2l, r2 real :: dnsat , prsat , x2l, y2l, z2l, r2
@ -767,8 +767,10 @@ module problem
dy = (pblock%meta%ymax - pblock%meta%ymin) / jn dy = (pblock%meta%ymax - pblock%meta%ymin) / jn
#if NDIMS == 3 #if NDIMS == 3
dz = (pblock%meta%zmax - pblock%meta%zmin) / kn dz = (pblock%meta%zmax - pblock%meta%zmin) / kn
dr = sqrt(dx * dx + dy * dy + dz * dz)
#else /* NDIMS == 3 */ #else /* NDIMS == 3 */
dz = 1.0 dz = 1.0
dr = sqrt(dx * dx + dy * dy)
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
! generate coordinates ! generate coordinates
@ -826,7 +828,7 @@ module problem
! variables within the first start ! variables within the first start
! !
if (r1 .le. rstar) then if (r1 .le. max(rstar, dr)) then
q(idn,i) = dnstar q(idn,i) = dnstar
q(ivx,i) = vstar * x1l q(ivx,i) = vstar * x1l
@ -841,7 +843,7 @@ module problem
! variables within the second start ! variables within the second start
! !
if (r2 .le. rsat) then if (r2 .le. max(rsat, dr)) then
q(idn,i) = dnsat q(idn,i) = dnsat
q(ivx,i) = vsat * x2l q(ivx,i) = vsat * x2l
@ -1410,7 +1412,7 @@ module problem
! local variables ! local variables
! !
integer :: i, j, k integer :: i, j, k
real :: dx, dy, dz, ang = 0.0d0, sn = 0.0d0, cs = 1.0d0, xsh, ysh real :: dx, dy, dz, dr, ang = 0.0d0, sn = 0.0d0, cs = 1.0d0, xsh, ysh
real :: dist, rad, amp, asat, bsat, xsat real :: dist, rad, amp, asat, bsat, xsat
real :: dnamb, pramb real :: dnamb, pramb
real :: dnstar, prstar, dnvstar, x1l, y1l, z1l, r1 real :: dnstar, prstar, dnvstar, x1l, y1l, z1l, r1
@ -1436,8 +1438,10 @@ module problem
dy = (pdata%meta%ymax - pdata%meta%ymin) / jn dy = (pdata%meta%ymax - pdata%meta%ymin) / jn
#if NDIMS == 3 #if NDIMS == 3
dz = (pdata%meta%zmax - pdata%meta%zmin) / kn dz = (pdata%meta%zmax - pdata%meta%zmin) / kn
dr = sqrt(dx * dx + dy * dy + dz * dz)
#else /* NDIMS == 3 */ #else /* NDIMS == 3 */
dz = 1.0 dz = 1.0
dr = sqrt(dx * dx + dy * dy)
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
! generate coordinates ! generate coordinates
@ -1508,7 +1512,7 @@ module problem
! variables within the first start ! variables within the first start
! !
if (r1 .le. rstar) then if (r1 .le. max(rstar, dr)) then
pdata%u(idn,i,j,k) = dnstar pdata%u(idn,i,j,k) = dnstar
pdata%u(imx,i,j,k) = dnvstar * x1l pdata%u(imx,i,j,k) = dnvstar * x1l
@ -1535,7 +1539,7 @@ module problem
! variables within the second start ! variables within the second start
! !
if (r2 .le. rsat) then if (r2 .le. max(rsat, dr)) then
pdata%u(idn,i,j,k) = dnsat pdata%u(idn,i,j,k) = dnsat
pdata%u(imx,i,j,k) = dnvsat * x2l pdata%u(imx,i,j,k) = dnvsat * x2l