SOURCES: Fix upper limit in i-loops.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
416cc0a5dd
commit
88a1765a40
@ -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 τ
|
||||||
!
|
!
|
||||||
|
Loading…
x
Reference in New Issue
Block a user