ecrdeb.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\postel3d\ecrdeb.f
00002 !
00033                         SUBROUTINE ECRDEB
00034 !                       *****************
00035 !
00036      &(CANAL,BINCOU,TITCAS,NBV,NTRAC,NTRPA,C2DH,TEXTLU,IC,N)
00037 !
00038 !***********************************************************************
00039 ! POSTEL3D VERSION 5.1   01/09/99   T. DENOT (LNH) 01 30 87 74 89
00040 ! FORTRAN90
00041 !***********************************************************************
00042 !
00043 !     FONCTION  :  OUVERTURE D'UN FICHIER POUR UNE COUPE
00044 !               + ECRITURE DU DEBUT DE l'ENTETE (TITRE,NBV,TEXTE).
00045 !
00046 !-----------------------------------------------------------------------
00047 !                             ARGUMENTS
00048 ! .________________.____.______________________________________________.
00049 ! !      NOM       !MODE!                   ROLE                       !
00050 ! !________________!____!______________________________________________!
00051 ! !   CANAL        ! -->! CANAL DE SORTIE                              !
00052 ! !   BINCOU       ! -->! STANDARD DE BINAIRE POUR LES COUPES          !
00053 ! !   TITCAS       ! -->! TITRE LU DANS LE FICHIER DE RESULTATS        !
00054 ! !   NBV          ! -->! NOMBRE DE VARIABLES EN SORTIE                !
00055 ! !   NTRAC        ! -->! NOMBRE DE TRACEURS ACTIFS                    !
00056 ! !   NTRPA        ! -->! NOMBRE DE TRACEURS PASSIFS                   !
00057 ! !   SORG3D       ! -->! INDICATEUR DES VARIABLES ENREGISTREES        !
00058 ! !   C2DH         ! -->! INDICATEUR DE LA NATURE DE LA COUPE (H OU V) !
00059 ! !________________!____!______________________________________________!
00060 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
00061 !-----------------------------------------------------------------------
00062 !
00063 ! SOUS-PROGRAMME APPELE PAR : PRE2DH , COUPEV
00064 ! SOUS-PROGRAMME APPELES : ECRI2
00065 !
00066 !***********************************************************************
00067 !
00068       USE BIEF
00069       IMPLICIT NONE
00070       INTEGER LNG,LU
00071       COMMON/INFO/LNG,LU
00072 !
00073       INTEGER ,INTENT(IN) :: NBV(2),CANAL,NTRAC,NTRPA
00074       INTEGER ISTAT
00075       INTEGER I
00076       INTEGER IC,N
00077 !
00078       LOGICAL C2DH
00079 !
00080       CHARACTER*80 TITRE
00081       CHARACTER*72 TITCAS
00082       CHARACTER*32 TEXTE
00083       CHARACTER*32 TEXTLU(100)
00084       CHARACTER*15  NOMCOU
00085       CHARACTER*3 , INTENT(IN) ::  BINCOU
00086 !
00087       CHARACTER(LEN=2) CB
00088       DOUBLE PRECISION XB(2)
00089       INTEGER IB(2)
00090       CHARACTER(LEN=3) :: EXTEN1
00091       CHARACTER(LEN=7) :: EXTEN2
00092       EXTERNAL EXTEN1,EXTEN2
00093 !
00094 !-----------------------------------------------------------------------
00095 !
00096 !     OUVERTURE DU FICHIER D'UNE COUPE
00097 !
00098       IF(C2DH) THEN
00099         NOMCOU = 'POSHOR_' // EXTEN1(IC) // '     '
00100       ELSE
00101         NOMCOU = 'POSVER_' // EXTEN2(IC,N)
00102       ENDIF
00103 !
00104       OPEN(CANAL, FILE=NOMCOU , FORM='UNFORMATTED',ACTION='READWRITE' )
00105 !
00106 !-----------------------------------------------------------------------
00107 !
00108 !  ECRITURE DU TITRE
00109 !
00110       TITRE = TITCAS // '        '
00111       CALL ECRI2(XB,IB,TITRE,80,'CH',CANAL,BINCOU,ISTAT)
00112 !
00113 !-----------------------------------------------------------------------
00114 !
00115 !  ECRITURE DU NOMBRE DE VARIABLES EN SORTIE
00116 !
00117 !
00118       CALL ECRI2(XB,NBV,CB,2,'I ',CANAL,BINCOU,ISTAT)
00119 !
00120 !-----------------------------------------------------------------------
00121 !
00122 !  ECRITURE DES TEXTES
00123 !
00124       IF (C2DH) THEN
00125 !
00126         IF (LNG.EQ.1) TEXTE = 'INDICATEUR DOM.                 '
00127         IF (LNG.EQ.2) TEXTE = 'DOMAIN INDICATOR                '
00128         CALL ECRI2(XB,IB,TEXTE,32,'CH',CANAL,BINCOU,ISTAT)
00129 !
00130       ELSE
00131 !
00132         IF (LNG.EQ.1) TEXTE = 'VITESSE UT      M/S             '
00133         IF (LNG.EQ.2) TEXTE = 'VELOCITY UT     M/S             '
00134         CALL ECRI2(XB,IB,TEXTE,32,'CH',CANAL,BINCOU,ISTAT)
00135 !
00136         IF (LNG.EQ.1) TEXTE = 'VITESSE W       M/S             '
00137         IF (LNG.EQ.2) TEXTE = 'VELOCITY W      M/S             '
00138         CALL ECRI2(XB,IB,TEXTE,32,'CH',CANAL,BINCOU,ISTAT)
00139 !
00140         IF (LNG.EQ.1) TEXTE = 'VITESSE UN      M/S             '
00141         IF (LNG.EQ.2) TEXTE = 'VELOCITY UN     M/S             '
00142         CALL ECRI2(XB,IB,TEXTE,32,'CH',CANAL,BINCOU,ISTAT)
00143 !
00144       ENDIF
00145 !
00146 !th pas besoin de 1 car on ne veut pas z
00147       IF (C2DH) THEN
00148         DO I=2,NBV(1)
00149           CALL ECRI2(XB,IB,TEXTLU(I),32,'CH',CANAL,BINCOU,ISTAT)
00150         ENDDO
00151       ELSE
00152         IF (NBV(1).GT.3) THEN
00153         DO I=5,NBV(1)+1
00154           CALL ECRI2(XB,IB,TEXTLU(I),32,'CH',CANAL,BINCOU,ISTAT)
00155         ENDDO
00156         ENDIF
00157       ENDIF
00158 !
00159 !-----------------------------------------------------------------------
00160 !
00161       RETURN
00162       END

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