homere_telemac3d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac3d\homere_telemac3d.f
00002 !
00078                      PROGRAM HOMERE_TELEMAC3D
00079 !                    ************************
00080 !
00081 !
00082 !***********************************************************************
00083 ! TELEMAC3D   V7P0                                   21/08/2010
00084 !***********************************************************************
00085 !
00086 !
00087 !
00088 !
00089 !
00090 !
00091 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00092 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00093 !
00094       USE BIEF
00095       USE INTERFACE_TELEMAC3D
00096       USE DECLARATIONS_TELEMAC, ONLY : COUPLING
00097       USE DECLARATIONS_SISYPHE, ONLY : SIS_FILES,MAXLU_SIS
00098       USE DECLARATIONS_TOMAWAC, ONLY : WAC_FILES,MAXLU_WAC
00099       USE DECLARATIONS_TELEMAC3D
00100 !
00101       IMPLICIT NONE
00102       INTEGER     LNG,LU
00103       COMMON/INFO/LNG,LU
00104 !
00105       INTEGER TDEB(8),TFIN(8),NCAR,IFLOT
00106 !
00107       CHARACTER(LEN=24), PARAMETER :: CODE1='TELEMAC3D               '
00108       CHARACTER(LEN=24), PARAMETER :: CODE2='SISYPHE                 '
00109       CHARACTER(LEN=24), PARAMETER :: CODE3='TOMAWAC                 '
00110 !
00111       CHARACTER(LEN=250) PATH
00112       CHARACTER(LEN=144) MOTCAR(300),FILE_DESC(4,300)
00113 !
00114 !======================================================================
00115 !
00116 ! STARTS COUNTING CPU TIME
00117 !
00118       CALL DATE_AND_TIME(VALUES=TDEB)
00119 !
00120 ! INITIALISES FILES (ESPECIALLY IMPORTANT FOR A PARALLEL MACHINE)
00121 !
00122       CALL BIEF_INIT(CODE1,PATH,NCAR,.TRUE.)
00123 !
00124 ! WRITES A BANNER TO THE LISTING
00125 !
00126       IF(LNG.EQ.1) WRITE(LU,100)
00127       IF(LNG.EQ.2) WRITE(LU,101)
00128       WRITE(LU,102)
00129 100   FORMAT(///,78('-'),/,1X,'LISTING DE TELEMAC-3D ',/)
00130 101   FORMAT(///,78('-'),/,1X,'LISTING OF TELEMAC-3D ',/)
00131 102   FORMAT(/////,
00132      &14X,'   TTTTT  EEEEE  L      EEEEE  M   M  AAAAA  CCCCC',/,
00133      &14X,'     T    E      L      E      MM MM  A   A  C    ',/,
00134      &14X,'     T    EEE    L      EEE    M M M  AAAAA  C    ',/,
00135      &14X,'     T    E      L      E      M   M  A   A  C    ',/,
00136      &14X,'     T    EEEEE  LLLLL  EEEEE  M   M  A   A  CCCCC',/,
00137      &14X,'                                                  ',/,
00138      &14X,'            3D   VERSION 7.0   FORTRAN 90    ',/,
00139      &14X,/////)
00140 !
00141 !-----------------------------------------------------------------------
00142 ! READS THE STEERING FILE
00143 !
00144       CALL LECDON_TELEMAC3D(MOTCAR,FILE_DESC,PATH,NCAR)
00145 !
00146 !-----------------------------------------------------------------------
00147 ! OPENS THE FILES
00148 !
00149       IFLOT = 0
00150       CALL BIEF_OPEN_FILES(CODE1,T3D_FILES,MAXLU_T3D,PATH,NCAR,
00151      &                     INCLUS(COUPLING,'SISYPHE').OR.
00152      &                     INCLUS(COUPLING,'TOMAWAC') ,IFLOT,1)
00153 !
00154 !-----------------------------------------------------------------------
00155 !
00156 ! ALLOCATES VECTORS, MATRICES AND BLOCKS
00157 !
00158       CALL POINT_TELEMAC3D
00159 !
00160 !-----------------------------------------------------------------------
00161 !
00162 ! INITIALISES SISYPHE IF COUPLING THE 2 MODELS
00163 !
00164       IF(INCLUS(COUPLING,'SISYPHE')) THEN
00165 !
00166         IF(LNG.EQ.1) WRITE(LU,103)
00167         IF(LNG.EQ.2) WRITE(LU,104)
00168         WRITE(LU,105)
00169 103     FORMAT(/////,1X,'LISTING DE SISYPHE AVEC COUPLAGE',78('-'))
00170 104     FORMAT(/////,1X,'LISTING OF SISYPHE WITH COUPLING',78('-'))
00171 105     FORMAT(/////,
00172      &  14X,'    SSSS I   SSSS Y   Y PPPP  H   H EEEEE' ,/,
00173      &  14X,'   S     I  S      Y Y  P   P H   H E    ' ,/,
00174      &  14X,'    SSS  I   SSS    Y   PPPP  HHHHH EEEE  ',/,
00175      &  14X,'       S I      S   Y   P     H   H E     ',/,
00176      &  14X,'   SSSS  I  SSSS    Y   P     H   H EEEEE' ,/,
00177      &  14X,'                                          ',/,
00178      &  14X,'                VERSION 7.0               ',/,
00179      &  14X,'      COUPLED WITH TELEMAC-3D INTERNALLY  ',/,
00180      &  14X,/////)
00181 !
00182       CALL LECDON_SISYPHE(MOTCAR,FILE_DESC,PATH,NCAR,CODE1)
00183       CALL BIEF_OPEN_FILES(CODE2,SIS_FILES,MAXLU_SIS,PATH,NCAR,
00184      &                     INCLUS(COUPLING,'SISYPHE'),IFLOT,2)
00185       CALL CONFIG_CODE(1)
00186       CALL POINT_SISYPHE
00187 !
00188       ENDIF
00189 !
00190 !-----------------------------------------------------------------------
00191 !
00192 !     INITIALISES TOMAWAC
00193 !
00194       IF(INCLUS(COUPLING,'TOMAWAC')) THEN
00195 !
00196         WRITE(LU,106)
00197         WRITE(LU,107)
00198 106     FORMAT(100('-'),////////,
00199      &  16X,
00200      &  'TTTTT  OOOOO  M   M  AAAAA  W   W  AAAAA  CCCCC '
00201      &  ,/,16X,
00202      &  '  T    O   O  MM MM  A   A  W   W  A   A  C     '
00203      &  ,/,16X,
00204      &  '  T    O   O  M W M  AAAAA  W W W  AAAAA  C     '
00205      &  ,/,16X,
00206      &  '  T    O   O  M   M  A   A  WW WW  A   A  C     '
00207      &  ,/,16X,
00208      &  '  T    OOOOO  M   M  A   A  W   W  A   A  CCCCC '
00209      &  ,//)
00210 107     FORMAT(15X,
00211      &  '               |    |    |                 '
00212      &  ,/,15X,
00213      &  '              )_)  )_)  )_) _              '
00214      &  ,/,15X,
00215      &  '             )___))___))___)\              '
00216      &  ,/,15X,
00217      &  '             )____)____)_____)\\           '
00218      &  ,/,15X,
00219      &  '           _____|____|____|____\\\__       '
00220      &  ,/,15X,
00221      &  '  ---------\               7.0  /---------  '
00222      &  ,/,15X,
00223      & '    ^^^^^^^^^^^^^^^^^^^^^^^^^^^             '
00224      &  ,/,15X,
00225      &  '         ^^^^      ^^^^     ^^^    ^^      '
00226      &  ,/,15X,
00227      &  '             ^^^^      ^^^                 '
00228      &,///)
00229 !
00230       CALL LECDON_TOMAWAC(FILE_DESC,PATH,NCAR,CODE3)
00231       CALL BIEF_OPEN_FILES(CODE3,WAC_FILES,MAXLU_WAC,PATH,NCAR,
00232      &                     .TRUE.,IFLOT,3)
00233       CALL CONFIG_CODE(1)
00234       CALL POINT_TOMAWAC
00235 !
00236       ENDIF
00237 !
00238 !=======================================================================
00239 !
00240       CALL TELEMAC3D
00241 !
00242 !-----------------------------------------------------------------------
00243 !
00244       CALL BIEF_CLOSE_FILES(CODE1,T3D_FILES,MAXLU_T3D,.TRUE.)
00245 !
00246       IF(INCLUS(COUPLING,'SISYPHE')) THEN
00247         CALL CONFIG_CODE(2)
00248         CALL BIEF_CLOSE_FILES(CODE2,SIS_FILES,MAXLU_SIS,.FALSE.)
00249       ENDIF
00250 !
00251       IF(INCLUS(COUPLING,'TOMAWAC')) THEN
00252         CALL CONFIG_CODE(3)
00253         CALL BIEF_CLOSE_FILES(CODE3,WAC_FILES,MAXLU_WAC,.FALSE.)
00254       ENDIF
00255 !
00256 !-----------------------------------------------------------------------
00257 ! HOPEFULLY GOOD NEWS
00258 !
00259       IF(LNG.EQ.1) WRITE(LU,10)
00260       IF(LNG.EQ.2) WRITE(LU,11)
00261 10    FORMAT(1X,///,1X,'FIN NORMALE DU PROGRAMME',///)
00262 11    FORMAT(1X,///,1X,'CORRECT END OF RUN',///)
00263 !
00264 !-----------------------------------------------------------------------
00265 ! PRINTS THE CPU TIME CONSUMED
00266 !
00267       CALL DATE_AND_TIME(VALUES=TFIN)
00268       CALL ELAPSE(TDEB,TFIN)
00269 !
00270 !-----------------------------------------------------------------------
00271 !
00272       STOP 0
00273       END

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