ModInterfacesMixt.F90

Go to the documentation of this file.

! *********************************************************************
! * Rocstar Simulation Suite                                          *
! * Copyright@2015, Illinois Rocstar LLC. All rights reserved.        *
! *                                                                   *
! * Illinois Rocstar LLC                                              *
! * Champaign, IL                                                     *
! * www.illinoisrocstar.com                                           *
! * sales@illinoisrocstar.com                                         *
! *                                                                   *
! * License: See LICENSE file in top level of distribution package or *
! * http://opensource.org/licenses/NCSA                               *
! *********************************************************************
! *********************************************************************
! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,   *
! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES   *
! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND          *
! * NONINFRINGEMENT.  IN NO EVENT SHALL THE CONTRIBUTORS OR           *
! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER       *
! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,   *
! * Arising FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE    *
! * USE OR OTHER DEALINGS WITH THE SOFTWARE.                          *
! *********************************************************************
!******************************************************************************
!
! Purpose: set explicit interfaces to subroutines and functions
!          related to the gas mixture.
!
! Description: none
!
! Notes: none.
!
!******************************************************************************
!
! $Id: ModInterfacesMixt.F90,v 1.9 2008/12/06 08:44:18 mtcampbe Exp $
!
! Copyright: (c) 2001 by the University of Illinois
!
!******************************************************************************

