The TELEMAC-MASCARET system  trunk
homere_artemis.f
Go to the documentation of this file.
1 ! **********************
2  PROGRAM homere_artemis
3 ! **********************
4 !
5 !
6 !***********************************************************************
7 ! ARTEMIS V7P1
8 !***********************************************************************
9 !
10 !brief 1) ACQUIRES DATA REQUIRED TO ALLOCATE MEMORY
11 !+ (STEERING FILE + GEOMETRY)
12 !+
13 !+
14 !+ 2) CALLS THE REAL MAIN PROGRAM ARTEMIS.
15 !
16 !history J-M HERVOUET (LNH)
17 !+ 24/04/1997
18 !+
19 !+ LINKED TO BIEF 5.5
20 !
21 !history D. AELBRECHT (LNH)
22 !+ 19/04/1999
23 !+ V6P0
24 !+
25 !
26 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
27 !+ 13/07/2010
28 !+ V6P0
29 !+ Translation of French comments within the FORTRAN sources into
30 !+ English comments
31 !
32 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
33 !+ 21/08/2010
34 !+ V6P0
35 !+ Creation of DOXYGEN tags for automated documentation and
36 !+ cross-referencing of the FORTRAN sources
37 !
38 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
39 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
40 !
41  USE bief
44 !
46  IMPLICIT NONE
47 !
48  INTEGER TDEB,TFIN,NCAR,IFLOT
49 !
50  CHARACTER(LEN=24), PARAMETER :: CODE='ARTEMIS '
51 !
52  INTEGER TIME_IN_SECONDS
53  EXTERNAL time_in_seconds
54 !
55 !======================================================================
56 !
57  CHARACTER(LEN=MAXLENTMPDIR) PATH
58  CHARACTER(LEN=PATH_LEN) FILE_DESC(4,maxkeyword)
59  CHARACTER(LEN=PATH_LEN) DUMMY
60 !
61 !-----------------------------------------------------------------------
62 !
63  CALL bief_init(path,ncar,.true.)
64 !
65  tdeb = time_in_seconds()
66 !
67 ! HEADING
68 !
69  CALL print_header(code,' ')
70 !
71 !-----------------------------------------------------------------------
72 !
73 ! READS THE STEERING FILE
74 !
75  dummy = ' '
76  CALL lecdon_artemis(file_desc,path,ncar,dummy,dummy)
77 !-----------------------------------------------------------------------
78 !
79 ! OPENS THE FILES
80 !
81  iflot = 0
82  CALL bief_open_files(code,art_files,maxlu_art,path,ncar,
83  & 1,.false.)
84 !-----------------------------------------------------------------------
85 !
86 ! ALLOCATES MEMORY FOR BIEF_OBJ STRUCTURES (VECTORS, MATRICES)
87 !
88 !
89  CALL point_artemis
90 !
91 !-----------------------------------------------------------------------
92 !
93 ! CALLS REAL MAIN PROGRAM
94 !
95  CALL artemis
96 !
97 !-----------------------------------------------------------------------
98 !
100 
101  CALL deall_artemis
102  CALL deall_bief
103 !
104 !-----------------------------------------------------------------------
105 !
106  WRITE(lu,11)
107 11 FORMAT(1x,///,1x,'CORRECT END OF RUN',///)
108 !
109 !-----------------------------------------------------------------------
110 !
111  tfin = time_in_seconds()
112  WRITE(lu,*) 'COMPUTER TIME: ',tfin-tdeb,' SECONDS'
113 !
114 !-----------------------------------------------------------------------
115 !
116  stop 0
117  END
subroutine bief_init(CHAINE, NCAR, PINIT)
Definition: bief_init.f:7
subroutine point_artemis
Definition: point_artemis.f:4
integer, parameter maxlu_art
integer, parameter maxkeyword
type(bief_file), dimension(maxlu_art), target art_files
double precision, dimension(:), pointer x
subroutine artemis
Definition: artemis.f:4
subroutine lecdon_artemis(FILE_DESC, PATH, NCAR, CAS_FILE, DICO_FILE)
Definition: lecdon_artemis.f:8
program homere_artemis
Definition: homere_artemis.f:3
subroutine bief_open_files(CODE, FILES, NFILES, PATH, NCAR, ICODE, FULLNAME)
subroutine deall_artemis
Definition: deall_artemis.f:4
subroutine bief_close_files(FILES, NFILES, PEXIT)
subroutine deall_bief
Definition: deall_bief.f:4
Definition: bief.f:3