homere_postel3d.f

Go to the documentation of this file.

!                         ***********************
                          PROGRAM homere_postel3d
!                         ***********************
!
!***********************************************************************
!  POSTEL3D VERSION 6.3
!***********************************************************************
!
!-----------------------------------------------------------------------
!
!                       PROGRAMME PRINCIPAL DE
!
!       PPPP    OOO    SSSS  TTTTT  EEEEE  L         33333  DDDD
!       P   P  O   O  S        T    E      L             3  D   D
!       PPPP   O   O   SSS     T    EEEE   L     ---   333  D   D
!       P      O   O      S    T    E      L             3  D   D
!       P       OOO   SSSS     T    EEEEE  LLLLL     33333  DDDD
!
!
!                INTERFACE ENTRE TELEMAC-3D ET RUBENS
!
!-----------------------------------------------------------------------
!
      USE bief
      USE declarations_telemac
      USE declarations_postel3d
      USE interface_postel3d
      USE declarations_special
!
      USE declarations_special
      IMPLICIT NONE
!
      INTEGER TDEB(8),NCAR
!
      CHARACTER(LEN=MAXLENTMPDIR) PATH
      CHARACTER(LEN=PATH_LEN) MOTCAR(maxkeyword),FILE_DESC(4,maxkeyword)
!
      CHARACTER(LEN=24), PARAMETER :: CODE='POSTEL3D                '
!
      CALL bief_init(path,ncar,.true.)
!
!     INITIAL TIME FOR COMPUTATION DURATION
!
      CALL date_and_time(values=tdeb)
!
      CALL print_header(code,'                        ')
!
      CALL lecdon_postel3d(motcar,file_desc,path,ncar)
!
      CALL bief_open_files(code,pos_files,100,path,ncar,1,.false.)
!
      CALL point_postel3d
      CALL postel3d
      CALL bief_close_files(pos_files,100,.true.)
!
!
      WRITE(lu,12)
!
12    FORMAT(////,' CORRECT END OF RUN',/////)
!
!-----------------------------------------------------------------------
!
      stop 0
      END