ModInterfacesBcond.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 boundary conditions.
!
! Description: none
!
! Notes: none.
!
!******************************************************************************
!
! $Id: ModInterfacesBcond.F90,v 1.5 2008/12/06 08:44:18 mtcampbe Exp $
!
! Copyright: (c) 2001 by the University of Illinois
!
!******************************************************************************

MODULE modinterfacesbcond

  IMPLICIT NONE

  INTERFACE

  SUBROUTINE bcondfarfieldperf( machInf,alphaInf,betaInf,pInf,tInf, & 
                                sxn,syn,szn,cpgas,mol, & 
                                rho,rhou,rhov,rhow,rhoe,press, &
                                rhob,rhoub,rhovb,rhowb,rhoeb,pb )
    USE moddatatypes
    REAL(RFREAL) :: machinf, alphainf, betainf, pinf, tinf
    REAL(RFREAL) :: rho, rhou, rhov, rhow, rhoe, press
    REAL(RFREAL) :: sxn, syn, szn, cpgas, mol
    REAL(RFREAL) :: rhob, rhoub, rhovb, rhowb, rhoeb, pb
  END SUBROUTINE bcondfarfieldperf

  SUBROUTINE bcondinflowperf( bcOptType,bcOptFixed,ptot,ttot,betah,betav, & 
                              mach,sxn,syn,szn,cpgas,mm,rl,rul,rvl,rwl,rr, &
                              rur,rvr,rwr,rer,pr )
    USE moddatatypes
    INTEGER, INTENT(IN) :: bcoptfixed,bcopttype
    REAL(RFREAL), INTENT(IN)  :: betah, betav, cpgas, mach, mm, sxn, syn, szn, &
                                 ptot, rl, rul, rvl, rwl, ttot
    REAL(RFREAL), INTENT(OUT) :: rer, rr, rur, rvr, rwr, pr
  END SUBROUTINE bcondinflowperf

  SUBROUTINE bcondinflowperf_gl(bcOptType,ro,po,to,Bp,Bt,cvl,cvv,cvg,Rg,Rv,ur, &
                                vr,wr,vfgr,vfvr,vflr,temp,press,nx,ny,nz,rl, &
                                rul,rvl,rwl,rel,rgpgl,rvpvl,pl,rr,rur,rvr, &
                                rwr,rer,rgpgr,rvpvr,pr)
    USE moddatatypes
    INTEGER, INTENT(IN) :: bcopttype
    REAL(RFREAL), INTENT(IN) :: bp,bt,cvg,cvl,cvv,nx,ny,nz,pl,po,press,rel, &
                                rg,rgpgl,rl,ro,rul,rv,rvl,rvpvl,rwl,temp,to, &
                                ur,vfgr,vflr,vfvr,vr,wr 
    REAL(RFREAL), INTENT(OUT):: pr,rer,rgpgr,rr,rur,rvr,rvpvr,rwr 
  END SUBROUTINE bcondinflowperf_gl

  SUBROUTINE bcondinjectionperf( distrib,minj,tinj,rhoVrel,sxn,syn,szn, &
                                 cpgas,mm,p,rhob,rhoub,rhovb,rhowb,rhoeb,pb, &
                                 uinj,vinj,winj )
    USE moddatatypes
    INTEGER,      INTENT(IN)  :: distrib
    REAL(RFREAL), INTENT(IN)  :: cpgas, minj, mm, sxn, syn, szn, tinj, &
                                 rhovrel(3), p
    REAL(RFREAL), INTENT(OUT) :: rhob, rhoub, rhovb, rhowb, rhoeb, pb, &
                                 uinj, vinj, winj
  END SUBROUTINE bcondinjectionperf

  SUBROUTINE bcondoutflowperf( bcOpt,pout,sxn,syn,szn,cpgas,mol, & 
                               rho,rhou,rhov,rhow,rhoe,press, &
                               rhob,rhoub,rhovb,rhowb,rhoeb )
    USE moddatatypes
    INTEGER :: bcopt
    REAL(RFREAL), INTENT(IN) :: cpgas,mol,pout,press,rho,rhou, &
                                rhov,rhow,rhoe,sxn,syn,szn 
    REAL(RFREAL), INTENT(OUT) :: rhob,rhoub,rhovb,rhowb,rhoeb
  END SUBROUTINE bcondoutflowperf

  SUBROUTINE bcondoutflowperf_gl(bcOpt,ro,Po,To,betaP,betaT,cvl,cvv,cvg,Rg,Rv, &
                                 pout,sxn,syn,szn,rho,rhou,rhov,rhow,rhoe, &
                                 rhogpg,rhovpv,pin,rhob,rhoub,rhovb,rhowb, &
                                 rhoeb,rhogpgb,rhovpvb)
    USE moddatatypes
    INTEGER :: bcopt
    REAL(RFREAL), INTENT(IN) :: betap,betat,cvg,cvl,cvv,pin,po,pout,rg,rho, &
                                rhoe,rhogpg,rhou,rhov,rhovpv,rhow,ro,rv,sxn, &
                                syn,szn,to
    REAL(RFREAL), INTENT(OUT) :: rhob,rhoeb,rhogpgb,rhoub,rhovb,rhovpvb,rhowb
  END SUBROUTINE bcondoutflowperf_gl

  SUBROUTINE updateboundaryconditionsmp( regions, istage )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER, INTENT(IN)     :: istage
  END SUBROUTINE updateboundaryconditionsmp

  SUBROUTINE updatetbc( region,t,dt,final )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), INTENT(INOUT) :: region
    REAL(RFREAL),   INTENT(IN)    :: t, dt
    LOGICAL,        INTENT(IN)    :: final
  END SUBROUTINE updatetbc

  SUBROUTINE updatetbcpiecewise( global,tbc,t )
    USE moddatatypes
    USE modbndpatch, ONLY : t_tbcvalues
    USE modglobal,   ONLY : t_global
    TYPE(t_global),    POINTER       :: global
    TYPE(t_tbcvalues), INTENT(INOUT) :: tbc
    REAL(RFREAL),      INTENT(IN)    :: t
  END SUBROUTINE updatetbcpiecewise

  SUBROUTINE updatetbcsinusoidal( global,tbc,t )
    USE moddatatypes
    USE modbndpatch, ONLY : t_tbcvalues
    USE modglobal,   ONLY : t_global
    TYPE(t_global),    POINTER       :: global
    TYPE(t_tbcvalues), INTENT(INOUT) :: tbc
    REAL(RFREAL),      INTENT(IN)    :: t
  END SUBROUTINE updatetbcsinusoidal

  SUBROUTINE updatetbcstochastic( region,tbc,dt )
    USE moddatatypes
    USE modbndpatch,   ONLY : t_tbcvalues
    USE moddatastruct, ONLY : t_region
    TYPE(t_region),    INTENT(INOUT) :: region
    TYPE(t_tbcvalues), INTENT(INOUT) :: tbc
    REAL(RFREAL),      INTENT(IN)    :: dt
  END SUBROUTINE updatetbcstochastic

  SUBROUTINE updatetbcwhitenoise( region,tbc )
    USE modbndpatch,   ONLY : t_tbcvalues
    USE moddatastruct, ONLY : t_region
    TYPE(t_region),    INTENT(INOUT) :: region
    TYPE(t_tbcvalues), INTENT(INOUT) :: tbc
  END SUBROUTINE updatetbcwhitenoise

  SUBROUTINE zerodummycellsmp( region )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
  END SUBROUTINE zerodummycellsmp

  END INTERFACE

END MODULE modinterfacesbcond

!******************************************************************************
!
! RCS Revision history:
!
! $Log: ModInterfacesBcond.F90,v $
! Revision 1.5  2008/12/06 08:44:18  mtcampbe
! Updated license.
!
! Revision 1.4  2008/11/19 22:17:29  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.3  2006/03/26 20:21:52  haselbac
! Added ifs for new routines
!
! Revision 1.2  2004/01/29 22:57:24  haselbac
! Changed interface for bcondInflowPerf.F90
!
! Revision 1.1  2003/08/11 21:50:00  jblazek
! Splitted ModInterfaces into 4 sections.
!
!******************************************************************************