homere_postel3d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\postel3d\homere_postel3d.f
00002 !
00035                            PROGRAM HOMERE_POSTEL3D
00036 !                          ***********************
00037 !
00038 !***********************************************************************
00039 !  POSTEL3D VERSION 6.3
00040 !***********************************************************************
00041 !
00042 !-----------------------------------------------------------------------
00043 !
00044 !                       PROGRAMME PRINCIPAL DE
00045 !
00046 !       PPPP    OOO    SSSS  TTTTT  EEEEE  L         33333  DDDD
00047 !       P   P  O   O  S        T    E      L             3  D   D
00048 !       PPPP   O   O   SSS     T    EEEE   L     ---   333  D   D
00049 !       P      O   O      S    T    E      L             3  D   D
00050 !       P       OOO   SSSS     T    EEEEE  LLLLL     33333  DDDD
00051 !
00052 !
00053 !                INTERFACE ENTRE TELEMAC-3D ET RUBENS
00054 !
00055 !-----------------------------------------------------------------------
00056 !
00057       USE BIEF
00058       USE DECLARATIONS_TELEMAC
00059       USE DECLARATIONS_POSTEL3D
00060 !
00061       IMPLICIT NONE
00062       INTEGER LNG,LU
00063       COMMON/INFO/LNG,LU
00064 !
00065       INTEGER TDEB(8),NCAR,IFLOT
00066 !
00067       CHARACTER(LEN=250) PATH
00068       CHARACTER(LEN=144) MOTCAR(4000),FILE_DESC(4,4000)
00069 !
00070       CHARACTER(LEN=24), PARAMETER :: CODE='POSTEL3D                '
00071 !
00072       CALL BIEF_INIT(CODE,PATH,NCAR,.TRUE.)
00073 !
00074 !     INITIAL TIME FOR COMPUTATION DURATION
00075 !
00076       CALL DATE_AND_TIME(VALUES=TDEB)
00077 !
00078       IF(LNG.EQ.1) WRITE(LU,100)
00079       IF(LNG.EQ.2) WRITE(LU,101)
00080       WRITE(LU,10)
00081 100   FORMAT(/////,1X,'LISTING DE POSTEL-3D ',78('-'))
00082 101   FORMAT(/////,1X,'LISTING OF POSTEL-3D ',78('-'))
00083 10    FORMAT('1',1X,100('-'),////////,
00084      &12X,'PPPP    OOO    SSSS  TTTTT  EEEEE  L         3333   DDDD ',/,
00085      &12X,'P   P  O   O  S        T    E      L             3  D   D',/,
00086      &12X,'PPPP   O   O   SSS     T    EEEE   L     ---  333   D   D',/,
00087      &12X,'P      O   O      S    T    E      L             3  D   D',/,
00088      &12X,'P       OOO   SSSS     T    EEEEE  LLLLL     3333   DDDD ',
00089      &////////)
00090 !
00091       CALL LECDON_POSTEL3D(MOTCAR,FILE_DESC,PATH,NCAR)
00092 !
00093       CALL BIEF_OPEN_FILES(CODE,POS_FILES,100,PATH,NCAR,.FALSE.,IFLOT,1)
00094 !
00095       CALL POINT_POSTEL3D
00096       CALL POSTEL3D
00097       CALL BIEF_CLOSE_FILES(CODE,POS_FILES,100,.FALSE.)
00098 !
00099 !
00100       IF (LNG.EQ.1) WRITE(LU,11)
00101       IF (LNG.EQ.2) WRITE(LU,12)
00102 !
00103 11    FORMAT(////,' FIN NORMALE DU PROGRAMME',/////)
00104 12    FORMAT(////,' CORRECT END OF RUN',/////)
00105 !
00106 !-----------------------------------------------------------------------
00107 !
00108       STOP 0
00109       END

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