RVAV_ModInterfaces.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: RVAV_ModInterfaces.F90,v 1.10 2008/12/06 08:45:08 mtcampbe Exp $
!
! Copyright: (c) 2002 by the University of Illinois
!
!******************************************************************************
  
MODULE rvav_modinterfaces

  IMPLICIT NONE

  INTERFACE

  SUBROUTINE buildversionstring( versionString )
    CHARACTER(*) :: versionstring
  END SUBROUTINE buildversionstring

  SUBROUTINE rvav_readfilestream1( regions )
    USE      moddatastruct, ONLY : t_region
    TYPE(t_region),      POINTER :: regions(:)
  END SUBROUTINE rvav_readfilestream1
  
  SUBROUTINE rvav_computeanalyticalsolution( similarityType, regions )
    USE      moddatastruct, ONLY : t_region
    TYPE(t_region),      POINTER :: regions(:)
    INTEGER, INTENT(IN)        :: similaritytype
  END SUBROUTINE rvav_computeanalyticalsolution
    
  SUBROUTINE rvav_readfilestream2( regionsS1, regionsS2 )
    USE      moddatastruct, ONLY : t_region
    TYPE(t_region),      POINTER :: regionss1(:)
    TYPE(t_region),      POINTER :: regionss2(:)
  END SUBROUTINE rvav_readfilestream2
    
  SUBROUTINE rvav_readfilestream2analyt( global, regionsS2 )
    USE      moddatastruct, ONLY : t_region
    USE      modglobal, ONLY     : t_global
    TYPE(t_global), POINTER      :: global
    TYPE(t_region),      POINTER :: regionss2(:)
  END SUBROUTINE rvav_readfilestream2analyt
        
  SUBROUTINE rvav_readfilestream2comput( regionsS1, regionsS2 )
    USE      moddatastruct, ONLY : t_region
    TYPE(t_region),      POINTER :: regionss1(:)
    TYPE(t_region),      POINTER :: regionss2(:)
  END SUBROUTINE rvav_readfilestream2comput
        
  SUBROUTINE rvav_readfilestream2experm( global, regionsS2 )
    USE      moddatastruct, ONLY : t_region
    USE      modglobal, ONLY     : t_global
    TYPE(t_global), POINTER      :: global
    TYPE(t_region),      POINTER :: regionss2(:)
  END SUBROUTINE rvav_readfilestream2experm  
    
  SUBROUTINE rvav_extractvariables( global, region, &
                                    ibeg, iend, ijump, &
                                    jbeg, jend, jjump, &
                                    kbeg, kend, kjump, &
                                    ioffset, ijoffset, &
                                    variableindex,     &
                                    filetype,          &
                                    indcp, indmol, ev )
  
    USE moddatatypes
    USE moddatastruct, ONLY    : t_region
    USE      modglobal, ONLY     : t_global
    TYPE(t_global), POINTER      :: global
    TYPE(t_region), INTENT(IN) :: region
    INTEGER, INTENT(IN)        :: ibeg, iend, ijump
    INTEGER, INTENT(IN)        :: jbeg, jend, jjump
    INTEGER, INTENT(IN)        :: kbeg, kend, kjump
    INTEGER, INTENT(IN)        :: ioffset, ijoffset
    INTEGER, INTENT(IN)        :: indcp, indmol
    INTEGER, INTENT(IN)        :: variableindex
    INTEGER, INTENT(IN)        :: filetype
    REAL(RFREAL), POINTER      :: ev(:,:,:)
  END SUBROUTINE rvav_extractvariables

  SUBROUTINE rvav_computesimilarfield( global, iNodes,jNodes,kNodes, &
                                       similaritytype,       &
                                       variableindex,        &
                                       ev)
    USE      modglobal, ONLY : t_global
    USE      modparameters
    USE      rvav_modglobal
    TYPE(t_global), POINTER    :: global
    INTEGER, INTENT(IN)   :: inodes,jnodes,knodes
    INTEGER, INTENT(IN)        :: variableindex
    INTEGER, INTENT(IN)        :: similaritytype
    REAL(RFREAL), POINTER      :: ev(:,:,:)
  END SUBROUTINE rvav_computesimilarfield
  
  SUBROUTINE rvav_computeerror( global, iCompare, iNodes, jNodes, kNodes)
    USE      modglobal, ONLY : t_global
    USE      modparameters
    USE      rvav_modglobal
    TYPE(t_global), POINTER    :: global
    INTEGER, INTENT(IN)   :: icompare
    INTEGER, INTENT(IN)   :: inodes,jnodes,knodes
  END SUBROUTINE rvav_computeerror
  
  SUBROUTINE rvav_plotresults( global, iCompare, iNodes, jNodes, kNodes)
    USE      modglobal, ONLY : t_global
    USE      modparameters
    USE      rvav_modglobal
    TYPE(t_global), POINTER  :: global
    INTEGER, INTENT(IN)   :: icompare
    INTEGER, INTENT(IN)   :: inodes,jnodes,knodes
  END SUBROUTINE rvav_plotresults
  
  SUBROUTINE rvav_blasiussolution( fname, regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region),      POINTER :: regions(:)
    CHARACTER(*) :: fname
  END SUBROUTINE rvav_blasiussolution  
  
  SUBROUTINE rvav_gammbumpsolution( fname, regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region),      POINTER :: regions(:)
    CHARACTER(*) :: fname
  END SUBROUTINE rvav_gammbumpsolution
    
  SUBROUTINE rvav_proudmanculicksolution( fname, regions )
    USE moddatastruct, ONLY : t_region
    TYPE(t_region),      POINTER :: regions(:)
    CHARACTER(*) :: fname
  END SUBROUTINE rvav_proudmanculicksolution
  
  SUBROUTINE rvav_readinputfile( global )
    USE      modglobal, ONLY : t_global
    TYPE(t_global), POINTER    :: global
  END SUBROUTINE rvav_readinputfile
  
  SUBROUTINE rvav_readsectionstream1( global )
    USE      modglobal, ONLY : t_global
    TYPE(t_global), POINTER    :: global
  END SUBROUTINE rvav_readsectionstream1
  
  SUBROUTINE rvav_readsectionstream2( global )
    USE      modglobal, ONLY : t_global
    TYPE(t_global), POINTER    :: global
  END SUBROUTINE rvav_readsectionstream2
  
  SUBROUTINE rvav_readcomparisonssection( global )
    USE      modglobal, ONLY : t_global
    TYPE(t_global), POINTER    :: global
  END SUBROUTINE rvav_readcomparisonssection
              
  END INTERFACE

END MODULE rvav_modinterfaces

!******************************************************************************
!
! RCS Revision history:
!
! $Log: RVAV_ModInterfaces.F90,v $
! Revision 1.10  2008/12/06 08:45:08  mtcampbe
! Updated license.
!
! Revision 1.9  2008/11/19 22:18:19  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.8  2002/09/10 00:01:45  f-najjar
! Variable global moved into regions()
!
! Revision 1.7  2002/08/15 19:48:06  jblazek
! Implemented grid deformation capability.
!
! Revision 1.6  2002/07/31 02:34:57  f-najjar
! Split Analytical Solutions into individual routines
!
! Revision 1.5  2002/07/16 22:42:19  f-najjar
! Cleanup of ReadFileStream2
!
! Revision 1.4  2002/06/18 03:18:20  f-najjar
! Included RVAV_computeAnalyticalSolution
!
! Revision 1.3  2002/06/15 17:55:54  f-najjar
! Bug fix of Extract Variables and New Call for computSimilarField
!
! Revision 1.2  2002/06/14 17:00:52  jblazek
! Added version string.
!
! Revision 1.1.1.1  2002/06/03 21:41:29  f-najjar
! Initial Import of RocVaV
!
!******************************************************************************