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

fixed check for N// > 1

Browse Source
This commit is contained in:
Daniela Farina 2017-02-01 11:06:09 +00:00
parent 4a2b5fc638
commit 72b682229c
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/errcodes.f90
View File

@ -17,8 +17,8 @@ contains
if(ibits(ierr,pnpl, lnpl )==2 .or. & ! N// too large if(ibits(ierr,pnpl, lnpl )==2 .or. & ! N// too large
ibits(ierr,palph,lalph)==1) then ! alpha < 0 ibits(ierr,palph,lalph)==1) then ! alpha < 0
istop = 1 istop = 1
else ! else
istop = 0 ! istop = 0
end if end if
end subroutine check_err end subroutine check_err

1
src/graycore.f90
View File

@ -164,6 +164,7 @@ contains
allout = .true. ! becomes false if at least part of the beam is inside the plsama allout = .true. ! becomes false if at least part of the beam is inside the plsama
ierr = 0 ierr = 0
istop = 0
do jk=1,nray do jk=1,nray
! compute derivatives with updated gradient and local plasma values ! compute derivatives with updated gradient and local plasma values
xv = yw(1:3,jk) xv = yw(1:3,jk)