diff --git a/src/boundaries.F90 b/src/boundaries.F90 index 58b7563..b62d420 100644 --- a/src/boundaries.F90 +++ b/src/boundaries.F90 @@ -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 diff --git a/src/interpolation.F90 b/src/interpolation.F90 index 28cbc16..eb6d1d9 100644 --- a/src/interpolation.F90 +++ b/src/interpolation.F90 @@ -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 diff --git a/src/mesh.F90 b/src/mesh.F90 index 8fc5be4..149f466 100644 --- a/src/mesh.F90 +++ b/src/mesh.F90 @@ -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 diff --git a/src/scheme.F90 b/src/scheme.F90 index 24dee7c..a5a856b 100644 --- a/src/scheme.F90 +++ b/src/scheme.F90 @@ -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 */