constants_generic.f90

Go to the documentation of this file.

!#############################################################################
!#                                                                           #
!# fosite - 3D hydrodynamical simulation program                             #
!# module: mesh_generic.f90                                                  #
!#                                                                           #
!# Copyright (C) 2016 Manuel Jung <mjung@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 constants_generic_mod
  USE constants_base_mod
  USE constants_cgs_mod
  USE constants_geometrical_mod
  USE constants_si_mod
 
CONTAINS
 
  SUBROUTINE new_constants(Constants,units)
    IMPLICIT NONE
    !------------------------------------------------------------------------!
    CLASS(constants_base), ALLOCATABLE :: Constants
    !------------------------------------------------------------------------!
    INTEGER                            :: units
    !------------------------------------------------------------------------!
 
    ! allocate data
    SELECT CASE(units)
    CASE(cgs)
      ALLOCATE(constants_cgs::constants)
    CASE(geometrical)
      ALLOCATE(constants_geometrical::constants)
    CASE(si)
      ALLOCATE(constants_si::constants)
    END SELECT
 
    ! call initialization
    SELECT TYPE(obj => constants)
    TYPE IS (constants_cgs)
      CALL obj%InitConstants_cgs()
    TYPE IS (constants_geometrical)
      CALL obj%InitConstants_geometrical()
    TYPE IS (constants_si)
      CALL obj%InitConstants_SI()
    END SELECT
  END SUBROUTINE
END MODULE constants_generic_mod