1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module: IS C 4 ! Purpose: Internal surface specifications C 5 ! C 6 ! Author: M. Syamlal Date: 10-OCT-92 C 7 ! Reviewer: Date: dd-mmm-yy C 8 ! C 9 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 10 11 MODULE is 12 13 ! Modules 14 !---------------------------------------------------------------------// 15 use param, only: DIM_M, DIMENSION_IS 16 !---------------------------------------------------------------------// 17 18 19 ! x coordinate of the west face of a region where internal surfaces 20 ! are specified 21 DOUBLE PRECISION :: IS_X_w (DIMENSION_IS) 22 23 ! x coordinate of the east face of a region where internal surfaces 24 ! are specified 25 DOUBLE PRECISION :: IS_X_e (DIMENSION_IS) 26 27 ! y coordinate of the south face of a region where internal surfaces 28 ! are specified 29 DOUBLE PRECISION :: IS_Y_s (DIMENSION_IS) 30 31 ! y coordinate of the north face of a region where internal surfaces 32 ! are specified 33 DOUBLE PRECISION :: IS_Y_n (DIMENSION_IS) 34 35 ! z coordinate of the bottom face of a region where internal surfaces 36 ! are specified 37 DOUBLE PRECISION :: IS_Z_b (DIMENSION_IS) 38 39 ! z coordinate of the top face of a region where internal surfaces 40 ! are specified 41 DOUBLE PRECISION :: IS_Z_t (DIMENSION_IS) 42 43 ! i index of the west face of a region where internal surfaces 44 ! are specified 45 INTEGER :: IS_I_w (DIMENSION_IS) 46 47 ! i index of the east face of a region where internal surfaces 48 ! are specified 49 INTEGER :: IS_I_e (DIMENSION_IS) 50 51 ! j index of the south face of a region where internal surfaces 52 ! are specified 53 INTEGER :: IS_J_s (DIMENSION_IS) 54 55 ! j index of the north face of a region where internal surfaces 56 ! are specified 57 INTEGER :: IS_J_n (DIMENSION_IS) 58 59 ! k index of the bottom face of a region where internal surfaces 60 ! are specified 61 INTEGER :: IS_K_b (DIMENSION_IS) 62 63 ! k index of the top face of a region where internal surfaces 64 ! are specified 65 INTEGER :: IS_K_t (DIMENSION_IS) 66 67 ! Type of internal surface: 68 ! IMPERMEABLE - no gas or solids flow through the surface 69 ! SEMIPERMEABLE - only gas flows through the surface 70 CHARACTER(LEN=16) :: IS_TYPE (DIMENSION_IS) 71 72 ! Logical variable to determine whether an IS is defined 73 LOGICAL :: IS_DEFINED (DIMENSION_IS) 74 75 ! Are there any IS defined? 76 LOGICAL :: ANY_IS_DEFINED 77 78 ! Character variable with values E, N, and T to determine the 79 ! IS plane of a flow cell 80 CHARACTER :: IS_PLANE (DIMENSION_IS) 81 82 ! Permeability coefficients for semipermeable internal surface: 83 ! 1- Darcy coefficient 84 ! 2- Inertial resistance factor 85 DOUBLE PRECISION :: IS_PC (DIMENSION_IS, 2) 86 87 ! Solids velocity at the semipermeable surface 88 DOUBLE PRECISION :: IS_VEL_s (DIMENSION_IS, DIM_M) 89 90 END MODULE is 91