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

Reorganize variable indices in variables.F90.

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-06-12 00:56:06 -03:00
parent 970293c024
commit fb8f3e2da4
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/variables.F90
View File

@ -33,30 +33,26 @@ module variables
integer(kind=4), parameter :: inx = 1, iny = 2, inz = 3
integer(kind=4), parameter :: idn = 1, imx = 2, imy = 3, imz = 4 &
, ivx = 2, ivy = 3, ivz = 4
#ifdef HYDRO
#ifdef ISO
integer(kind=4), parameter :: nvr = 4, nfl = 4, nqt = 4
integer(kind=4), parameter :: nfl = 4
#endif /* ISO */
#ifdef ADI
integer(kind=4), parameter :: ien = 5, ipr = 5
integer(kind=4), parameter :: nvr = 5, nfl = 5, nqt = 5
integer(kind=4), parameter :: nfl = 5
#endif /* ADI */
#ifdef HYDRO
integer(kind=4), parameter :: nqt = nfl
#endif /* HYDRO */
#ifdef MHD
integer(kind=4), parameter :: ibx = nfl + 1, iby = ibx + 1, ibz = iby + 1
#ifdef GLM
#ifdef ISO
integer(kind=4), parameter :: ibx = 5, iby = 6, ibz = 7
integer(kind=4), parameter :: iph = 8
integer(kind=4), parameter :: nvr = 8, nfl = 4, nqt = 8
#endif /* ISO */
#ifdef ADI
integer(kind=4), parameter :: ien = 5, ipr = 5
integer(kind=4), parameter :: ibx = 6, iby = 7, ibz = 8
integer(kind=4), parameter :: iph = 9
integer(kind=4), parameter :: nvr = 9, nfl = 5, nqt = 9
#endif /* ADI */
integer(kind=4), parameter :: iph = ibz + 1
integer(kind=4), parameter :: nqt = iph
#else /* GLM */
integer(kind=4), parameter :: nqt = ibz
#endif /* GLM */
#endif /* MHD */
integer(kind=4), parameter :: nvr = nqt
!
!===============================================================================
!