des_physical_prop.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
!  Subroutine name: PHYSICAL_PROP                                      !
!                                                                      !
!  Purpose: Calculate physical properties that vary with time.         !
!                                                                      !
!  Author: J.Musser                                   Date: 09-May-11  !
!                                                                      !
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
      SUBROUTINE des_physical_prop

! Modules
!---------------------------------------------------------------------//
      Use des_rxns
      Use des_thermo
      Use discretelement
      Use funits
      Use param
      Use param1
      Use physprop
      Use run

      IMPLICIT NONE

! Dummy arguments
!---------------------------------------------------------------------//
! Logical indicating to write additional data about the particle for
! debugging purposes.

! Local Variables
!---------------------------------------------------------------------//
! Index of particle
      INTEGER :: NP
!......................................................................!


! Specific heat
!-----------------------------------------------------------------------
! This only needs calculated when solving the energy equations.
      IF(energy_eq) THEN
      ENDIF

      RETURN
      END SUBROUTINE des_physical_prop