geometry_generic.f90

Go to the documentation of this file.

!#############################################################################
!#                                                                           #
!# fosite - 3D hydrodynamical simulation program                             #
!# module: geometry_generic.f90                                              #
!#                                                                           #
!# Copyright (C) 2016 Tobias Illenseer <tillense@astrophysik.uni-kiel.de>    #
!#                    Jannes Klee      <jklee@astrophysik.uni-kiel.de>       #
!#                    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 geometry_generic_mod
  USE geometry_base_mod
  USE geometry_cartesian_mod
  USE geometry_cylindrical_mod
  USE geometry_logcylindrical_mod
  USE geometry_tancylindrical_mod
  USE geometry_logspherical_mod
  USE geometry_spherical_mod
  USE geometry_spherical_planet_mod
  USE common_dict
 
!  INTERFACE geometry_base
!    MODULE PROCEDURE new_geometry
!  END INTERFACE
 
CONTAINS
 
  SUBROUTINE new_geometry(Geometry,config)
    IMPLICIT NONE
    !------------------------------------------------------------------------!
    CLASS(geometry_base), ALLOCATABLE :: Geometry
    TYPE(dict_typ),       POINTER     :: config
    !------------------------------------------------------------------------!
    INTEGER :: geometry_type
    !------------------------------------------------------------------------!
    CALL getattr(config,"geometry",geometry_type)
    ! allocate data
    SELECT CASE(geometry_type)
    CASE(cartesian)
      ALLOCATE(geometry_cartesian::geometry)
    CASE(cylindrical)
      ALLOCATE(geometry_cylindrical::geometry)
    CASE(logcylindrical)
      ALLOCATE(geometry_logcylindrical::geometry)
    CASE(tancylindrical)
      ALLOCATE(geometry_tancylindrical::geometry)
    CASE(logspherical)
      ALLOCATE(geometry_logspherical::geometry)
    CASE(spherical)
      ALLOCATE(geometry_spherical::geometry)
    CASE(spherical_planet)
      ALLOCATE(geometry_spherical_planet::geometry)
    CASE DEFAULT
      CALL geometry%Error("new_geometry","Unknown geometry")
    END SELECT
 
    ! call initialization
    SELECT TYPE(geometry_child => geometry)
    TYPE IS (geometry_cartesian)
      CALL geometry_child%InitGeometry_cartesian(config)
    TYPE IS (geometry_cylindrical)
      CALL geometry_child%InitGeometry_cylindrical(config)
    TYPE IS (geometry_logcylindrical)
      CALL geometry_child%InitGeometry_logcylindrical(config)
    TYPE IS (geometry_tancylindrical)
      CALL geometry_child%InitGeometry_tancylindrical(config)
    TYPE IS (geometry_logspherical)
      CALL geometry_child%InitGeometry_logspherical(config)
    TYPE IS (geometry_spherical)
      CALL geometry_child%InitGeometry_spherical(config)
    TYPE IS (geometry_spherical_planet)
      CALL geometry_child%InitGeometry_spherical_planet(config)
    END SELECT
  END SUBROUTINE
END MODULE geometry_generic_mod