The TELEMAC-MASCARET system  trunk
homere_postel3d.f
Go to the documentation of this file.
1 ! ***********************
2  PROGRAM homere_postel3d
3 ! ***********************
4 !
5 !***********************************************************************
6 ! POSTEL3D VERSION 6.3
7 !***********************************************************************
8 !
9 !-----------------------------------------------------------------------
10 !
11 ! PROGRAMME PRINCIPAL DE
12 !
13 ! PPPP OOO SSSS TTTTT EEEEE L 33333 DDDD
14 ! P P O O S T E L 3 D D
15 ! PPPP O O SSS T EEEE L --- 333 D D
16 ! P O O S T E L 3 D D
17 ! P OOO SSSS T EEEEE LLLLL 33333 DDDD
18 !
19 !
20 ! INTERFACE ENTRE TELEMAC-3D ET RUBENS
21 !
22 !-----------------------------------------------------------------------
23 !
24  USE bief
29 !
31  IMPLICIT NONE
32 !
33  INTEGER TDEB(8),NCAR
34 !
35  CHARACTER(LEN=MAXLENTMPDIR) PATH
36  CHARACTER(LEN=PATH_LEN) MOTCAR(maxkeyword),FILE_DESC(4,maxkeyword)
37 !
38  CHARACTER(LEN=24), PARAMETER :: CODE='POSTEL3D '
39 !
40  CALL bief_init(path,ncar,.true.)
41 !
42 ! INITIAL TIME FOR COMPUTATION DURATION
43 !
44  CALL date_and_time(values=tdeb)
45 !
46  CALL print_header(code,' ')
47 !
48  CALL lecdon_postel3d(motcar,file_desc,path,ncar)
49 !
50  CALL bief_open_files(code,pos_files,100,path,ncar,1,.false.)
51 !
52  CALL point_postel3d
53  CALL postel3d
54  CALL bief_close_files(pos_files,100,.true.)
55 !
56 !
57  WRITE(lu,12)
58 !
59 12 FORMAT(////,' CORRECT END OF RUN',/////)
60 !
61 !-----------------------------------------------------------------------
62 !
63  stop 0
64  END
subroutine postel3d
Definition: postel3d.f:4
subroutine bief_init(CHAINE, NCAR, PINIT)
Definition: bief_init.f:7
program homere_postel3d
type(bief_file), dimension(100) pos_files
integer, parameter maxkeyword
subroutine point_postel3d
Definition: point_postel3d.f:4
subroutine bief_open_files(CODE, FILES, NFILES, PATH, NCAR, ICODE, FULLNAME)
subroutine lecdon_postel3d(MOTCAR, FILE_DESC, PATH, NCAR)
subroutine bief_close_files(FILES, NFILES, PEXIT)
Definition: bief.f:3