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

removed duplicate print in projxyzt

Browse Source
This commit is contained in:
Lorenzo Figini 2013-04-11 14:00:26 +00:00
parent 912e9e1ec3
commit 9f445e5cd1
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/gray.f
View File

@ -422,11 +422,11 @@ c
xxm=x*1.0d-2 xxm=x*1.0d-2
yym=y*1.0d-2 yym=y*1.0d-2
c c
if(index_rt.gt.1) then if(index_rt.gt.1) then
taujk=tauv(j,k,i)+tau1v(j,k) taujk=tauv(j,k,i)+tau1v(j,k)
else else
taujk=tauv(j,k,i) taujk=tauv(j,k,i)
end if end if
c central ray only begin c central ray only begin
if(j.eq.1) then if(j.eq.1) then
@ -5718,8 +5718,8 @@ c
c c
end do end do
c c
if(.not.(iproj.eq.0.and.j.eq.1)) c if(.not.(iproj.eq.0.and.j.eq.1))
. write(nfile,111) istep,j,k,xti,yti,zti,rti,psinv11 c . write(nfile,111) istep,j,k,xti,yti,zti,rti,psinv11
if(iproj.eq.1) write(nfile,*) ' ' if(iproj.eq.1) write(nfile,*) ' '
end do end do
c c