donnees_echange.f90

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

!------------------------------------------------------------------------------!
! Procedure : donnees_echange             Auteur : E. Radenac
!                                         Date   : Juin 2003
! Fonction                                Modif  :
!   Ecrire les donnees variables dans le temps dans une structure 
!   donnees_echange_inst
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
 
subroutine donnees_echange(solvercoupling, donnees_echange_inst1, zone1, &
                           nbc1, donnees_echange_inst2, zone2, nbc2, ncoupl1, &
                           ncoupl2, typcor)

use TYPHMAKE
use OUTPUT
use GEO3D
use DEFZONE
use DEFFIELD
use VARCOM

implicit none

! -- Declaration des entrees --
integer                 :: solvercoupling
type(st_zone)           :: zone1, zone2
integer                 :: nbc1, nbc2 ! numero (identite) de la CL
integer                 :: ncoupl1, ncoupl2
integer                 :: typcor

! -- Declaration donnees_echange    
type(st_genericfield) :: donnees_echange_inst1, donnees_echange_inst2

! -- Declaration des variables internes --

! -- Debut de la procedure --

select case(solvercoupling)
  
  case(kdif_kdif)
  call ech_data_kdif(donnees_echange_inst1, zone1, nbc1, &
                     donnees_echange_inst2, zone2, nbc2, ncoupl1, &
                     ncoupl2, typcor)
  
  case(kdif_ns)
  call ech_data_kdif(donnees_echange_inst1, zone1, nbc1, &
                     donnees_echange_inst2, zone2, nbc2, ncoupl1, &
                     ncoupl2, typcor)

  case(ns_ns)
  call erreur("incoherence interne (donnees_echange)", "cas non implemente")

  case default
  call erreur("incoherence interne (donnees_echange)", &
              "couplage de solvers inconnu")

endselect

endsubroutine donnees_echange