homere_tomawac.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\homere_tomawac.f
00002 !
00073                      PROGRAM HOMERE_TOMAWAC
00074 !                    **********************
00075 !
00076 !
00077 !***********************************************************************
00078 ! TOMAWAC   V7P0                                   21/08/2010
00079 !***********************************************************************
00080 !
00081 !
00082 !
00083 !
00084 !
00085 !
00086 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00087 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00088 !
00089       USE BIEF
00090       USE DECLARATIONS_TELEMAC
00091       USE DECLARATIONS_TOMAWAC
00092       USE INTERFACE_TOMAWAC
00093 !
00094       IMPLICIT NONE
00095 !
00096       INTEGER LNG,LU
00097       COMMON/INFO/ LNG,LU
00098 !
00099       INTEGER TDEB(8),TFIN(8),NCAR,IFLOT
00100 !
00101       CHARACTER(LEN=24), PARAMETER :: CODE='TOMAWAC                '
00102 !
00103       CHARACTER(LEN=250) PATH
00104       CHARACTER(LEN=144) FILE_DESC(4,300)
00105 !
00106       CALL BIEF_INIT(CODE,PATH,NCAR,.TRUE.)
00107 !
00108 !     INITIAL TIME FOR COMPUTATION DURATION
00109 !
00110       CALL DATE_AND_TIME(VALUES=TDEB)
00111 !
00112 !-----------------------------------------------------------------------
00113 !     EN TETE   -  HEADING
00114 !-----------------------------------------------------------------------
00115 !
00116       WRITE(LU,100)
00117       WRITE(LU,110)
00118 100   FORMAT(100('-'),////////,
00119      &16X,
00120      &'TTTTT  OOOOO  M   M  AAAAA  W   W  AAAAA  CCCCC '
00121      &,/,16X,
00122      &'  T    O   O  MM MM  A   A  W   W  A   A  C     '
00123      &,/,16X,
00124      &'  T    O   O  M W M  AAAAA  W W W  AAAAA  C     '
00125      &,/,16X,
00126      &'  T    O   O  M   M  A   A  WW WW  A   A  C     '
00127      &,/,16X,
00128      &'  T    OOOOO  M   M  A   A  W   W  A   A  CCCCC '
00129      &,//)
00130 110   FORMAT(15X,
00131      &'               |    |    |                 '
00132      &,/,15X,
00133      &'              )_)  )_)  )_) _              '
00134      &,/,15X,
00135      &'             )___))___))___)\              '
00136      &,/,15X,
00137      &'             )____)____)_____)\\           '
00138      &,/,15X,
00139      &'           _____|____|____|____\\\__       '
00140      &,/,15X,
00141      &'  ---------\               7.0  /---------  '
00142      &,/,15X,
00143      &'    ^^^^^^^^^^^^^^^^^^^^^^^^^^^             '
00144      &,/,15X,
00145      &'         ^^^^      ^^^^     ^^^    ^^      '
00146      &,/,15X,
00147      &'             ^^^^      ^^^                 '
00148      &,///)
00149 !
00150 !-----------------------------------------------------------------------
00151 !
00152 !     READS THE STEERING FILE
00153 !
00154       CALL LECDON_TOMAWAC(FILE_DESC,PATH,NCAR,CODE)
00155 !
00156 !-----------------------------------------------------------------------
00157 !
00158 !     OPENS THE FILES
00159 !
00160       IFLOT = 0
00161       CALL BIEF_OPEN_FILES(CODE,WAC_FILES,MAXLU_WAC,PATH,NCAR,
00162      &                     .FALSE.,IFLOT,1)
00163 !
00164 !-----------------------------------------------------------------------
00165 !
00166 !     ALLOCATES MEMORY
00167 !
00168       CALL POINT_TOMAWAC
00169 !
00170 !-----------------------------------------------------------------------
00171 !
00172 !     CALLS THE REAL MAIN PROGRAM
00173 !
00174       CALL WAC(-1,STRA01,STRA01,STRA01,STRA01,STRA01,STRA01,STRA01,
00175      &         CODE,0.D0,0.D0,0,1,STRA01,STRA01,STRA01,STRA01)
00176 !
00177 !-----------------------------------------------------------------------
00178 !
00179 !     CLOSES THE FILES
00180 !
00181       CALL BIEF_CLOSE_FILES(CODE,WAC_FILES,MAXLU_WAC,.TRUE.)
00182 !
00183 !-----------------------------------------------------------------------
00184 !
00185       IF (LNG.EQ.1) WRITE(LU,10)
00186       IF (LNG.EQ.2) WRITE(LU,20)
00187 10    FORMAT(1X,////,1X,'FIN NORMALE DU PROGRAMME',/////)
00188 20    FORMAT(1X,////,1X,'CORRECT END OF RUN',/////)
00189 !
00190 !-----------------------------------------------------------------------
00191 !
00192 !     TIME OF END OF COMPUTATION
00193 !
00194       CALL DATE_AND_TIME(VALUES=TFIN)
00195       CALL ELAPSE(TDEB,TFIN)
00196 !
00197 !-----------------------------------------------------------------------
00198 !
00199       STOP 0
00200       END

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