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

Rename module INTERPOLATION to INTERPOLATIONS.

Browse Source
This commit is contained in:
Grzegorz Kowal 2012-07-27 16:36:51 -03:00
parent dbd38c9399
commit 18886475fc
4 changed files with 40 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/boundaries.F90
View File

@ -2336,7 +2336,7 @@ module boundaries
use config , only : ng, im, ih, ib, ie, ieu &
, nd, jm, jh, jb, je, jeu &
, nh, km, kh, kb, ke, keu
use interpolation, only : minmod
use interpolations, only : minmod
use variables , only : nqt
implicit none
@ -2665,7 +2665,7 @@ module boundaries
, zubndry, ng, im, jm, km, ib, ibl, ie, ieu, jb &
, jbl, je, jeu, kb, kbl, ke, keu
use error , only : print_warning
use interpolation, only : limiter
use interpolations, only : limiter
use variables , only : nvr, nfl, idn, imx, imy, imz
#ifdef MHD
use variables , only : ibx, iby, ibz

9
src/interpolation.F90
View File

@ -21,11 +21,14 @@
!!
!!******************************************************************************
!!
!! module: INTERPOLATION - subroutines for different kinds of interpolation
!! module: INTERPOLATIONS
!!
!! This module provides subroutine to interpolate variables and reconstruct
!! Riemann states.
!!
!!******************************************************************************
!
module interpolation
module interpolations
implicit none
@ -1273,4 +1276,4 @@ module interpolation
!
!===============================================================================
!
end module
end module interpolations

10
src/mesh.F90
View File

@ -1039,11 +1039,11 @@ module mesh
!
subroutine prolong_block(pblock)
use blocks , only : block_meta, block_data, nchild
use coordinates , only : ng, nh, in, jn, kn, im, jm, km
use coordinates , only : ib, ie, jb, je, kb, ke
use interpolation, only : minmod
use variables , only : nqt
use blocks , only : block_meta, block_data, nchild
use coordinates , only : ng, nh, in, jn, kn, im, jm, km
use coordinates , only : ib, ie, jb, je, kb, ke
use interpolations, only : minmod
use variables , only : nqt
implicit none

54
src/scheme.F90
View File

@ -605,16 +605,16 @@ module scheme
!
subroutine hll(n, h, u, f)
use interpolation, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : ivx, ivy, ivz
use interpolations, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : ivx, ivy, ivz
#ifdef ADI
use variables , only : ien
use variables , only : ien
#endif /* ADI */
#ifdef MHD
use variables , only : ibx, iby, ibz
use variables , only : ibx, iby, ibz
#ifdef GLM
use variables , only : iph
use variables , only : iph
#endif /* GLM */
#endif /* MHD */
@ -734,9 +734,9 @@ module scheme
!
subroutine hllc(n, h, u, f)
use interpolation, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : idn, imx, imy, imz, ien, ivx, ivy, ivz, ipr
use interpolations, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : idn, imx, imy, imz, ien, ivx, ivy, ivz, ipr
implicit none
@ -942,12 +942,12 @@ module scheme
!
subroutine hlld(n, h, u, f)
use interpolation, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : idn, imx, imy, imz, ivx, ivy, ivz
use variables , only : ibx, iby, ibz
use interpolations, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : idn, imx, imy, imz, ivx, ivy, ivz
use variables , only : ibx, iby, ibz
#ifdef GLM
use variables , only : iph
use variables , only : iph
#endif /* GLM */
implicit none
@ -1193,13 +1193,13 @@ module scheme
!
subroutine hlld(n, h, u, f)
use equations , only : gamma
use interpolation, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : idn, imx, imy, imz, ien, ivx, ivy, ivz, ipr
use variables , only : ibx, iby, ibz
use equations , only : gamma
use interpolations, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : idn, imx, imy, imz, ien, ivx, ivy, ivz, ipr
use variables , only : ibx, iby, ibz
#ifdef GLM
use variables , only : iph
use variables , only : iph
#endif /* GLM */
implicit none
@ -1545,17 +1545,17 @@ module scheme
!
subroutine roe(n, h, u, f)
use equations , only : gamma
use interpolation, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : idn, ivx, ivy, ivz
use equations , only : gamma
use interpolations, only : reconstruct
use variables , only : nvr, nfl, nqt
use variables , only : idn, ivx, ivy, ivz
#ifdef ADI
use variables , only : ien, ipr
use variables , only : ien, ipr
#endif /* ADI */
#ifdef MHD
use variables , only : ibx, iby, ibz
use variables , only : ibx, iby, ibz
#ifdef GLM
use variables , only : iph
use variables , only : iph
#endif /* GLM */
#endif /* MHD */