MODULE modinterfacesmixt

  IMPLICIT NONE

  INTERFACE

  FUNCTION mixtgasliq_c(Cvm,D,P,Dl,Dv,Dg,VFl,VFv,VFg,Cl2,Cv2,Cg2,Bl2,Bv2,Bg2)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: bg2,bl2,bv2,cl2,cv2,cg2,cvm,d,dg,dl,dv,p,vfg,vfl,vfv
    REAL(RFREAL) :: mixtgasliq_c
    REAL(RFREAL) ::  denom,numer,term1,term2,term3
  END FUNCTION mixtgasliq_c

  FUNCTION mixtgasliq_eo_cvmtvm2(Cvm,T,Vm2)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: cvm,t,vm2
    REAL(RFREAL) :: mixtgasliq_eo_cvmtvm2
  END FUNCTION mixtgasliq_eo_cvmtvm2

  FUNCTION mixtgasliq_p(DYl,DYv,DYg,Cl2,Cv2,Cg2,D,Do,Po,To,Bp,Bt,T)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: bp,bt,cg2,cl2,cv2,d,do,dyg,dyl,dyv,po,t,to
    REAL(RFREAL) :: mixtgasliq_p
    REAL(RFREAL) :: term1,term2
  END FUNCTION mixtgasliq_p

  FUNCTION mixtliq_c_bp(Bp)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: bp
    REAL(RFREAL) :: mixtliq_c_bp
  END FUNCTION mixtliq_c_bp

  FUNCTION mixtliq_c2_bp(Bp)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: bp
    REAL(RFREAL) :: mixtliq_c2_bp
  END FUNCTION mixtliq_c2_bp

  FUNCTION mixtliq_d_dobpppobttto(Do,Bp,Bt,P,Po,T,To)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: bp,bt,do,p,po,t,to
    REAL(RFREAL) :: mixtliq_d_dobpppobttto
  END FUNCTION mixtliq_d_dobpppobttto

  FUNCTION mixtperf_c_co2guvw( Co2,G,U,V,W )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: co2, g, u, v, w
    REAL(RFREAL) :: mixtperf_c_co2guvw
  END FUNCTION mixtperf_c_co2guvw

  FUNCTION mixtperf_c_dgp( D,G,P )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: d, g, p
    REAL(RFREAL) :: mixtperf_c_dgp
  END FUNCTION mixtperf_c_dgp

  FUNCTION mixtperf_c_ghovm2( G,Ho,Vm2 )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: g, ho, vm2
    REAL(RFREAL) :: mixtperf_c_ghovm2
  END FUNCTION mixtperf_c_ghovm2

  FUNCTION mixtperf_c_grt( G,R,T )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: g, r, t
    REAL(RFREAL) :: mixtperf_c_grt
  END FUNCTION mixtperf_c_grt

  FUNCTION mixtperf_co2_cguvw( C,G,U,V,W )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: c, g, u, v, w
    REAL(RFREAL) :: mixtperf_co2_cguvw
  END FUNCTION mixtperf_co2_cguvw

  FUNCTION mixtperf_c2_grt( G,R,T )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: g, r, t
    REAL(RFREAL) :: mixtperf_c2_grt
  END FUNCTION mixtperf_c2_grt

  FUNCTION mixtperf_cv_cpr( Cp,R )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: cp, r 
    REAL(RFREAL) :: mixtperf_cv_cpr
  END FUNCTION mixtperf_cv_cpr

  FUNCTION mixtperf_d_cgp( C,G,P )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: c, g, p
    REAL(RFREAL) :: mixtperf_d_cgp
  END FUNCTION mixtperf_d_cgp

  FUNCTION mixtperf_d_dogma(Do,G,Ma)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: do,g,ma
    REAL(RFREAL) :: mixtperf_d_dogma
  END FUNCTION mixtperf_d_dogma

  FUNCTION mixtperf_d_prt( P,R,T )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: p, r ,t 
    REAL(RFREAL) :: mixtperf_d_prt
  END FUNCTION mixtperf_d_prt

  FUNCTION mixtperf_eo_dgpuvw( D,G,P,U,V,W )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: d, g, p, u, v, w
    REAL(RFREAL) :: mixtperf_eo_dgpuvw
  END FUNCTION mixtperf_eo_dgpuvw

  FUNCTION mixtperf_eo_dgpvm( D,G,P,Vm )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: d, g, p ,vm
    REAL(RFREAL) :: mixtperf_eo_dgpvm
  END FUNCTION mixtperf_eo_dgpvm

  FUNCTION mixtperf_eo_grtuvw( G,R,T,U,V,W )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: g, r, t, u, v, w
    REAL(RFREAL) :: mixtperf_eo_grtuvw
  END FUNCTION mixtperf_eo_grtuvw

  FUNCTION mixtperf_g_cpr( Cp,R )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: cp, r
    REAL(RFREAL) :: mixtperf_g_cpr
  END FUNCTION mixtperf_g_cpr

  FUNCTION mixtperf_ho_cptuvw( Cp,T,U,V,W )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: cp, t, u, v, w
    REAL(RFREAL) :: mixtperf_ho_cptuvw
  END FUNCTION mixtperf_ho_cptuvw

  FUNCTION mixtperf_m_r( R )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: r
    REAL(RFREAL) :: mixtperf_m_r
  END FUNCTION mixtperf_m_r

  FUNCTION mixtperf_p_deogvm2( D,Eo,G,Vm2 )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: d, eo, g, vm2
    REAL(RFREAL) :: mixtperf_p_deogvm2
  END FUNCTION mixtperf_p_deogvm2

  FUNCTION mixtperf_p_drt(D,R,T)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: d,r,t
    REAL(RFREAL) :: mixtperf_p_drt
  END FUNCTION mixtperf_p_drt

  FUNCTION mixtperf_p_gmapo( G,Ma,Po )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: g, ma, po
    REAL(RFREAL) :: mixtperf_p_gmapo
  END FUNCTION mixtperf_p_gmapo

  FUNCTION mixtperf_p_ddogpo(G,Po,D,Do)  
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: d,do,g,po
    REAL(RFREAL) :: mixtperf_p_ddogpo
  END FUNCTION mixtperf_p_ddogpo

  FUNCTION mixtperf_p_gpotto( G,Po,T,To )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: g, po, t, to
    REAL(RFREAL) :: mixtperf_p_gpotto
  END FUNCTION mixtperf_p_gpotto

  FUNCTION mixtperf_po_gptto( G,P,T,To )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: g, p, t, to
    REAL(RFREAL) :: mixtperf_po_gptto
  END FUNCTION mixtperf_po_gptto

  FUNCTION mixtperf_po_cgpuvw( C,G,P,U,V,W )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: c, g, p, u, v, w
    REAL(RFREAL) :: mixtperf_po_cgpuvw
  END FUNCTION mixtperf_po_cgpuvw

  FUNCTION mixtperf_r_cpg( Cp,G )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: cp, g
    REAL(RFREAL) :: mixtperf_r_cpg
  END FUNCTION mixtperf_r_cpg

  FUNCTION mixtperf_r_m( M )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: m
    REAL(RFREAL) :: mixtperf_r_m
  END FUNCTION mixtperf_r_m
  
  FUNCTION mixtperf_t_cgr( C,G,R )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: c, g, r
    REAL(RFREAL) :: mixtperf_t_cgr
  END FUNCTION mixtperf_t_cgr  
  
  FUNCTION mixtperf_t_cphovm2(Cp,Ho,Vm2)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: cp,ho,vm2
    REAL(RFREAL) :: mixtperf_t_cphovm2
  END FUNCTION mixtperf_t_cphovm2
    
  FUNCTION mixtperf_t_cveovm2(Cv,Eo,Vm2)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: cv,eo,vm2
    REAL(RFREAL) :: mixtperf_t_cveovm2
  END FUNCTION mixtperf_t_cveovm2
  
  FUNCTION mixtperf_t_dpr( D,P,R )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: d, p, r
    REAL(RFREAL) :: mixtperf_t_dpr
  END FUNCTION mixtperf_t_dpr  
  
  FUNCTION mixtperf_t_gmato( G,Ma,To )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: g, ma, to
    REAL(RFREAL) :: mixtperf_t_gmato
  END FUNCTION mixtperf_t_gmato
  
  FUNCTION mixtperf_to_cptuvw(Cp,T,U,V,W)
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: cp,t,u,v,w
    REAL(RFREAL) :: mixtperf_to_cptuvw
  END FUNCTION mixtperf_to_cptuvw  
  
  FUNCTION mixtperf_vm_c2co2g( C2,Co2,G )
    USE moddatatypes
    REAL(RFREAL), INTENT(IN) :: c2, co2, g
    REAL(RFREAL) :: mixtperf_vm_c2co2g
  END FUNCTION mixtperf_vm_c2co2g  

  SUBROUTINE mixtureproperties( region,inBeg,inEnd,gasUpdate )
    USE moddatastruct, ONLY : t_region
    INTEGER :: inbeg, inend
    LOGICAL :: gasupdate
    TYPE(t_region) :: region
  END SUBROUTINE mixtureproperties
  
  SUBROUTINE perfgasdependentvars( inBeg,inEnd,indCp,indMol,cv,gv,dv )
    USE moddatatypes
    INTEGER :: inbeg, inend, indcp, indmol
    REAL(RFREAL), POINTER :: cv(:,:), gv(:,:), dv(:,:)
  END SUBROUTINE perfgasdependentvars

  SUBROUTINE perfgasgasvars( inBeg,inEnd,indCp,indMol,refCp,refGamma,cv,gv )
    USE moddatatypes
    INTEGER :: inbeg, inend, indcp, indmol
    REAL(RFREAL)            :: refcp, refgamma
    REAL(RFREAL), POINTER   :: cv(:,:), gv(:,:)
  END SUBROUTINE perfgasgasvars

  SUBROUTINE perfgastransportvars( inBeg,inEnd,indCp,indMol,viscModel,prLam, &
                                   refvisc,reftemp,suthcoef,cv,dv,gv,tv )
    USE moddatatypes
    INTEGER :: inbeg, inend, indcp, indmol, viscmodel
    REAL(RFREAL)          :: prlam, reftemp, refvisc, suthcoef
    REAL(RFREAL), POINTER :: cv(:,:), dv(:,:), gv(:,:), tv(:,:)
  END SUBROUTINE perfgastransportvars

  END INTERFACE

END MODULE modinterfacesmixt

!******************************************************************************
!
! RCS Revision history:
!
! $Log: ModInterfacesMixt.F90,v $
! Revision 1.9  2008/12/06 08:44:18  mtcampbe
! Updated license.
!
! Revision 1.8  2008/11/19 22:17:30  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.7  2006/05/01 21:03:25  haselbac
! Added if for MixtPerf_T_CpHoVm2
!
! Revision 1.6  2006/03/26 20:21:54  haselbac
! Added ifs for new routines
!
! Revision 1.5  2005/07/14 21:40:52  haselbac
! Added interface for MixtPerf_To_CpTUVW
!
! Revision 1.4  2005/03/15 20:43:45  haselbac
! Added interface for MixtPerf_D_CGP
!
! Revision 1.3  2004/04/01 21:28:41  haselbac
! Added entry for MixtPerf_E_GRTUVW
!
! Revision 1.2  2003/09/16 15:04:35  haselbac
! Added interfaces for new MixtPerf functions
!
! Revision 1.1  2003/08/11 21:50:00  jblazek
! Splitted ModInterfaces into 4 sections.
!
!******************************************************************************