init_capteurs.f90

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

!------------------------------------------------------------------------------!
! Procedure : init_capteurs               Auteur : J. Gressier
!                                         Date   : Janvier 2004
! Fonction                                Modif  : see history
!   Initialisation des capteurs
!     - capteurs par defaut
!     - capteurs defnis par l'utilisateur
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!

subroutine init_capteurs(zone)

use TYPHMAKE
use OUTPUT
use DEFZONE

implicit none

! -- Declaration des entrees --

! -- Declaration des sorties --

! -- Declaration des entrees/sorties --
type(st_zone) :: zone

! -- Declaration des variables internes --
integer :: i             ! index de domaine/capteurs

! -- Debut de la procedure --

print*,'capteurs:',zone%info%typ_temps
select case(zone%info%typ_temps)

case(stationnaire)
  !!! DEV : GESTION des entrees/sorties et numeros d'unites par MODULE
  open(unit=uf_monres, file="monres."//strof_full_int(1,3), form = "formatted")
  write(uf_monres,'(a)') "@variables: it residual"

case(instationnaire)
  !!! DEV : GESTION des entrees/sorties et numeros d'unites par MODULE
  open(unit=uf_monphy, file="monphy."//strof_full_int(1,3), form = "formatted")
  write(uf_monphy,'(a)') "@variables: time"
  
case(periodique)
case default
  call erreur("incoherence interne","mode inconnu pour l'initialisation des capteurs")
endselect

do i = 1, zone%defsolver%nprobe

  select case(zone%info%typ_temps)

  case(stationnaire)
    call erreur("developpement","mode non traite l'initialisation des capteurs")

  case(instationnaire)
    call erreur("developpement","mode non traite l'initialisation des capteurs")
  
  case(periodique)
    call erreur("incoherence interne","mode non traite l'initialisation des capteurs")
  case default
    call erreur("incoherence interne","mode inconnu pour l'initialisation des capteurs")
  endselect

enddo

endsubroutine init_capteurs

!------------------------------------------------------------------------------!
! Historique des modifications
!
! jan  2004 : creation de la procedure
! july 2004 : initialization of default probes
!------------------------------------------------------------------------------!