UpdateDependentVarsMP.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: Update dependent variables.
!
! Description: None.
!
! Input:
!   region        Region data
!
! Output: None.
!
! Notes: None.
!
!******************************************************************************
!
! $Id: UpdateDependentVarsMP.F90,v 1.4 2008/12/06 08:44:10 mtcampbe Exp $
!
! Copyright: (c) 2004-2005 by the University of Illinois
!
!******************************************************************************

SUBROUTINE updatedependentvarsmp(region)

  USE moddatatypes
  USE modparameters
  USE moderror
  USE modglobal, ONLY: t_global
  USE moddatastruct, ONLY: t_region
#ifdef RFLU
  USE rflu_modconvertcv, ONLY: rflu_convertcvcons2prim, &
                               rflu_convertcvprim2cons
#endif

#ifdef RFLO
  USE modinterfaces, ONLY: rflo_getdimensdummy,rflo_getcelloffset

#include "Indexing.h"
#endif

  USE modinterfaces, ONLY: mixtureproperties

#ifdef PLAG
  USE modinterfaceslagrangian, ONLY: plag_noncvupdate
#endif

#ifdef SPEC
  USE modinterfacesspecies, ONLY: spec_updatedependentvars
#endif

  IMPLICIT NONE

! *****************************************************************************
! Declarations
! *****************************************************************************

! =============================================================================
! Arguments
! =============================================================================

  TYPE(t_region) :: region

! =============================================================================
! Locals
! =============================================================================

  CHARACTER(CHRLEN) :: rcsidentstring
  INTEGER :: ibc,iec
#ifdef RFLO
  INTEGER :: icoff,idcbeg,idcend,ijcoff,ilev,jdcbeg,jdcend,kdcbeg,kdcend
#endif
  TYPE(t_global), POINTER :: global
#ifdef RFLU
  TYPE(t_region), POINTER :: pregion
#endif

! *****************************************************************************
! Start
! *****************************************************************************

  rcsidentstring = '$RCSfile: UpdateDependentVarsMP.F90,v $ $Revision: 1.4 $'

  global => region%global

  CALL registerfunction(global,'UpdateDependentVarsMP',&
  'UpdateDependentVarsMP.F90')

! *****************************************************************************
! Set variables
! *****************************************************************************

#ifdef RFLO
  ilev = region%currLevel

  CALL rflo_getdimensdummy(region,ilev,idcbeg,idcend,jdcbeg,jdcend,kdcbeg, &
                           kdcend)
  CALL rflo_getcelloffset(region,ilev,icoff,ijcoff)
  ibc = indijk(idcbeg,jdcbeg,kdcbeg,icoff,ijcoff)
  iec = indijk(idcend,jdcend,kdcend,icoff,ijcoff)
#endif

#ifdef RFLU
  ibc = 1
  iec = region%grid%nCellsTot
#endif

! *****************************************************************************
! Update dependent variables
! *****************************************************************************

! =============================================================================
! Mixture. NOTE here the last parameter MUST be TRUE, otherwise the gas
! properties do not get initialized correctly.
! =============================================================================

  CALL mixtureproperties(region,ibc,iec,.true.)

#ifdef RFLU
#ifdef PLAG
! =============================================================================
! Particles
! =============================================================================

  IF ( global%plagUsed .EQV. .true. ) THEN
    pregion => region%pRegion
    CALL rflu_convertcvcons2prim(pregion,cv_mixt_state_duvwp)
    CALL plag_noncvupdate(pregion)
    CALL rflu_convertcvprim2cons(pregion,cv_mixt_state_cons)
  END IF ! plagUsed
#endif
#endif

#ifdef SPEC
! =============================================================================
! Species
! =============================================================================

  IF ( global%specUsed .EQV. .true. ) THEN
    pregion => region%pRegion
    CALL spec_updatedependentvars(pregion,ibc,iec)
  END IF ! global%specUsed
#endif

! *****************************************************************************
! End
! *****************************************************************************

  CALL deregisterfunction(global)

END SUBROUTINE updatedependentvarsmp

!******************************************************************************
!
! RCS Revision history:
!
! $Log: UpdateDependentVarsMP.F90,v $
! Revision 1.4  2008/12/06 08:44:10  mtcampbe
! Updated license.
!
! Revision 1.3  2008/11/19 22:17:24  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.2  2005/04/15 15:06:04  haselbac
! Adapted interface to SPEC_UpdateDependentVars
!
! Revision 1.1  2004/12/01 16:51:59  haselbac
! Initial revision after changing case
!
! Revision 1.6  2004/11/29 17:15:20  wasistho
! use ModInterfacesSpecies
!
! Revision 1.5  2004/11/14 19:37:18  haselbac
! Changed interfaces to PLAG_nonCvUpdate and SPEC_UpdateDependentVars
!
! Revision 1.4  2004/07/28 15:29:18  jferry
! created global variable for spec use
!
! Revision 1.3  2004/03/05 22:09:00  jferry
! created global variables for peul, plag, and inrt use
!
! Revision 1.2  2004/02/26 21:01:50  haselbac
! Added PLAG support
!
! Revision 1.1  2004/01/29 22:52:33  haselbac
! Initial revision
!
!******************************************************************************