ps_mod.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!  Module name: ps_mod.f                                               C
!                                                                      C
!  Purpose: Common block containing point source data.                 C
!                                                                      C
!  Author: J. Musser                                  Date: 10-Jun-13  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References: None                                C
!                                                                      C
!  Variables referenced: None                                          C
!  Variables modified: None                                            C
!                                                                      C
!  Local variables: None                                               C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
      MODULE ps

      use param, only: dimension_ps, dim_m, dim_n_g, dim_n_s

! Run-time logical indicating that point sources are present.
      LOGICAL :: point_source

      LOGICAL :: ps_defined(dimension_ps)

! Physical location of point sources.
      DOUBLE PRECISION :: ps_x_w(dimension_ps)  ! West
      DOUBLE PRECISION :: ps_x_e(dimension_ps)  ! East
      DOUBLE PRECISION :: ps_y_s(dimension_ps)  ! South
      DOUBLE PRECISION :: ps_y_n(dimension_ps)  ! North
      DOUBLE PRECISION :: ps_z_b(dimension_ps)  ! Bottom
      DOUBLE PRECISION :: ps_z_t(dimension_ps)  ! Top

! Cell indices delineating point source region:
      INTEGER :: ps_i_w(dimension_ps)  ! West
      INTEGER :: ps_i_e(dimension_ps)  ! East
      INTEGER :: ps_j_s(dimension_ps)  ! South
      INTEGER :: ps_j_n(dimension_ps)  ! North
      INTEGER :: ps_k_b(dimension_ps)  ! Bottom
      INTEGER :: ps_k_t(dimension_ps)  ! Top

! Gas mass flow rate through the point source:
      DOUBLE PRECISION ps_massflow_g (dimension_ps)

! Velocity vector for gas point source: (normalized)
      DOUBLE PRECISION :: ps_u_g(dimension_ps) ! X-axis
      DOUBLE PRECISION :: ps_v_g(dimension_ps) ! Y-axis
      DOUBLE PRECISION :: ps_w_g(dimension_ps) ! Z-axis

! Gas phase velocity magnitude: (calculated)
      DOUBLE PRECISION :: ps_vel_mag_g(dimension_ps)

! Gas phase species mass fractions
      DOUBLE PRECISION :: ps_x_g(dimension_ps, dim_n_g)

! Gas phase temperature.
      DOUBLE PRECISION :: ps_t_g(dimension_ps)
      DOUBLE PRECISION :: ps_cpxmflow_g(dimension_ps)

! Solids mass flow rate through the point source:
      DOUBLE PRECISION ps_massflow_s (dimension_ps, dim_m)

! Velocity vector for solids point sources: (normalized)
      DOUBLE PRECISION :: ps_u_s(dimension_ps, dim_m) ! X-axis
      DOUBLE PRECISION :: ps_v_s(dimension_ps, dim_m) ! Y-axis
      DOUBLE PRECISION :: ps_w_s(dimension_ps, dim_m) ! Z-axis

! Solids phase velocity magnitude: (calculated)
      DOUBLE PRECISION :: ps_vel_mag_s(dimension_ps, dim_m)

! Solids phase species mass fractions
      DOUBLE PRECISION :: ps_x_s(dimension_ps, dim_m, dim_n_s)

! Solids phase temperature.
      DOUBLE PRECISION :: ps_t_s(dimension_ps, dim_m)
      DOUBLE PRECISION :: ps_cpxmflow_s(dimension_ps, dim_m)

! Total volume of cells comprising point source cells (calculated)
      DOUBLE PRECISION :: ps_volume(dimension_ps)

! Legacy variable... to be deleated
      INTEGER, DIMENSION(:), ALLOCATABLE :: point_sources


      END MODULE ps