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