is_mod.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module: IS                                                          C
!  Purpose: Internal surface specifications                            C
!                                                                      C
!  Author: M. Syamlal                                 Date: 10-OCT-92  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C

      MODULE is

! Modules
!---------------------------------------------------------------------//
      use param, only: dim_m, dimension_is
!---------------------------------------------------------------------//


! x coordinate of the west face of a region where internal surfaces
! are specified
      DOUBLE PRECISION :: is_x_w (dimension_is)

! x coordinate of the east face of a region where internal surfaces
! are specified
      DOUBLE PRECISION :: is_x_e (dimension_is)

! y coordinate of the south face of a region where internal surfaces
! are specified
      DOUBLE PRECISION :: is_y_s (dimension_is)

! y coordinate of the north face of a region where internal surfaces
! are specified
      DOUBLE PRECISION :: is_y_n (dimension_is)

! z coordinate of the bottom face of a region where internal surfaces
! are specified
      DOUBLE PRECISION :: is_z_b (dimension_is)

! z coordinate of the top face of a region where internal surfaces
! are specified
      DOUBLE PRECISION :: is_z_t (dimension_is)

! i index of the west face of a region where internal surfaces
! are specified
      INTEGER :: is_i_w (dimension_is)

! i index of the east face of a region where internal surfaces
! are specified
      INTEGER :: is_i_e (dimension_is)

! j index of the south face of a region where internal surfaces
! are specified
      INTEGER :: is_j_s (dimension_is)

! j index of the north face of a region where internal surfaces
! are specified
      INTEGER :: is_j_n (dimension_is)

! k index of the bottom face of a region where internal surfaces
! are specified
      INTEGER :: is_k_b (dimension_is)

! k index of the top face of a region where internal surfaces
! are specified
      INTEGER :: is_k_t (dimension_is)

! Type of internal surface:
! IMPERMEABLE - no gas or solids flow through the surface
! SEMIPERMEABLE - only gas flows through the surface
      CHARACTER(LEN=16) :: is_type (dimension_is)

! Logical variable to determine whether an IS is defined
       LOGICAL :: is_defined (dimension_is)

! Are there any IS defined?
       LOGICAL :: any_is_defined

! Character variable with values E, N, and T to determine the
! IS plane of a flow cell
       CHARACTER :: is_plane (dimension_is)

! Permeability coefficients for semipermeable internal surface:
! 1- Darcy coefficient
! 2- Inertial resistance factor
      DOUBLE PRECISION :: is_pc (dimension_is, 2)

! Solids velocity at the semipermeable surface
      DOUBLE PRECISION :: is_vel_s (dimension_is, dim_m)

      END MODULE is