istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

corrected initial conditions in ic_gb

Browse Source
This commit is contained in:
Lorenzo Figini 2013-04-11 13:43:23 +00:00
parent b83b6f0f5b
commit 912e9e1ec3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gray.f
View File

@ -3893,8 +3893,11 @@ c
du1tz=0.5d0*u*(dx0t**2*dwwxx+dy0t**2*dwwyy+ du1tz=0.5d0*u*(dx0t**2*dwwxx+dy0t**2*dwwyy+
. 2.0d0*dx0t*dy0t*dwwxy)/ddfu . 2.0d0*dx0t*dy0t*dwwxy)/ddfu
c c
ppx=x0t*rcixx+y0t*rcixy pppx=x0t*rcixx+y0t*rcixy
ppy=x0t*rcixy+y0t*rciyy pppy=x0t*rcixy+y0t*rciyy
ppx=-pppx*gzt/(pppx*gxt+pppy*gyt)
ppy=-pppy*gzt/(pppx*gxt+pppy*gyt)
c
anzt=sqrt((1.0d0+gr2)/(1.0d0+ppx**2+ppy**2)) anzt=sqrt((1.0d0+gr2)/(1.0d0+ppx**2+ppy**2))
anxt=ppx*anzt anxt=ppx*anzt
anyt=ppy*anzt anyt=ppy*anzt