fileio_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 fileio_generic_mod
  USE fileio_base_mod
  USE fileio_vtk_mod
  USE fileio_binary_mod
  USE fileio_xdmf_mod
  USE mesh_base_mod
  USE physics_base_mod
  USE timedisc_base_mod
  USE sources_base_mod
  USE common_dict

CONTAINS

  SUBROUTINE new_fileio(Fileio,Mesh,Physics,Timedisc,Sources,config,IO)
    IMPLICIT NONE
    !------------------------------------------------------------------------!
    CLASS(fileio_base), ALLOCATABLE           :: Fileio
    CLASS(mesh_base),     INTENT(IN)          :: Mesh
    CLASS(physics_base),  INTENT(IN)          :: Physics
    CLASS(timedisc_base), INTENT(IN)          :: Timedisc
    CLASS(sources_base),  INTENT(IN), POINTER :: Sources
    TYPE(DICT_TYP),       INTENT(IN), POINTER :: config
    TYPE(DICT_TYP),       INTENT(IN), POINTER ::  IO
    !------------------------------------------------------------------------!
    INTEGER                                   :: fileformat
    !------------------------------------------------------------------------!
    CALL getattr(config,"fileformat",fileformat)

    ! allocate data
    SELECT CASE(fileformat)
    CASE(vtk)
      ALLOCATE(fileio_vtk::fileio)
    CASE(binary)
      ALLOCATE(fileio_binary::fileio)
    CASE(xdmf)
      ALLOCATE(fileio_xdmf::fileio)
    CASE DEFAULT
      CALL fileio%Error("new_fileio","Unknown filetype.")
    END SELECT

    ! call initialization
    SELECT TYPE(obj => fileio)
    TYPE IS (fileio_vtk)
      CALL obj%InitFileio_vtk(mesh,physics,timedisc,sources,config,io)
    TYPE IS (fileio_binary)
      CALL obj%InitFileio_binary(mesh,physics,timedisc,sources,config,io)
    TYPE IS (fileio_xdmf)
      CALL obj%InitFileio_xdmf(mesh,physics,timedisc,sources,config,io)
    END SELECT
  END SUBROUTINE
END MODULE fileio_generic_mod