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

updated declarative section in module dispersion in nocommon branch

Browse Source
This commit is contained in:
Daniele Micheletti 2015-06-10 07:35:02 +00:00
parent 79af5f0b4b
commit 31ecfb6be4
3 changed files with 1021 additions and 1017 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -28,7 +28,7 @@ gray.o: dispersion.o dqagmv.o green_func_p.o reflections.o const_and_precisions.
graydata_flags.o graydata_par.o graydata_anequil.o magsurf_data.o interp_eqprof.o graydata_flags.o graydata_par.o graydata_anequil.o magsurf_data.o interp_eqprof.o
green_func_p.o: const_and_precisions.o green_func_p.o: const_and_precisions.o
reflections.o: const_and_precisions.o reflections.o: const_and_precisions.o
dispersion.o: calcei_mod.o dqagmv.o dispersion.o: const_and_precisions.o calcei_mod.o dqagmv.o
graydata_flags.o: const_and_precisions.o graydata_flags.o: const_and_precisions.o
graydata_par.o: const_and_precisions.o graydata_par.o: const_and_precisions.o
graydata_anequil.o: const_and_precisions.o graydata_anequil.o: const_and_precisions.o

2034
src/dispersion.f90
View File

File diff suppressed because it is too large Load Diff

2
src/gray.f
View File

@ -6753,7 +6753,7 @@ c ivac=-1 vessel (and thus plasma) never crossed
xvend=xv0+st*anv0 xvend=xv0+st*anv0
rrm=1.d-2*sqrt(xvend(1)**2+xvend(2)**2) rrm=1.d-2*sqrt(xvend(1)**2+xvend(2)**2)
zzm=1.d-2*xvend(3) zzm=1.d-2*xvend(3)
plfound=inside_plasma(rrm,zzm,0) plfound=inside_plasma(rrm,zzm)
if (st.ge.smax.or.plfound) exit if (st.ge.smax.or.plfound) exit
i=i+1 i=i+1
end do end do