1 MODULE param 2 3 ! Parameters describing problem size: (set from user input) 4 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 5 ! Number of partitions in axial direction 6 INTEGER :: DIMENSION_I ! X-Axis 7 INTEGER :: DIMENSION_J ! Y-Axis 8 INTEGER :: DIMENSION_K ! Z-Axis 9 ! Number of computational cells 10 INTEGER :: DIMENSION_3 ! 11 INTEGER :: DIMENSION_3L ! Local subdomain 12 INTEGER :: DIMENSION_3G ! Global 13 INTEGER :: DIMENSION_3P ! POST_MFIX 14 ! Number of computational cells for higher order schemes 15 INTEGER :: DIMENSION_4 16 ! Total number of solids phases 17 INTEGER :: DIMENSION_M 18 ! Maximum number of species. 19 INTEGER :: DIMENSION_N_g ! Gas 20 INTEGER :: DIMENSION_N_s ! Solids 21 ! Maximum number of user-defined scalars 22 INTEGER :: DIMENSION_SCALAR 23 INTEGER :: DIM_SCALAR2 24 25 26 ! Parameters limiting user-specifed input. 27 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 28 ! Maximum number of reactions defined in data file 29 INTEGER, PARAMETER :: DIMENSION_RXN = 100 30 ! Number of user defined constants 31 INTEGER, PARAMETER :: DIMENSION_C = 500 32 ! Maximum number of items for specifying initial conditions 33 INTEGER, PARAMETER :: DIMENSION_IC = 500 34 ! Maximum number of items for specifying boundary conditions 35 INTEGER, PARAMETER :: DIMENSION_BC = 500 36 ! Maximum number of items for specifying internal surfaces. 37 INTEGER, PARAMETER :: DIMENSION_IS = 500 38 ! Maximum number of items for specifying point sources 39 INTEGER, PARAMETER :: DIMENSION_PS = 5000 40 ! Maximum number of solids phases 41 INTEGER, PARAMETER :: DIM_M = 10 42 ! Maximum number of gas species 43 INTEGER, PARAMETER :: DIM_N_g = 100 44 ! Maximum number of solids species per phase. 45 INTEGER, PARAMETER :: DIM_N_s = 100 46 ! Maximum of DIM_N_g and DIM_N_s 47 INTEGER, PARAMETER :: DIM_N = max(DIM_N_g, DIM_N_s) 48 ! Maximum number of species. 49 INTEGER, PARAMETER :: DIM_N_ALL = 2*DIM_N 50 ! Maximum of the number of cells in the x direction. 51 INTEGER, PARAMETER :: DIM_I = 5000 52 ! Maximum of the number of cells in the y direction. 53 INTEGER, PARAMETER :: DIM_J = 5000 54 ! Maximum of the number of cells in the z direction. 55 INTEGER, PARAMETER :: DIM_K = 5000 56 ! Maximum number of user-defined output files 57 INTEGER, PARAMETER :: DIMENSION_USR = 5 58 ! Maximum of the number of scalars that can be read 59 INTEGER, PARAMETER :: DIM_SCALAR = 100 60 ! Number of Equation types: 61 ! 1) Gas pressure 62 ! 2) Solids volume fraction 63 ! 3) Gas and solids U-Momentum equation 64 ! 4) Gas and solids V-Momentum equation 65 ! 5) Gas and solids W-Momentum equation 66 ! 6) Temperature 67 ! 7) Species Mass Fractions 68 ! 8) Granular Temperature 69 ! 9) User-defined scalar 70 ! 10) DES Diffusion 71 INTEGER, PARAMETER :: DIM_EQS = 10 72 73 END MODULE param 74