fileio_generic.f90

Go to the documentation of this file.

!#############################################################################
!#                                                                           #
!# fosite - 3D hydrodynamical simulation program                             #
!# module: fileio_generic.f90                                                #
!#                                                                           #
!# Copyright (C) 2015-2024                                                   #
!# Manuel Jung <mjung@astrophysik.uni-kiel.de>                               #
!# Jannes Klee      <jklee@astrophysik.uni-kiel.de>                          #
!# Tobias Illenseer <tillense@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_gnuplot_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_generic_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_list), ALLOCATABLE, INTENT(IN) :: 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(gnuplot)
        ALLOCATE(fileio_gnuplot::fileio)
      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
      CALL fileio%InitFileIO(mesh,physics,timedisc,sources,config,io)
    END SUBROUTINE
 
END MODULE fileio_generic_mod