init_ustboco_singpanel.f90

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

!------------------------------------------------------------------------------!
! Procedure : init_ustboco_singpanel      Auteur : J. Gressier
!                                         Date   : Mars 2004
! Fonction                                Modif  : (cf historique)
!   Affectation des connectivites entre faces limites et cellules limites
!   pour le type "singpanel" (point fictif sur la face) 
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
subroutine init_ustboco_singpanel(ib, defboco, grid)

use TYPHMAKE
!use VARCOM
use OUTPUT
use USTMESH
use MENU_BOCO

implicit none

! -- Declaration des entrees --
integer        :: ib                     ! numero de condition aux limites
type(mnu_boco) :: defboco                ! parametres du solveur

! -- Declaration des entrees/sorties --
type(st_grid), target :: grid            ! maillage et connectivites

! -- Declaration des sorties --

! -- Declaration des variables internes --
integer :: if                            ! indice boco et de face
integer :: icell, iface                  ! index de cellule et de face

! -- Debut de la procedure --


! allocation du champ

!print*,'debug : init_singpanel : ',grid%umesh%nface,' faces'
!call new(grid%field, 1, 0, grid%umesh%nface+1, 0)
!print*,'debug field scalaires : ',grid%field%nscal,'x',grid%field%ncell

! lien de la condition limite (defsolver) vers grid

defboco%boco_vortex%pgrid => grid


endsubroutine init_ustboco_singpanel

!------------------------------------------------------------------------------!
! Historique des modifications
!
! mars 2004 : creation de la procedure
!------------------------------------------------------------------------------!