gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SOURCES: Fix upper limit in i-loops.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2016-12-02 09:58:13 -02:00
parent 416cc0a5dd
commit 88a1765a40
1 changed files with 3 additions and 3 deletions

6
src/sources.F90

@ -296,7 +296,7 @@ module sources
! !
do k = 1, km do k = 1, km
do j = 1, jm do j = 1, jm
do i = 1, jm do i = 1, im
! calculate distance from the origin ! calculate distance from the origin
! !
@ -370,7 +370,7 @@ module sources
! !
do k = 1, km do k = 1, km
do j = 1, jm do j = 1, jm
do i = 1, jm do i = 1, im
! prepare the νρ factor ! prepare the νρ factor
! !
@ -441,7 +441,7 @@ module sources
! !
do k = 1, km do k = 1, km
do j = 1, jm do j = 1, jm
do i = 1, jm do i = 1, im
! calculate scalar product of v and viscous stress tensor τ ! calculate scalar product of v and viscous stress tensor τ
! !