homere_artemis.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\homere_artemis.f
00002 !
00065                      PROGRAM HOMERE_ARTEMIS
00066 !                    **********************
00067 !
00068 !
00069 !***********************************************************************
00070 ! ARTEMIS   V7P0                                   21/08/2010
00071 !***********************************************************************
00072 !
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00079 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00080 !
00081       USE BIEF
00082       USE DECLARATIONS_TELEMAC
00083       USE DECLARATIONS_ARTEMIS
00084 !
00085       IMPLICIT NONE
00086       INTEGER     LNG,LU
00087       COMMON/INFO/LNG,LU
00088 !
00089       INTEGER TDEB,TFIN,NCAR,IFLOT
00090 !
00091       CHARACTER(LEN=24), PARAMETER :: CODE='ARTEMIS                 '
00092 !
00093       INTEGER  TIME_IN_SECONDS
00094       EXTERNAL TIME_IN_SECONDS
00095 !
00096 !======================================================================
00097 !
00098       CHARACTER(LEN=250) PATH
00099       CHARACTER(LEN=144) FILE_DESC(4,300)
00100 !
00101 !-----------------------------------------------------------------------
00102 !
00103       CALL BIEF_INIT(CODE,PATH,NCAR,.TRUE.)
00104 !
00105       TDEB = TIME_IN_SECONDS()
00106 !
00107 !     HEADING
00108 !
00109       IF(LNG.EQ.1) WRITE(LU,100)
00110       IF(LNG.EQ.2) WRITE(LU,101)
00111       WRITE(LU,102)
00112 100   FORMAT(/////,1X,'LISTING DE ARTEMIS ',78('-'))
00113 101   FORMAT(/////,1X,'LISTING OF ARTEMIS ',78('-'))
00114 102   FORMAT(/////,
00115      &14X,'    AAA  RRRR  TTTTT EEEEE M   M IIIII  SSSS',/,
00116      &14X,'   A   A R   R   T   E     MM MM   I   S    ',/,
00117      &14X,'   AAAAA RRRR    T   EEEEE M M M   I    SSS ',/,
00118      &14X,'   A   A R   R   T   E     M   M   I       S',/,
00119      &14X,'   A   A R   R   T   EEEEE M   M IIIII SSSS ',/,
00120      &14X,'                                            ',/,
00121      &14X,'          VERSION 7.0      FORTRAN 90 ',/,
00122      &14X,/////)
00123 !
00124 !-----------------------------------------------------------------------
00125 !
00126 !     READS THE STEERING FILE
00127 !
00128       CALL LECDON_ARTEMIS(FILE_DESC,PATH,NCAR,CODE)
00129 !-----------------------------------------------------------------------
00130 !
00131 !     OPENS THE FILES
00132 !
00133       IFLOT = 0
00134       CALL BIEF_OPEN_FILES(CODE,ART_FILES,MAXLU_ART,PATH,NCAR,
00135      &                     .FALSE.,IFLOT,1)
00136 !-----------------------------------------------------------------------
00137 !
00138 !     ALLOCATES MEMORY FOR BIEF_OBJ STRUCTURES (VECTORS, MATRICES)
00139 !
00140 !
00141       CALL POINT_ARTEMIS
00142 !
00143 !-----------------------------------------------------------------------
00144 !
00145 !     CALLS REAL MAIN PROGRAM
00146 !
00147       CALL ARTEMIS
00148 !
00149 !-----------------------------------------------------------------------
00150 !
00151       CALL BIEF_CLOSE_FILES(CODE,ART_FILES,MAXLU_ART,.TRUE.)
00152 !
00153 !-----------------------------------------------------------------------
00154 !
00155       IF(LNG.EQ.1) WRITE(LU,10)
00156       IF(LNG.EQ.2) WRITE(LU,11)
00157 10    FORMAT(1X,///,1X,'FIN NORMALE DU PROGRAMME',///)
00158 11    FORMAT(1X,///,1X,'CORRECT END OF RUN',///)
00159 !
00160 !-----------------------------------------------------------------------
00161 !
00162       TFIN = TIME_IN_SECONDS()
00163       IF(LNG.EQ.1) THEN
00164         WRITE(LU,*) 'DUREE DU CALCUL : ',TFIN-TDEB,' SECONDES'
00165       ENDIF
00166       IF(LNG.EQ.2) THEN
00167         WRITE(LU,*) 'COMPUTER TIME: ',TFIN-TDEB,' SECONDS'
00168       ENDIF
00169 !
00170 !-----------------------------------------------------------------------
00171 !
00172       STOP 0
00173       END

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