init_fvars.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
!                                                                      !
!  Module name: INIT_FVARS                                             !
!  Purpose: Initialize all field variables.                            !
!                                                                      !
!  Author: M. Syamlal                                 Date: 23-JAN-94  !
!  Reviewer: J.Musser                                 Date:  8-Oct-13  !
!                                                                      !
!  Literature/Document References:                                     !
!                                                                      !
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
      SUBROUTINE init_fvars

! Global Variables:
!---------------------------------------------------------------------//
! Gas phase volume farction
      USE fldvar, only: ep_g
! Pressures
      USE fldvar, only: p_g    ! Gas
      USE fldvar, only: p_s    ! Solids
      USE fldvar, only: p_star ! Solids at EP_star
! Densities
      USE fldvar, only: ro_g  ! Gas
      USE fldvar, only: ro_s  ! Solids
! Bulk densities: RO*EP
      USE fldvar, only: rop_g ! Gas
      USE fldvar, only: rop_s ! Solids
! Gas velocity components:
      USE fldvar, only: u_g  ! x-axis
      USE fldvar, only: v_g  ! y-axis
      USE fldvar, only: w_g  ! z-axis
! Solids velocity components:
      USE fldvar, only: u_s  ! x-axis
      USE fldvar, only: v_s  ! y-axis
      USE fldvar, only: w_s  ! z-axis
! Temperature
      USE fldvar, only: t_g  ! Gas
      USE fldvar, only: t_s  ! Solids
! Species mass fractions
      USE fldvar, only: x_g  ! Gas
      USE fldvar, only: x_s  ! Solids
! Solids particle diameter
      USE fldvar, only: d_p
! Granular Energy
      USE fldvar, only: theta_m
! Granular energy conductivity
      USE physprop, only: kth_s
! Gas turbulence
      USE fldvar, only: k_turb_g
      USE fldvar, only: e_turb_g
! User-scalar equation field
      USE fldvar, only: scalar
! Reaction Rates
      USE rxns, only: reactionrates

! Global Parameters:
!---------------------------------------------------------------------//
      USE param1, only: undefined
      USE param1, only: zero


      IMPLICIT NONE

! Passed Variables:
!---------------------------------------------------------------------//
! NONE

! Local Variables:
!---------------------------------------------------------------------//
! NONE

      IF(allocated(ep_g)) ep_g = undefined

      IF(allocated(p_g)) p_g  = undefined
      IF(allocated(p_s)) p_s = undefined
      IF(allocated(p_star)) p_star = undefined

      IF(allocated(ro_g)) ro_g = undefined
      IF(allocated(ro_s)) ro_s = undefined
      IF(allocated(rop_g)) rop_g = undefined
      IF(allocated(rop_s)) rop_s = undefined

      IF(allocated(u_g)) u_g = undefined
      IF(allocated(v_g)) v_g = undefined
      IF(allocated(w_g)) w_g = undefined

      IF(allocated(u_s)) u_s = undefined
      IF(allocated(v_s)) v_s = undefined
      IF(allocated(w_s)) w_s = undefined

      IF(allocated(t_g)) t_g = zero
      IF(allocated(t_s)) t_s = zero

      IF(allocated(x_g)) x_g = zero
      IF(allocated(x_s)) x_s = zero

      IF(allocated(d_p)) d_p = zero
      IF(allocated(theta_m)) theta_m = zero
      IF(allocated(kth_s)) kth_s = undefined

      IF(allocated(k_turb_g)) k_turb_g = zero
      IF(allocated(e_turb_g)) e_turb_g = zero

      IF(allocated(scalar)) scalar = zero
      IF(allocated(reactionrates)) reactionrates = zero

      RETURN
      END SUBROUTINE init_fvars