output_tec_str.f90

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

!------------------------------------------------------------------------------!
! Procedure : output_tec_str              Auteur : J. Gressier
!                                         Date   : Decembre 2002
! Fonction                                Modif  : 
!   Ecriture fichier des champs STRUCTURES de chaque zone au format TECPLOT
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!

subroutine output_tec_str(uf, mesh)

use TYPHMAKE
use OUTPUT
use VARCOM
use MODWORLD

implicit none

! -- Declaration des entrees --
integer          :: uf            ! unite d'ecriture
type(st_strmesh) :: mesh          ! maillage a ecrire

! -- Declaration des sorties --

! -- Declaration des variables internes --
integer :: izone
integer :: info

! -- Debut de la procedure --

write(uf_chpresu,'(a)') 'ZONE T="STRMESH", F=POINT"'


endsubroutine output_tec_str