mflux_mod.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: mflux                                                  C
!  Purpose: Module for mass fluxes and densities at faces              C
!                                                                      C
!  Author: M. Syamlal                                 Date: dd-mmm-yy  C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C

      MODULE mflux

! x-component of gas mass flux
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  flux_ge
! y-component of gas mass flux
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  flux_gn
! z-component of gas mass flux
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  flux_gt

! y-component of solids mass flux
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  flux_sn
! x-component of solids mass flux
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  flux_se
! z-component of solids mass flux
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  flux_st

! Added mass Flux Components to be used for scalar eq.
! Note: added mass apply only to one solids phase (M=M_AM)
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: flux_gse
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: flux_sse
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: flux_gsn
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: flux_ssn
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: flux_gst
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: flux_sst

! macroscopic gas density at east face
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  rop_ge
! macroscopic gas density at north face
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  rop_gn
! macroscopic gas density at top face
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  rop_gt
! macroscopic solids density at north face
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  rop_sn
! macroscopic solids density at east face
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  rop_se
! macroscopic solids density at top face
      DOUBLE PRECISION, DIMENSION(:, :), ALLOCATABLE ::  rop_st


! for GHD Theory
! x-component of solids total number density flux
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  flux_ne
! y-component of solids total number density flux
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  flux_nn
! z-component of solids total number density flux
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  flux_nt
! end GHD Theory modification


      END MODULE mflux