calc_induced_velocity.f90

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

!------------------------------------------------------------------------------!
! Procedure : calc_induced_velocity       Auteur : J. Gressier
!                                         Date   : Mars 2004
! Fonction                                Modif  : (cf historique)
!   Calcul des vitesses induites par les differents elements singularites
!   aux centres specifies
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
subroutine calc_induced_velocity(zone, center, velocity)

use TYPHMAKE
use DEFZONE
use MENU_VORTEX

implicit none

! -- Declaration des entrees --
type(st_zone)         :: zone
type(st_genericfield) :: center

! -- Declaration des sorties --
type(st_genericfield) :: velocity

! -- Declaration des variables internes --
integer :: ip

! -- Debut de la procedure --




endsubroutine calc_induced_velocity

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