param_mod.f

Go to the documentation of this file.

! -*- f90 -*-
      MODULE param

! Parameters describing problem size: (set from user input)
!'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
! Number of partitions in axial direction
      INTEGER :: dimension_i  ! X-Axis
      INTEGER :: dimension_j  ! Y-Axis
      INTEGER :: dimension_k  ! Z-Axis
! Number of computational cells
      INTEGER :: dimension_3  !
      INTEGER :: dimension_3l ! Local subdomain
      INTEGER :: dimension_3g ! Global
      INTEGER :: dimension_3p ! POST_MFIX
! Number of computational cells for higher order schemes
      INTEGER :: dimension_4
! Total number of solids phases
      INTEGER :: dimension_m
! Maximum number of species.
      INTEGER :: dimension_n_g ! Gas
      INTEGER :: dimension_n_s ! Solids
! Maximum number of user-defined scalars
      INTEGER :: dimension_scalar
      INTEGER :: dim_scalar2

! Definitions for sparse matrix
!'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
! East
      INTEGER :: east
      parameter(east = 1)

! West
      INTEGER :: west
      parameter(west =-1)

! North
      INTEGER :: north
      parameter(north = 2)

! South
      INTEGER :: south
      parameter(south =-2)

! Top
      INTEGER :: top
      parameter(top = 3)

! Bottom
      INTEGER :: bottom
      parameter(bottom =-3)

! Parameters limiting user-specifed input.
!'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
! Maximum number of reactions defined in data file
      INTEGER, PARAMETER :: dimension_rxn = 100
! Number of user defined constants
      INTEGER, PARAMETER :: dimension_c = 500
! Maximum number of items for specifying initial conditions
      INTEGER, PARAMETER :: dimension_ic = 500
! Maximum number of items for specifying boundary conditions
      INTEGER, PARAMETER :: dimension_bc = 500
! Maximum number of items for specifying internal surfaces.
      INTEGER, PARAMETER :: dimension_is = 500
! Maximum number of items for specifying point sources
      INTEGER, PARAMETER :: dimension_ps = 5000
! Maximum number of solids phases
      INTEGER, PARAMETER :: dim_m = 10
! Maximum number of gas species
      INTEGER, PARAMETER :: dim_n_g = 100
! Maximum number of solids species per phase.
      INTEGER, PARAMETER :: dim_n_s = 100
! Maximum of DIM_N_g and DIM_N_s
      INTEGER, PARAMETER :: dim_n = max(dim_n_g, dim_n_s)
! Maximum number of species.
      INTEGER, PARAMETER :: dim_n_all = 2*dim_n
! Maximum of the number of cells in the x direction.
      INTEGER, PARAMETER :: dim_i = 5000
! Maximum of the number of cells in the y direction.
      INTEGER, PARAMETER :: dim_j = 5000
! Maximum of the number of cells in the z direction.
      INTEGER, PARAMETER :: dim_k = 5000
! Maximum number of user-defined output files
      INTEGER, PARAMETER :: dimension_usr = 5
! Maximum of the number of scalars that can be read
      INTEGER, PARAMETER :: dim_scalar = 100
! Number of Equation types:
!  1) Gas pressure
!  2) Solids volume fraction
!  3) Gas and solids U-Momentum equation
!  4) Gas and solids V-Momentum equation
!  5) Gas and solids W-Momentum equation
!  6) Temperature
!  7) Species Mass Fractions
!  8) Granular Temperature
!  9) User-defined scalar
! 10) DES Diffusion
      INTEGER, PARAMETER :: dim_eqs = 10

   CONTAINS
      SUBROUTINE filler
         IMPLICIT NONE
         ! empty subroutine so param is accessible from pymfix
      END SUBROUTINE filler

      END MODULE param