1 ! -*- f90 -*- 2 MODULE param 3 4 ! Parameters describing problem size: (set from user input) 5 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 6 ! Number of partitions in axial direction 7 INTEGER :: DIMENSION_I ! X-Axis 8 INTEGER :: DIMENSION_J ! Y-Axis 9 INTEGER :: DIMENSION_K ! Z-Axis 10 ! Number of computational cells 11 INTEGER :: DIMENSION_3 ! 12 INTEGER :: DIMENSION_3L ! Local subdomain 13 INTEGER :: DIMENSION_3G ! Global 14 INTEGER :: DIMENSION_3P ! POST_MFIX 15 ! Number of computational cells for higher order schemes 16 INTEGER :: DIMENSION_4 17 ! Total number of solids phases 18 INTEGER :: DIMENSION_M 19 ! Maximum number of species. 20 INTEGER :: DIMENSION_N_g ! Gas 21 INTEGER :: DIMENSION_N_s ! Solids 22 ! Maximum number of user-defined scalars 23 INTEGER :: DIMENSION_SCALAR 24 INTEGER :: DIM_SCALAR2 25 26 ! Definitions for sparse matrix 27 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 28 ! East 29 INTEGER :: east 30 PARAMETER (east = 1) 31 32 ! West 33 INTEGER :: west 34 PARAMETER (west =-1) 35 36 ! North 37 INTEGER :: north 38 PARAMETER (north = 2) 39 40 ! South 41 INTEGER :: south 42 PARAMETER (south =-2) 43 44 ! Top 45 INTEGER :: top 46 PARAMETER (top = 3) 47 48 ! Bottom 49 INTEGER :: bottom 50 PARAMETER (bottom =-3) 51 52 ! Parameters limiting user-specifed input. 53 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 54 ! Maximum number of reactions defined in data file 55 INTEGER, PARAMETER :: DIMENSION_RXN = 100 56 ! Number of user defined constants 57 INTEGER, PARAMETER :: DIMENSION_C = 500 58 ! Maximum number of items for specifying initial conditions 59 INTEGER, PARAMETER :: DIMENSION_IC = 500 60 ! Maximum number of items for specifying boundary conditions 61 INTEGER, PARAMETER :: DIMENSION_BC = 500 62 ! Maximum number of items for specifying internal surfaces. 63 INTEGER, PARAMETER :: DIMENSION_IS = 500 64 ! Maximum number of items for specifying point sources 65 INTEGER, PARAMETER :: DIMENSION_PS = 5000 66 ! Maximum number of solids phases 67 INTEGER, PARAMETER :: DIM_M = 10 68 ! Maximum number of gas species 69 INTEGER, PARAMETER :: DIM_N_g = 100 70 ! Maximum number of solids species per phase. 71 INTEGER, PARAMETER :: DIM_N_s = 100 72 ! Maximum of DIM_N_g and DIM_N_s 73 INTEGER, PARAMETER :: DIM_N = max(DIM_N_g, DIM_N_s) 74 ! Maximum number of species. 75 INTEGER, PARAMETER :: DIM_N_ALL = 2*DIM_N 76 ! Maximum of the number of cells in the x direction. 77 INTEGER, PARAMETER :: DIM_I = 5000 78 ! Maximum of the number of cells in the y direction. 79 INTEGER, PARAMETER :: DIM_J = 5000 80 ! Maximum of the number of cells in the z direction. 81 INTEGER, PARAMETER :: DIM_K = 5000 82 ! Maximum number of user-defined output files 83 INTEGER, PARAMETER :: DIMENSION_USR = 5 84 ! Maximum of the number of scalars that can be read 85 INTEGER, PARAMETER :: DIM_SCALAR = 100 86 ! Number of Equation types: 87 ! 1) Gas pressure 88 ! 2) Solids volume fraction 89 ! 3) Gas and solids U-Momentum equation 90 ! 4) Gas and solids V-Momentum equation 91 ! 5) Gas and solids W-Momentum equation 92 ! 6) Temperature 93 ! 7) Species Mass Fractions 94 ! 8) Granular Temperature 95 ! 9) User-defined scalar 96 ! 10) DES Diffusion 97 INTEGER, PARAMETER :: DIM_EQS = 10 98 99 CONTAINS 100 SUBROUTINE FILLER 101 IMPLICIT NONE 102 ! empty subroutine so param is accessible from pymfix 103 END SUBROUTINE FILLER 104 105 END MODULE param 106