homere_telemac2d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\homere_telemac2d.f
00002 !
00064                      PROGRAM HOMERE_TELEMAC2D
00065 !                    ************************
00066 !
00067 !
00068 !***********************************************************************
00069 ! TELEMAC2D   V7P0                                   21/08/2010
00070 !***********************************************************************
00071 !
00072 !
00073 !
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00076 !
00077       USE BIEF
00078       USE DECLARATIONS_TELEMAC, ONLY : COUPLING
00079       USE DECLARATIONS_TELEMAC2D
00080       USE DECLARATIONS_SISYPHE, ONLY : SIS_FILES,MAXLU_SIS
00081       USE DECLARATIONS_TOMAWAC, ONLY : WAC_FILES,MAXLU_WAC
00082       USE INTERFACE_TELEMAC2D
00083 !
00084       IMPLICIT NONE
00085       INTEGER     LNG,LU
00086       COMMON/INFO/LNG,LU
00087 !
00088       INTEGER TDEB(8),TFIN(8),NCAR,IFLOT
00089 !
00090       CHARACTER(LEN=24), PARAMETER :: CODE1='TELEMAC2D               '
00091       CHARACTER(LEN=24), PARAMETER :: CODE2='SISYPHE                 '
00092       CHARACTER(LEN=24), PARAMETER :: CODE3='TOMAWAC                 '
00093 !
00094       CHARACTER(LEN=250) PATH
00095       CHARACTER(LEN=144) MOTCAR(MAXKEY),FILE_DESC(4,MAXKEY)
00096       CHARACTER(LEN=144) WMOTCAR(MAXKEY),WFILE_DESC(4,MAXKEY)
00097 !
00098 !======================================================================
00099 !
00100 !     INITIALISES FILES (NAMES OF FILES=' ' AND LOGICAL UNITS =0)
00101 !     GETTING NCSIZE BY CALLING P_INIT
00102 !
00103       CALL BIEF_INIT(CODE1,PATH,NCAR,.TRUE.)
00104 !
00105 !     INITIAL TIME FOR COMPUTATION DURATION
00106 !
00107       CALL DATE_AND_TIME(VALUES=TDEB)
00108 !
00109 !     PRINTS BANNER TO LISTING
00110 !
00111       IF(LNG.EQ.1) WRITE(LU,100)
00112       IF(LNG.EQ.2) WRITE(LU,101)
00113       WRITE(LU,102)
00114 100   FORMAT(/////,1X,'LISTING DE TELEMAC-2D ',78('-'))
00115 101   FORMAT(/////,1X,'LISTING OF TELEMAC-2D ',78('-'))
00116 102   FORMAT(/////,
00117      &14X,'   TTTTT  EEEEE  L      EEEEE  M   M  AAAAA  CCCCC',/,
00118      &14X,'     T    E      L      E      MM MM  A   A  C    ',/,
00119      &14X,'     T    EEE    L      EEE    M M M  AAAAA  C    ',/,
00120      &14X,'     T    E      L      E      M   M  A   A  C    ',/,
00121      &14X,'     T    EEEEE  LLLLL  EEEEE  M   M  A   A  CCCCC',/,
00122      &14X,'                                                  ',/,
00123      &14X,'           2D    VERSION 7.0    FORTRAN 90        ',/,
00124      &14X,'                 WITH SEVERAL TRACERS             ',/,
00125      &14X,'           COUPLED WITH SISYPHE AND TOMAWAC       ',/,
00126      &14X,/////)
00127 !
00128 !-----------------------------------------------------------------------
00129 !
00130 !     READS THE STEERING FILE
00131 !
00132       CALL LECDON_TELEMAC2D(MOTCAR,WMOTCAR,FILE_DESC,WFILE_DESC,
00133      &                      PATH,NCAR)
00134 !
00135 !-----------------------------------------------------------------------
00136 !
00137 !     OPENS THE FILES FOR TELEMAC2D
00138 !
00139       IFLOT = 0
00140       CALL BIEF_OPEN_FILES(CODE1,T2D_FILES,MAXLU_T2D,PATH,NCAR,
00141      &                     INCLUS(COUPLING,'SISYPHE').OR.
00142      &                     INCLUS(COUPLING,'TOMAWAC')         ,IFLOT,1)
00143 !
00144 !-----------------------------------------------------------------------
00145 !
00146 !     ALLOCATES MEMORY
00147 !
00148       CALL POINT_TELEMAC2D
00149 !
00150 !-----------------------------------------------------------------------
00151 !
00152 !     INITIALISES SISYPHE
00153 !
00154       IF(INCLUS(COUPLING,'SISYPHE')) THEN
00155 !
00156         IF(LNG.EQ.1) WRITE(LU,103)
00157         IF(LNG.EQ.2) WRITE(LU,104)
00158         WRITE(LU,105)
00159 103     FORMAT(/////,1X,'LISTING DE SISYPHE AVEC COUPLAGE',78('-'))
00160 104     FORMAT(/////,1X,'LISTING OF SISYPHE WITH COUPLING',78('-'))
00161 105     FORMAT(/////,
00162      &  14X,'    SSSS I   SSSS Y   Y PPPP  H   H EEEEE' ,/,
00163      &  14X,'   S     I  S      Y Y  P   P H   H E    ' ,/,
00164      &  14X,'    SSS  I   SSS    Y   PPPP  HHHHH EEEE  ',/,
00165      &  14X,'       S I      S   Y   P     H   H E     ',/,
00166      &  14X,'   SSSS  I  SSSS    Y   P     H   H EEEEE' ,/,
00167      &  14X,'                                          ',/,
00168      &  14X,'                VERSION 7.0               ',/,
00169      &  14X,'      COUPLED WITH TELEMAC-2D INTERNALLY  ',/,
00170      &  14X,/////)
00171 !
00172       CALL LECDON_SISYPHE(MOTCAR,FILE_DESC,PATH,NCAR,CODE1)
00173 !
00174       CALL BIEF_OPEN_FILES(CODE2,SIS_FILES,MAXLU_SIS,PATH,NCAR,
00175      &                     .TRUE.,IFLOT,2)
00176 !
00177 !     RESETS TELEMAC2D CONFIGURATION
00178 !
00179       CALL CONFIG_CODE(1)
00180 !
00181 !     MEMORY ORGANISATION
00182 !
00183       CALL POINT_SISYPHE
00184 !
00185       ENDIF
00186 !
00187 !-----------------------------------------------------------------------
00188 !
00189 !     INITIALISES TOMAWAC
00190 !
00191       IF(INCLUS(COUPLING,'TOMAWAC')) THEN
00192 !
00193         WRITE(LU,106)
00194         WRITE(LU,107)
00195 106     FORMAT(100('-'),////////,
00196      &  16X,
00197      &  'TTTTT  OOOOO  M   M  AAAAA  W   W  AAAAA  CCCCC '
00198      &  ,/,16X,
00199      &  '  T    O   O  MM MM  A   A  W   W  A   A  C     '
00200      &  ,/,16X,
00201      &  '  T    O   O  M W M  AAAAA  W W W  AAAAA  C     '
00202      &  ,/,16X,
00203      &  '  T    O   O  M   M  A   A  WW WW  A   A  C     '
00204      &  ,/,16X,
00205      &  '  T    OOOOO  M   M  A   A  W   W  A   A  CCCCC '
00206      &  ,//)
00207 107     FORMAT(15X,
00208      &  '               |    |    |                 '
00209      &  ,/,15X,
00210      &  '              )_)  )_)  )_) _              '
00211      &  ,/,15X,
00212      &  '             )___))___))___)\              '
00213      &  ,/,15X,
00214      &  '             )____)____)_____)\\           '
00215      &  ,/,15X,
00216      &  '           _____|____|____|____\\\__       '
00217      &  ,/,15X,
00218      &  '  ---------\               7.0  /---------  '
00219      &  ,/,15X,
00220      & '    ^^^^^^^^^^^^^^^^^^^^^^^^^^^             '
00221      &  ,/,15X,
00222      &  '         ^^^^      ^^^^     ^^^    ^^      '
00223      &  ,/,15X,
00224      &  '             ^^^^      ^^^                 '
00225      &,///)
00226 !
00227       CALL LECDON_TOMAWAC(FILE_DESC,PATH,NCAR,CODE3)
00228       CALL BIEF_OPEN_FILES(CODE3,WAC_FILES,MAXLU_WAC,PATH,NCAR,
00229      &                     .TRUE.,IFLOT,3)
00230 !
00231 !     RESETS TELEMAC2D CONFIGURATION
00232 !
00233       CALL CONFIG_CODE(1)
00234 !
00235 !     MEMORY ORGANISATION
00236 !
00237       CALL POINT_TOMAWAC
00238 !
00239       ENDIF
00240 !
00241 !=======================================================================
00242 !
00243       IF(ESTIME.EQ.' ') THEN
00244 !
00245 !-----------------------------------------------------------------------
00246 !
00247 !     STANDARD MODE: ONE TELEMAC2D CALL
00248 !
00249       CALL TELEMAC2D(PASS=-1,ATDEP=0.D0,NITER=0,CODE='       ')
00250 !
00251 !-----------------------------------------------------------------------
00252 !
00253       ELSE
00254 !
00255 !-----------------------------------------------------------------------
00256 !
00257 !       PARAMETER ESTIMATION MODE : CALLS HOMERE_ADJ_T2D
00258 !
00259         CALL HOMERE_ADJ_T2D
00260 !
00261       ENDIF
00262 !
00263 !=======================================================================
00264 !
00265 !     CLOSES FILES
00266 !
00267       CALL BIEF_CLOSE_FILES(CODE1,T2D_FILES,MAXLU_T2D,.TRUE.)
00268 !
00269       IF(INCLUS(COUPLING,'SISYPHE')) THEN
00270         CALL CONFIG_CODE(2)
00271         CALL BIEF_CLOSE_FILES(CODE2,SIS_FILES,MAXLU_SIS,.FALSE.)
00272       ENDIF
00273 !
00274       IF(INCLUS(COUPLING,'TOMAWAC')) THEN
00275         CALL CONFIG_CODE(3)
00276         CALL BIEF_CLOSE_FILES(CODE3,WAC_FILES,MAXLU_WAC,.FALSE.)
00277       ENDIF
00278 !
00279 !-----------------------------------------------------------------------
00280 !
00281       IF(LNG.EQ.1) WRITE(LU,10)
00282       IF(LNG.EQ.2) WRITE(LU,11)
00283 10    FORMAT(1X,///,1X,'FIN NORMALE DU PROGRAMME',///)
00284 11    FORMAT(1X,///,1X,'CORRECT END OF RUN',///)
00285 !
00286 !-----------------------------------------------------------------------
00287 !
00288 !     TIME OF END OF COMPUTATION
00289 !
00290       CALL DATE_AND_TIME(VALUES=TFIN)
00291       CALL ELAPSE(TDEB,TFIN)
00292 !
00293 !-----------------------------------------------------------------------
00294 !
00295       STOP 0
00296       END

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