homere_artemis.f

Go to the documentation of this file.

!                   **********************
                    PROGRAM homere_artemis
!                   **********************
!
!
!***********************************************************************
! ARTEMIS   V7P1
!***********************************************************************
!
!brief    1)  ACQUIRES DATA REQUIRED TO ALLOCATE MEMORY
!+                   (STEERING FILE + GEOMETRY)
!+
!+
!+            2)  CALLS THE REAL MAIN PROGRAM ARTEMIS.
!
!history  J-M HERVOUET (LNH)
!+        24/04/1997
!+
!+   LINKED TO BIEF 5.5
!
!history  D. AELBRECHT (LNH)
!+        19/04/1999
!+        V6P0
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_telemac
      USE declarations_artemis
!
      USE declarations_special
      IMPLICIT NONE
!
      INTEGER TDEB,TFIN,NCAR,IFLOT
!
      CHARACTER(LEN=24), PARAMETER :: CODE='ARTEMIS                 '
!
      INTEGER  TIME_IN_SECONDS
      EXTERNAL time_in_seconds
!
!======================================================================
!
      CHARACTER(LEN=MAXLENTMPDIR) PATH
      CHARACTER(LEN=PATH_LEN) FILE_DESC(4,maxkeyword)
      CHARACTER(LEN=PATH_LEN) DUMMY
!
!-----------------------------------------------------------------------
!
      CALL bief_init(path,ncar,.true.)
!
      tdeb = time_in_seconds()
!
!     HEADING
!
      CALL print_header(code,'                        ')
!
!-----------------------------------------------------------------------
!
!     READS THE STEERING FILE
!
      dummy = ' '
      CALL lecdon_artemis(file_desc,path,ncar,dummy,dummy)
!-----------------------------------------------------------------------
!
!     OPENS THE FILES
!
      iflot = 0
      CALL bief_open_files(code,art_files,maxlu_art,path,ncar,
     &                     1,.false.)
!-----------------------------------------------------------------------
!
!     ALLOCATES MEMORY FOR BIEF_OBJ STRUCTURES (VECTORS, MATRICES)
!
!
      CALL point_artemis
!
!-----------------------------------------------------------------------
!
!     CALLS REAL MAIN PROGRAM
!
      CALL artemis
!
!-----------------------------------------------------------------------
!
      CALL bief_close_files(art_files,maxlu_art,.true.)

      CALL deall_artemis
      CALL deall_bief
!
!-----------------------------------------------------------------------
!
      WRITE(lu,11)
11    FORMAT(1x,///,1x,'CORRECT END OF RUN',///)
!
!-----------------------------------------------------------------------
!
      tfin = time_in_seconds()
      WRITE(lu,*) 'COMPUTER TIME: ',tfin-tdeb,' SECONDS'
!
!-----------------------------------------------------------------------
!
      stop 0
      END