converter.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\stbtel\converter.f
00002 !
00038                         SUBROUTINE CONVERTER
00039 !                       *****************
00040      &(LOC_INPFILE,LOC_LOGFILE,LOC_BNDFILE,
00041      & LOC_OUTFILE,LOC_OUTLOGFILE,LOC_OUTBNDFILE)
00042 !
00043 !***********************************************************************
00044 ! STBTEL   V6P1                                   11/07/2011
00045 !***********************************************************************
00046 !
00047 !BRIEF    WRITE A FILE OF MED FORMAT WITH THE MESH OBJECT
00048 !+        INFORMATIONS
00049 !
00050 !HISTORY  Y.AUDOUIN (EDF)
00051 !+        11/07/2011
00052 !+        V6P1
00053 !+   CREATION OF THE FILE
00054 !
00055 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00056 !| LOC_INPFILE        |-->| NAME OF THE INPUT FILE
00057 !| LOC_LOGFILE        |-->| NAME OF THE LOG FILE
00058 !| LOC_BNDFILE        |-->| NAME OF THE BOUNDARY FILE
00059 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00060 !
00061       USE DECLARATIONS_STBTEL
00062       USE CONV_VTK
00063       USE CONV_SERAFIN
00064       USE CONV_MED
00065       USE CONV_LIM
00066       USE CONV_CGNS
00067       USE CONV_UNV
00068 !
00069       IMPLICIT NONE
00070       ! LANGAE AND OUTPUT VALUE
00071       INTEGER LNG,LU
00072       COMMON/INFO/LNG,LU
00073 !
00074 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00075 !
00076       ! NAME IN THE TEMPORARY FOLDER OF THE FILES :
00077       ! EQUAL ' ' IF FILE NOT AVAILABLE
00078       CHARACTER(LEN=MAXLENHARD), INTENT(IN) :: LOC_INPFILE
00079       CHARACTER(LEN=MAXLENHARD), INTENT(IN) :: LOC_LOGFILE
00080       CHARACTER(LEN=MAXLENHARD), INTENT(IN) :: LOC_BNDFILE
00081       CHARACTER(LEN=MAXLENHARD), INTENT(IN) :: LOC_OUTFILE
00082       CHARACTER(LEN=MAXLENHARD), INTENT(IN) :: LOC_OUTLOGFILE
00083       CHARACTER(LEN=MAXLENHARD), INTENT(IN) :: LOC_OUTBNDFILE
00084 !
00085 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00086 !
00087 !=======================================================================
00088 !     READING MESH FILE AND FILLING MESH_OBJ
00089 !=======================================================================
00090 !
00091       IF(LNG.EQ.1) THEN
00092         IF(DEBUG) WRITE(LU,*) '---INFORMATION SUR LES FICHIERS---'
00093         IF(DEBUG) WRITE(LU,*) 'FICHIER D ENTREE        : ',LOC_INPFILE
00094         IF(DEBUG) WRITE(LU,*) 'FORMAT DU FICHIER D ENTREEE  : ',INFMT
00095         IF(DEBUG) WRITE(LU,*) 'FICHIER DES CONDITIONS LIMITES: ',
00096      &                         LOC_BNDFILE
00097         IF(DEBUG) WRITE(LU,*) 'FICHIER LOG       : ',LOGFILE
00098         IF(DEBUG) WRITE(LU,*) 'FICHIER DE SORTIE   : ',LOC_OUTFILE
00099         IF(DEBUG) WRITE(LU,*) 'FORMAT DU FICHIER DE SORTIE : ',OUTFMT
00100         IF(DEBUG) WRITE(LU,*)
00101      &      'FICHIER DES CONDITIONS LIMITES EN SORTIE : ',LOC_OUTBNDFILE
00102         IF(DEBUG) WRITE(LU,*) 'FICHIER LOG EN SORTIE  : ',LOC_OUTLOGFILE
00103       ENDIF
00104       IF(LNG.EQ.2) THEN
00105         IF(DEBUG) WRITE(LU,*) '---FILES INFORMATION---'
00106         IF(DEBUG) WRITE(LU,*) 'INPUT FILE        : ',LOC_INPFILE
00107         IF(DEBUG) WRITE(LU,*) 'INPUT FORMAT      : ',INFMT
00108         IF(DEBUG) WRITE(LU,*) 'BOUNDARY FILE     : ',LOC_BNDFILE
00109         IF(DEBUG) WRITE(LU,*) 'LOG FILE          : ',LOGFILE
00110         IF(DEBUG) WRITE(LU,*) 'OUTPUT FILE       : ',LOC_OUTFILE
00111         IF(DEBUG) WRITE(LU,*) 'OUTPUT FORMAT     : ',OUTFMT
00112         IF(DEBUG) WRITE(LU,*) 'OUT BOUNDARY FILE : ',LOC_OUTBNDFILE
00113         IF(DEBUG) WRITE(LU,*) 'OUT LOG FILE      : ',LOC_OUTLOGFILE
00114       ENDIF
00115 !
00116       ! INITIALISE MESH VALUES
00117       CALL INI_MESH
00118 !
00119       IF(INFMT .EQ. 'SERAFIN') THEN
00120         CALL READ_SERAFIN(LOC_INPFILE,LOC_BNDFILE)
00121       ELSEIF(INFMT .EQ. 'MED') THEN
00122         CALL READ_MED(LOC_INPFILE,LOC_BNDFILE)
00123       ELSEIF(INFMT . EQ. 'UNV') THEN
00124         CALL READ_UNV(LOC_INPFILE,LOC_LOGFILE)
00125       ELSEIF(INFMT . EQ. 'CGNS') THEN
00126         CALL READ_CGNS(LOC_INPFILE)
00127       ELSE
00128         IF(LNG.EQ.2) WRITE(LU,*) 'UNKNOW INPUT FILE TYPE:',INFMT
00129         IF(LNG.EQ.1) WRITE(LU,*) 'FORMAT DU FICHIER D ENTREE INCONNU :',
00130      &                            INFMT
00131       ENDIF
00132 
00133       ! CHECK IF THE MESH IS COMPLETE
00134       IF(DEBUG) CALL CHECK_MESH
00135 !
00136 !=======================================================================
00137 !     WRITING MESH_OBJ INTO FILE
00138 !=======================================================================
00139 !
00140       IF(OUTFMT .EQ. 'SERAFIN') THEN
00141         CALL WRITE_SERAFIN(LOC_OUTFILE,LOC_OUTBNDFILE)
00142       ELSEIF(OUTFMT .EQ. 'MED') THEN
00143         CALL WRITE_MED(LOC_OUTFILE)
00144       ELSEIF(OUTFMT . EQ. 'UNV') THEN
00145         CALL WRITE_UNV(LOC_OUTFILE,LOC_OUTLOGFILE)
00146       ELSEIF(OUTFMT . EQ. 'VTK') THEN
00147         CALL WRITE_VTK(LOC_OUTFILE)
00148       ELSEIF(OUTFMT . EQ. 'CGNS') THEN
00149         CALL WRITE_CGNS(LOC_OUTFILE)
00150       ELSE
00151         IF(LNG.EQ.2) WRITE(LU,*) 'UNKNOW OUTPUT FILE TYPE:',OUTFMT
00152         IF(LNG.EQ.1) WRITE(LU,*) 'FORMAT DU FICHIER DE SORTIE INCONNU:',
00153      &                            OUTFMT
00154       ENDIF
00155       ! DEALLOCATING ARRAY
00156       CALL FREE_MESH
00157 !
00158 !-----------------------------------------------------------------------
00159 !
00160       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0