multiblock.f90

来自「国外大名顶顶的“台风”并行计算流体力学CFD软件的早期版本的源代码」· F90 代码 · 共 47 行

!------------------------------------------------------------------------------!
! MODULE : MULTIBLOCK                     Auteur : J. Gressier
!                                         Date   : Mai 2002
! Fonction                                Modif  :
!   Bibliotheque de procedures pour la lecture de fichiers de maillages
!   type MULTIBLOC (www.icemcfd.com)
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
module MULTIBLOCK

use PRECDEF
use GEO3D_sp  ! Compilation conditionnelle ? avec GEO3D_dp

implicit none

! -- Variables globales du module -------------------------------------------

character(len=4), parameter :: extgeo   = ".geo"
character(len=4), parameter :: exttopo  = ".topo"
integer,          parameter :: lenname  = 10
integer,          parameter :: lenbound = 20

!------------------------------------------------------------------------------!
!    DECLARATIONS
!------------------------------------------------------------------------------!

!------------------------------------------------------------------------------!
! D閒inition de la structure MBLOCK_BLOCK : Maillage de sommets
!------------------------------------------------------------------------------!
type mblock_block
  integer        :: id                    ! numero de bloc
  character(len=lenname) :: name          ! nom du bloc
  integer        :: idim, jdim, kdim      ! taille du bloc
  integer        :: imin, jmin, kmin      ! indices min
  integer        :: imax, jmax, kmax      ! indices max
  type(v3d), dimension(:,:,:), pointer &  ! coordonn閑s des sommets (i,j,k) 
                 :: vertex                ! du bloc maillage
endtype mblock_block

!------------------------------------------------------------------------------!
! D閒inition de la structure MBLOCK_PATCH : D閒inition de portions de bloc
!------------------------------------------------------------------------------!
type mblock_patch
  integer                 :: iblock  ! numero du bloc
  character, dimension(3) :: dir     ! d閒inition des directions 1