capteurs.f90

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

!------------------------------------------------------------------------------!
! Procedure : capteurs                    Auteur : J. Gressier
!                                         Date   : Mai 2003
! Fonction                                Modif  : (cf historique)
!   Calcul des quantites definis par les capteurs
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
subroutine capteurs(zone)

use TYPHMAKE
use OUTPUT
use VARCOM
use DEFZONE

implicit none

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

! -- Declaration des sorties --

! -- Declaration des variables internes --
integer    :: ic                 ! index de capteur

! -- Debut de la procedure --

do ic = 1, zone%defsolver%nprobe

  select case(zone%defsolver%probe(ic)%type)
  case(probe)
    call erreur("Developpement","type PROBE non implemente")
  case(boco_field)
    call prb_boco_field()
  case(boco_integral)
    call erreur("Developpement","type BOCO_INTEGRAL non implemente")
  case(residuals)

  endselect

enddo

write(uf_monres,*) zone%info%iter_tot, log10(zone%info%cur_res)

!-----------------------------
endsubroutine capteurs

!------------------------------------------------------------------------------!
! Historique des modifications
!
! mai 2003 : creation de la procedure (test pour debuggage)
! nov 2003 : redirection selon type de capteur
!------------------------------------------------------------------------------!