Skip to content

Commit 201a367

Browse files
committed
fix: restore CASE_OPT_PARAMS declarations in #:else branch
1 parent b157705 commit 201a367

1 file changed

Lines changed: 22 additions & 4 deletions

File tree

src/simulation/m_global_parameters.fpp

Lines changed: 22 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -93,10 +93,26 @@ module m_global_parameters
9393
logical, parameter :: igr_pres_lim = (${igr_pres_lim}$ /= 0) !< Limit to positive pressures for IGR
9494
logical, parameter :: viscous = (${viscous}$ /= 0) !< Viscous effects
9595
#:else
96-
integer :: weno_polyn !< Degree of the WENO polynomials (polyn)
97-
integer :: muscl_polyn !< Degree of the MUSCL polynomials (polyn)i
98-
integer :: weno_num_stencils !< Number of stencils for WENO reconstruction (only different from weno_polyn for TENO(>5))
99-
logical :: wenojs !< WENO-JS (default)
96+
integer :: recon_type
97+
integer :: weno_polyn
98+
integer :: muscl_polyn
99+
integer :: weno_order
100+
integer :: muscl_order
101+
integer :: weno_num_stencils
102+
integer :: muscl_lim
103+
integer :: num_fluids
104+
logical :: wenojs
105+
logical :: mapped_weno
106+
logical :: wenoz
107+
logical :: teno
108+
real(wp) :: wenoz_q
109+
logical :: mhd
110+
logical :: relativity
111+
integer :: igr_iter_solver
112+
integer :: igr_order
113+
logical :: igr
114+
logical :: igr_pres_lim
115+
logical :: viscous
100116
#:endif
101117

102118
$:GPU_DECLARE(create='[int_comp, ic_eps, ic_beta]')
@@ -254,6 +270,8 @@ module m_global_parameters
254270
!> @{
255271
#:if MFC_CASE_OPTIMIZATION
256272
integer, parameter :: nb = ${nb}$ !< Number of eq. bubble sizes
273+
#:else
274+
integer :: nb
257275
#:endif
258276

259277
real(wp) :: Eu !< Euler number

0 commit comments

Comments
 (0)