reconstruction_constant.f90

Go to the documentation of this file.

!#############################################################################
!#                                                                           #
!# fosite - 3D hydrodynamical simulation program                             #
!# module: reconstruction_constant.f90                                       #
!#                                                                           #
!# Copyright (C) 2007-2017                                                   #
!# Tobias Illenseer <tillense@astrophysik.uni-kiel.de>                       #
!# Jannes Klee      <jklee@astrophysik.uni-kiel.de>                          #
!#                                                                           #
!# This program is free software; you can redistribute it and/or modify      #
!# it under the terms of the GNU General Public License as published by      #
!# the Free Software Foundation; either version 2 of the License, or (at     #
!# your option) any later version.                                           #
!#                                                                           #
!# This program is distributed in the hope that it will be useful, but       #
!# WITHOUT ANY WARRANTY; without even the implied warranty of                #
!# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, GOOD TITLE or        #
!# NON INFRINGEMENT.  See the GNU General Public License for more            #
!# details.                                                                  #
!#                                                                           #
!# You should have received a copy of the GNU General Public License         #
!# along with this program; if not, write to the Free Software               #
!# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.                 #
!#                                                                           #
!#############################################################################
!----------------------------------------------------------------------------!
!----------------------------------------------------------------------------!
MODULE reconstruction_constant_mod
  USE logging_base_mod
  USE reconstruction_base_mod
  USE mesh_base_mod
  USE marray_compound_mod
  USE physics_base_mod
  USE common_dict
  IMPLICIT NONE
  !--------------------------------------------------------------------------!
  PRIVATE
  TYPE, EXTENDS (reconstruction_base) :: reconstruction_constant
  ! no data declarations
  CONTAINS
    PROCEDURE             :: initreconstruction_constant
    PROCEDURE             :: calculatestates
    PROCEDURE             :: finalize
  END TYPE reconstruction_constant
  !--------------------------------------------------------------------------!
  CHARACTER(LEN=32), PARAMETER    :: recontype_name = "constant"
  !--------------------------------------------------------------------------!
  PUBLIC :: &
       ! types
       reconstruction_constant
  !--------------------------------------------------------------------------!

CONTAINS

  SUBROUTINE initreconstruction_constant(this,Mesh,Physics,config,IO)
    IMPLICIT NONE
    !------------------------------------------------------------------------!
    CLASS(reconstruction_constant), INTENT(INOUT) :: this
    CLASS(mesh_base),               INTENT(IN)    :: Mesh
    CLASS(physics_base),            INTENT(IN)    :: Physics
    TYPE(Dict_TYP),POINTER                        :: config,IO
    !-----------------------------------------------------------------------!
    CALL this%InitReconstruction(mesh,physics,config,io,constant,recontype_name)
  END SUBROUTINE initreconstruction_constant


  PURE SUBROUTINE calculatestates(this,Mesh,Physics,rvar,rstates)
    IMPLICIT NONE
    !------------------------------------------------------------------------!
    CLASS(reconstruction_constant), INTENT(INOUT) :: this
    CLASS(mesh_base),               INTENT(IN)    :: mesh
    CLASS(physics_base),            INTENT(IN)    :: physics
    CLASS(marray_compound),         INTENT(INOUT) :: rvar
    CLASS(marray_compound),         INTENT(INOUT) :: rstates
    !------------------------------------------------------------------------!
    INTEGER                                       :: l,n
    !------------------------------------------------------------------------!
    ! reconstruct cell face values
!NEC$ SHORTLOOP
    DO l=1,physics%VNUM
!NEC$ SHORTLOOP
      DO n=1,mesh%NFACES
         rstates%data3d(:,n,l) = rvar%data2d(:,l)
      END DO
    END DO
  END SUBROUTINE calculatestates


  SUBROUTINE finalize(this)
    IMPLICIT NONE
    !------------------------------------------------------------------------!
    CLASS(reconstruction_constant), INTENT(INOUT) :: this
    !------------------------------------------------------------------------!
    CALL this%Finalize_base()
  END SUBROUTINE finalize

END MODULE reconstruction_constant_mod