RFLO_ModInterfacesSolver.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.
!
! Description: none
!
! Notes: none.
!
!******************************************************************************
!
! $Id: RFLO_ModInterfacesSolver.F90,v 1.30 2008/12/06 08:44:16 mtcampbe Exp $
!
! Copyright: (c) 2001 by the University of Illinois
!
!******************************************************************************
  
MODULE rflo_modinterfacessolver

  IMPLICIT NONE

  INTERFACE

! =============================================================================
! ROCFLO solver
! =============================================================================

  SUBROUTINE rflo_allocatedatabuffers( regions,iReg )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER :: ireg
  END SUBROUTINE rflo_allocatedatabuffers

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

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

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

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

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

  SUBROUTINE rflo_c2favgcoeffsdummy( region,patch )
    USE moddatastruct, ONLY : t_region
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_region) :: region
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_c2favgcoeffsdummy

  SUBROUTINE rflo_c2favgcoeffsdummyconn( region,lbound,idir,jdir,kdir, &
                             indbeg,indend,jndbeg,jndend,kndbeg,kndend )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: lbound,idir,jdir,kdir
    INTEGER        :: indbeg, indend, jndbeg, jndend, kndbeg, kndend
  END SUBROUTINE rflo_c2favgcoeffsdummyconn

  SUBROUTINE rflo_c2favgcoeffsdummyphys( region,lbound,idir,jdir,kdir, &
                             indbeg,indend,jndbeg,jndend,kndbeg,kndend )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: lbound,idir,jdir,kdir
    INTEGER        :: indbeg, indend, jndbeg, jndend, kndbeg, kndend
  END SUBROUTINE rflo_c2favgcoeffsdummyphys

  SUBROUTINE rflo_c2favgcoeffspatch( region,patch )
    USE moddatastruct, ONLY : t_region
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_region) :: region
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_c2favgcoeffspatch

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

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

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

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

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

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

  SUBROUTINE rflo_calctotalmass( region,mass )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    REAL(RFREAL) :: mass
    TYPE(t_region) :: region
  END SUBROUTINE rflo_calctotalmass

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

  SUBROUTINE rflo_centralfluxpatch( region,patch )
    USE moddatastruct, ONLY : t_region
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_region) :: region
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_centralfluxpatch

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

  SUBROUTINE rflo_checkbcinput( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_checkbcinput

  SUBROUTINE rflo_checkderiveduserinput( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_checkderiveduserinput

  SUBROUTINE rflo_checkregionfaces( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_checkregionfaces

  SUBROUTINE rflo_checkmetrics( iReg,region )
    USE moddatastruct, ONLY : t_region
    INTEGER        :: ireg
    TYPE(t_region) :: region
  END SUBROUTINE rflo_checkmetrics

  SUBROUTINE rflo_checkminimumcells( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_checkminimumcells

  SUBROUTINE rflo_checkuserinput( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_checkuserinput

  SUBROUTINE rflo_clearsendrequests( regions,iReg,geometry )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER :: ireg
    LOGICAL :: geometry
  END SUBROUTINE rflo_clearsendrequests

#ifndef GENX
  SUBROUTINE rflo_computeintegralvalues(regions)
    USE moddatastruct, ONLY: t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_computeintegralvalues
#else
  SUBROUTINE rflo_computeintegralvalues(regions,integ)
    USE modrocstar ! To access MAN_INTEG_SIZE
    USE moddatastruct, ONLY: t_region
    DOUBLE PRECISION, DIMENSION(MAN_INTEG_SIZE) :: integ
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_computeintegralvalues
#endif

  SUBROUTINE rflo_copyboundarydata( global,patchPrev,patch )
    USE modglobal, ONLY     : t_global
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_global), POINTER :: global
    TYPE(t_patch), POINTER  :: patchprev, patch
  END SUBROUTINE rflo_copyboundarydata

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

  SUBROUTINE rflo_copytopologylevels( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_copytopologylevels

  SUBROUTINE rflo_copyvectorcorners( iLev,region,vec )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: ilev
    REAL(RFREAL), POINTER :: vec(:)
  END SUBROUTINE rflo_copyvectorcorners

  SUBROUTINE rflo_copyvectoredges( iLev,region,vec )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: ilev
    REAL(RFREAL), POINTER :: vec(:)
  END SUBROUTINE rflo_copyvectoredges

  SUBROUTINE rflo_copyvectorpatches( iLev,region,vec )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: ilev
    REAL(RFREAL), POINTER :: vec(:)
  END SUBROUTINE rflo_copyvectorpatches

  SUBROUTINE rflo_copymatrixcorners( iLev,region,mat )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: ilev
    REAL(RFREAL), POINTER :: mat(:,:)
  END SUBROUTINE rflo_copymatrixcorners

  SUBROUTINE rflo_copymatrixedges( iLev,region,mat )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: ilev
    REAL(RFREAL), POINTER :: mat(:,:)
  END SUBROUTINE rflo_copymatrixedges

  SUBROUTINE rflo_copymatrixpatches( iLev,region,mat )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: ilev
    REAL(RFREAL), POINTER :: mat(:,:)
  END SUBROUTINE rflo_copymatrixpatches

  SUBROUTINE rflo_correctcorneredgecells( region,patch,bcType )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    INTEGER        :: bctype
    TYPE(t_region) :: region
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_correctcorneredgecells

  SUBROUTINE rflo_domemoryallocation( regions )
    USE moddatastruct, ONLY : t_region
    TYPE (t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_domemoryallocation

  SUBROUTINE rflo_dualmultigrid( dTimeSystem,regions )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    REAL(RFREAL) :: dtimesystem
    TYPE (t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_dualmultigrid

  SUBROUTINE rflo_dualtimestepping( dTimeSystem,regions )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    REAL(RFREAL) :: dtimesystem
    TYPE (t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_dualtimestepping

  SUBROUTINE rflo_dualtstinit( regions,timeLevel )
    USE moddatastruct, ONLY : t_region
    INTEGER :: timelevel
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_dualtstinit

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

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

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

  SUBROUTINE rflo_endflowsolver( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_endflowsolver

  SUBROUTINE rflo_exchangecorneredgecells( regions,iReg )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER :: ireg
  END SUBROUTINE rflo_exchangecorneredgecells

  SUBROUTINE rflo_exchangedummyconf( region,regionSrc,patch,patchSrc )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch, patchsrc
  END SUBROUTINE rflo_exchangedummyconf

  SUBROUTINE rflo_exchangedummyint( region,regionSrc,patch,patchSrc )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch, patchsrc
  END SUBROUTINE rflo_exchangedummyint

  SUBROUTINE rflo_exchangedummyireg( region,regionSrc,patch,patchSrc )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch, patchsrc
  END SUBROUTINE rflo_exchangedummyireg

  SUBROUTINE rflo_exchangegeometry( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_exchangegeometry

  SUBROUTINE rflo_exchangegeometrycopy( region,regionSrc,patch,patchSrc )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch, patchsrc
  END SUBROUTINE rflo_exchangegeometrycopy

  SUBROUTINE rflo_exchangegeometrylevels( region,iPatch )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER :: ipatch
  END SUBROUTINE rflo_exchangegeometrylevels

  SUBROUTINE rflo_exchangegeometryprepare( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_exchangegeometryprepare

  SUBROUTINE rflo_exchangegeometryrecv( region,regionSrc,patch,patchSrc )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch, patchsrc
  END SUBROUTINE rflo_exchangegeometryrecv

  SUBROUTINE rflo_exchangegeometrysend( region,regionSrc,patch )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_exchangegeometrysend

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

  SUBROUTINE rflo_findsourcecell( regions,iReg,iLev,ic,jc,kc,icell, &
                                  found,rotate,iregsrc )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ireg, ilev, ic, jc, kc, icell, iregsrc
    LOGICAL :: found, rotate
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_findsourcecell

  SUBROUTINE rflo_findsourcecellinvert( regions,iReg,iLev,ic,jc,kc, &
                                        icell,found,rotate,iregsrc )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ireg, ilev, ic, jc, kc, icell, iregsrc
    LOGICAL :: found, rotate
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_findsourcecellinvert

  SUBROUTINE rflo_sourcecell( region,regionSrc,patch,patchSrc, &
                              ilev, ic,jc,kc,icell,found )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    INTEGER :: ilev, ic, jc, kc, icell
    LOGICAL :: found
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch), POINTER :: patch, patchsrc
  END SUBROUTINE rflo_sourcecell

  SUBROUTINE rflo_findsourceregions( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_findsourceregions

  SUBROUTINE rflo_findsourcepatches( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_findsourcepatches

  SUBROUTINE rflo_findthrustpatches( region,iReg )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ireg
    TYPE(t_region) :: region
  END SUBROUTINE rflo_findthrustpatches

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

#ifdef GENX
  SUBROUTINE rflo_initflowsolver( globalGenx,initialTime,communicator, &
                                  genxhandle,insurf,invol,obtain_attribute )
    USE modrocstar, ONLY : t_globalgenx
    CHARACTER(*), INTENT(in) :: insurf, invol
    DOUBLE PRECISION, INTENT(in) :: initialtime
    INTEGER, INTENT(in)  :: communicator, genxhandle, obtain_attribute
    TYPE(t_globalgenx), POINTER :: globalgenx
  END SUBROUTINE rflo_initflowsolver

  SUBROUTINE rflo_flowsolver( globalGenx,timeSystem,dTimeSystem,genxHandleBc, &
                              genxhandlegm )
    USE modrocstar, ONLY : t_globalgenx
    INTEGER, INTENT(in) :: genxhandlebc, genxhandlegm
    DOUBLE PRECISION, INTENT(in) :: timesystem, dtimesystem
    TYPE(t_globalgenx), POINTER :: globalgenx
  END SUBROUTINE rflo_flowsolver
#else
  SUBROUTINE rflo_initflowsolver( casename,verbLevel,global,regions )
    USE moddatastruct, ONLY : t_region
    USE modglobal,     ONLY : t_global
    CHARACTER(*) :: casename
    INTEGER      :: verblevel
    TYPE(t_global), POINTER :: global
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_initflowsolver

  SUBROUTINE rflo_flowsolver( dTimeSystem,dIterSystem,regions )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    REAL(RFREAL) :: dtimesystem
    INTEGER      :: ditersystem
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_flowsolver
#endif

  SUBROUTINE rflo_getflowsolution( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_getflowsolution

  SUBROUTINE rflo_getgeometry( regions,iread )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER :: iread
  END SUBROUTINE rflo_getgeometry

  SUBROUTINE rflo_getuserinput( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_getuserinput

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

  SUBROUTINE rflo_initgridprocedures( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_initgridprocedures

  SUBROUTINE rflo_limiterreference( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_limiterreference

  SUBROUTINE rflo_mapregionsprocessors( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_mapregionsprocessors

  SUBROUTINE rflo_minimumtimestep( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_minimumtimestep

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

  SUBROUTINE rflo_movegridblocks( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_movegridblocks

  SUBROUTINE rflo_movegridglobal( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_movegridglobal

  SUBROUTINE rflo_movegridinterfaces( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_movegridinterfaces

  SUBROUTINE rflo_movegridsurfaces( regions,someMoved )
    USE moddatastruct, ONLY : t_region
    LOGICAL :: somemoved
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_movegridsurfaces

  SUBROUTINE rflo_multigrid( dIterSystem,regions )
    USE moddatastruct, ONLY : t_region
    INTEGER :: ditersystem
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_multigrid

  SUBROUTINE rflo_newgrid( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_newgrid

  SUBROUTINE rflo_openconverfile( global )
    USE modglobal, ONLY     : t_global
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflo_openconverfile

  SUBROUTINE rflo_openprobefile( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_openprobefile

  SUBROUTINE rflo_openthrustfile( global )
    USE modglobal, ONLY     : t_global
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflo_openthrustfile

  SUBROUTINE rflo_printuserinput( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_printuserinput

  SUBROUTINE rflo_readbcinputfile( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readbcinputfile

  SUBROUTINE rflo_readbcfromfile( global,fname,patch )
    USE modglobal, ONLY   : t_global
    USE modbndpatch, ONLY : t_patch
    CHARACTER(*) :: fname
    TYPE(t_global), POINTER :: global
    TYPE(t_patch), POINTER  :: patch
  END SUBROUTINE rflo_readbcfromfile

  SUBROUTINE rflo_readbcfarfsection( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readbcfarfsection

  SUBROUTINE rflo_readbcnoslipsection( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readbcnoslipsection

  SUBROUTINE rflo_readbcinflowtotangsection( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readbcinflowtotangsection

  SUBROUTINE rflo_readbcinflowvelsection( regions,bcTitle )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER :: bctitle
  END SUBROUTINE rflo_readbcinflowvelsection

  SUBROUTINE rflo_readbcinjectmratesection( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readbcinjectmratesection

  SUBROUTINE rflo_readbcinjectapnsection( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readbcinjectapnsection

  SUBROUTINE rflo_readbcoutflowsection( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readbcoutflowsection

  SUBROUTINE rflo_readbcslipwallsection( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readbcslipwallsection

  SUBROUTINE rflo_readregionmapsection( global )
    USE modglobal, ONLY     : t_global
    TYPE(t_global), POINTER :: global
  END SUBROUTINE rflo_readregionmapsection

  SUBROUTINE rflo_readtbcinputfile( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_readtbcinputfile

  SUBROUTINE rflo_readtbcsection( regions,tbcType )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER, INTENT(IN)     :: tbctype
  END SUBROUTINE rflo_readtbcsection

  SUBROUTINE rflo_receivecorneredgecells( regions,iReg )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER :: ireg
  END SUBROUTINE rflo_receivecorneredgecells

  SUBROUTINE rflo_receivedummyvals( region,regionSrc,patch,patchSrc )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch, patchsrc
  END SUBROUTINE rflo_receivedummyvals

  SUBROUTINE rflo_residualnorm( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_residualnorm

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

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

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

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

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

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

  SUBROUTINE rflo_roefluxpatch( region,patch )
    USE moddatastruct, ONLY : t_region
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_region) :: region
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_roefluxpatch

  SUBROUTINE rflo_sendcorneredgecells( regions,iReg )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
    INTEGER :: ireg
  END SUBROUTINE rflo_sendcorneredgecells

  SUBROUTINE rflo_senddummyconf( region,regionSrc,patch )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_senddummyconf

  SUBROUTINE rflo_senddummyint( region,regionSrc,patch )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_senddummyint

  SUBROUTINE rflo_senddummyireg( region,regionSrc,patch )
    USE modbndpatch, ONLY   : t_patch
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region, regionsrc
    TYPE(t_patch)  :: patch
  END SUBROUTINE rflo_senddummyireg

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

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

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

  SUBROUTINE rflo_timestepping( dTimeSystem,dIterSystem,regions )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    REAL(RFREAL) :: dtimesystem
    INTEGER      :: ditersystem
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_timestepping

  SUBROUTINE rflo_userinput( regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region), POINTER :: regions(:)
  END SUBROUTINE rflo_userinput

  SUBROUTINE rflo_viscousflux( region,indxMu,indxTCo,tv )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    TYPE(t_region) :: region
    INTEGER        :: indxmu, indxtco
    REAL(RFREAL), POINTER :: tv(:,:)
  END SUBROUTINE rflo_viscousflux

  SUBROUTINE rflo_viscousfluxpatch( region,patch,indxMu,indxTCo,tv )
    USE moddatatypes
    USE moddatastruct, ONLY : t_region
    USE modbndpatch, ONLY   : t_patch
    TYPE(t_region) :: region
    TYPE(t_patch)  :: patch
    INTEGER        :: indxmu, indxtco
    REAL(RFREAL), POINTER :: tv(:,:)
  END SUBROUTINE rflo_viscousfluxpatch

  END INTERFACE

END MODULE rflo_modinterfacessolver

!******************************************************************************
!
! RCS Revision history:
!
! $Log: RFLO_ModInterfacesSolver.F90,v $
! Revision 1.30  2008/12/06 08:44:16  mtcampbe
! Updated license.
!
! Revision 1.29  2008/11/19 22:17:27  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.28  2006/03/04 04:31:58  wasistho
! moved RFLO_CalcGridMetrics to rocflo module
!
! Revision 1.27  2006/01/20 06:14:55  wasistho
! added ReadBcInjectMrate and ReadBcInjectAPN
!
! Revision 1.26  2005/11/11 07:16:04  wasistho
! removed RFLO_FindDegeneratCell
!
! Revision 1.25  2005/10/20 06:53:41  wasistho
! removed RFLO_CalcCellCentroids from list
!
! Revision 1.24  2005/05/28 08:04:13  wasistho
! added RFLO_InitGridProcedures
!
! Revision 1.23  2005/05/27 08:09:18  wasistho
! added argument iread in rflo_getgeometry
!
! Revision 1.22  2005/04/28 22:04:50  wasistho
! added RFLO_ReadBcInflow...
!
! Revision 1.21  2005/03/01 16:36:02  wasistho
! added ModGenx in RFLO_ComputeIntegralValues
!
! Revision 1.20  2005/02/26 04:06:25  wasistho
! added RFLO_ComputeIntegralValues
!
! Revision 1.19  2004/12/28 22:50:20  wasistho
! moved RFLO_Bcond* and RFLO_BoundaryCond* routines into RFLO_ModBoundaryConditions
!
! Revision 1.18  2004/12/02 23:28:02  wasistho
! removed entry BuildVersionString
!
! Revision 1.17  2004/11/30 20:10:14  fnajjar
! Included interface for RFLO_CheckDerivedUserInput
!
! Revision 1.16  2004/08/25 07:47:35  wasistho
! added RFLO_C2f/eAvgCoeffsDegec and RFLO_InitAvgCoeffs
!
! Revision 1.15  2004/08/21 00:35:21  wasistho
! added RFLO_findSourceCellInvert and RFLO_findDegeneratCell
!
! Revision 1.14  2004/08/03 22:45:11  wasistho
! added RFLO_c2eAvgCoeffs
!
! Revision 1.13  2004/08/02 23:12:27  wasistho
! mv libfloflu/viscousFluxEddy(Patch) to rocflo/RFLO_viscousFlux(Patch)
!
! Revision 1.12  2004/07/30 17:28:27  wasistho
! added routines starting RFLO_c2f...
!
! Revision 1.11  2004/06/29 23:58:08  wasistho
! migrated to Roccom-3
!
! Revision 1.10  2003/10/01 23:52:10  jblazek
! Corrected bug in moving noslip wall BC and grid speeds.
!
! Revision 1.9  2003/08/11 21:51:17  jblazek
! Added basic global grid smoothing scheme.
!
! Revision 1.8  2003/07/03 21:48:45  jblazek
! Implemented dual-time stepping.
!
! Revision 1.7  2003/06/02 17:12:00  jblazek
! Added computation of thrust.
!
! Revision 1.6  2003/05/29 17:28:43  jblazek
! Implemented Roe scheme.
!
! Revision 1.5  2003/05/20 20:46:57  jblazek
! Values in edge & corner cells now corrected at noslip and symmetry walls.
!
! Revision 1.4  2003/02/11 22:52:50  jferry
! Initial import of Rocsmoke
!
! Revision 1.3  2003/02/03 19:20:46  jblazek
! Added treatment of edge and corner cells for one processor.
!
! Revision 1.2  2003/01/15 22:10:13  jblazek
! Other interfaces to InitFlowSolver and FlowSolver with GENX.
!
! Revision 1.1  2002/12/27 22:07:14  jblazek
! Splitted up RFLO_ModInterfaces and ModInterfaces.
!
!******************************************************************************