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

Calculate properly kinetic energy in shape_binaries().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-09 18:36:20 -03:00
parent a521068011
commit 0943c31af0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/problem.F90
View File

@ -1532,7 +1532,7 @@ module problem
#endif /* GLM */ #endif /* GLM */
#endif /* MHD */ #endif /* MHD */
#ifdef ADI #ifdef ADI
ekin = ekstar * r1 * r1 ekin = 0.5d0 * sum(pdata%u(imx:imz,i,j,k)**2) / pdata%u(idn,i,j,k)
pdata%u(ien,i,j,k) = gammam1i * prstar + ekin pdata%u(ien,i,j,k) = gammam1i * prstar + ekin
#endif /* ADI */ #endif /* ADI */
end if end if
@ -1559,7 +1559,7 @@ module problem
#endif /* GLM */ #endif /* GLM */
#endif /* MHD */ #endif /* MHD */
#ifdef ADI #ifdef ADI
ekin = eksat * r2 * r2 ekin = 0.5d0 * sum(pdata%u(imx:imz,i,j,k)**2) / pdata%u(idn,i,j,k)
pdata%u(ien,i,j,k) = gammam1i * prsat + ekin pdata%u(ien,i,j,k) = gammam1i * prsat + ekin
#endif /* ADI */ #endif /* ADI */
end if end if