JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Small improvement.

Browse source 
Small change to probing system.
This commit is contained in:
Jorge Gonzalez 2021-08-26 11:21:08 +02:00
commit aa9dda76ca
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/modules/moduleProbe.f90
View file

@ -63,10 +63,12 @@ MODULE moduleProbe
ALLOCATE(self%vj(1:self%nv(2)))
ALLOCATE(self%vk(1:self%nv(3)))
self%vrange(1) = (v1(2) - v1(1))/v_ref
self%vrange(2) = (v2(2) - v2(1))/v_ref
self%vrange(3) = (v3(2) - v3(1))/v_ref
!Creates grid
dv(1) = (v1(2) - v1(1))/REAL(self%nv(1) - 1)/v_ref
dv(2) = (v2(2) - v2(1))/REAL(self%nv(2) - 1)/v_ref
dv(3) = (v3(2) - v3(1))/REAL(self%nv(3) - 1)/v_ref
dv = self%vrange / REAL(self%nv - 1)
self%dvInv = 1.D0/(dv(1)*dv(2)*dv(3))
@ -85,10 +87,6 @@ MODULE moduleProbe
END DO
self%vrange(1) = self%vi(self%nv(1)) - self%vi(1)
self%vrange(2) = self%vj(self%nv(2)) - self%vj(1)
self%vrange(3) = self%vk(self%nv(3)) - self%vk(1)
!Allocates distribution function
ALLOCATE(self%f(1:self%nv(1), &
1:self%nv(2), &