mittit.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac3d\mittit.f
00002 !
00054                      SUBROUTINE MITTIT
00055 !                    *****************
00056 !
00057      & (IETAPE,AT,LT)
00058 !
00059 !***********************************************************************
00060 ! TELEMAC3D   V6P1                                   21/08/2010
00061 !***********************************************************************
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !| AT             |-->| TIME OF TIME STEP
00070 !| IETAPE         |-->| ADVANCING GAUGE IN THE PROGRAMME
00071 !| LT             |-->| CURRENT TIME STEP NUMBER
00072 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00073 !
00074       IMPLICIT NONE
00075       INTEGER LNG,LU
00076       COMMON/INFO/LNG,LU
00077 !
00078 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00079 !
00080       INTEGER, INTENT(IN) :: IETAPE,LT
00081       DOUBLE PRECISION, INTENT(IN) :: AT
00082 !
00083 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00084 !
00085       CHARACTER(LEN=50) :: FR(17), GB(17)
00086       CHARACTER(LEN=50) :: FRNH(4), GBNH(4)
00087 !
00088       DOUBLE PRECISION S
00089       INTEGER J,H,M
00090 !
00091 !-----------------------------------------------------------------------
00092 !
00093       DATA FR / 'TEMPS :                                           ',
00094      &          ' SECONDES                                         ',
00095      &          'IEME  ITERATION                                   ',
00096      &          'ETAPE DE CONVECTION-DIFFUSION DES VITESSES        ',
00097      &          'ETAPE DE CONVECTION-DIFFUSION DES TRACEURS        ',
00098      &          'PROPAGATION ET DIFFUSION AVEC EQUATION D''ONDE     ',
00099      &          'ETAPE DE CONVECTION-DIFFUSION DU K-EPSILON        ',
00100      &          'ETAPE DE SAINT-VENANT                             ',
00101      &          'ETAPE DE CALCUL DE LA VITESSE VERTICALE           ',
00102      &          '         BILAN DE MASSE                           ',
00103      &          '         BILAN DE MASSE FINAL                     ',
00104      &          '         DERIVE DE FLOTTEUR(S)                    ',
00105      &          'CONVECTION PAR METHODE DES CARACTERISTIQUES       ',
00106      &          'CONVECTION PAR SCHEMA SUPG                        ',
00107      &          'CONVECTION PAR SCHEMA N, PSI OU VOLUMES FINIS     ',
00108      &          'DIFFUSION                                         ',
00109      &          'ETAPE DE CONVECTION                               '/
00110 !
00111       DATA FRNH/'ETAPE DE CONVECTION - DIFFUSION                   ',
00112      &          'ETAPE DE PRESSION DYNAMIQUE                       ',
00113      &          'ETAPE DE PROJECTION DES VITESSES                  ',
00114      &          'ETAPE DE PRESSION DYNAMIQUE, PREDICTION           '/
00115 !
00116 !-----------------------------------------------------------------------
00117 !
00118       DATA GB / ' TIME :                                           ',
00119      &          ' SECONDS                                          ',
00120      &          'TH  ITERATION                                     ',
00121      &          'ADVECTION-DIFFUSION OF VELOCITIES STEP            ',
00122      &          'ADVECTION-DIFFUSION OF TRACERS                    ',
00123      &          'PROPAGATION AND DIFFUSION WITH WAVE EQUATION      ',
00124      &          'ADVECTION-DIFFUSION OF K-EPSILON OR OMEGA STEP    ',
00125      &          'SHALLOW WATER STEP                                ',
00126      &          'CALCULATION OF VERTICAL VELOCITY STEP             ',
00127      &          '         MASS BALANCE                             ',
00128      &          '         FINAL MASS BALANCE                       ',
00129      &          '         DRIFT OF DROGUE(S)                       ',
00130      &          'ADVECTION BY CHARACTERISTIC CURVE METHOD          ',
00131      &          'ADVECTION BY SUPG METHOD                          ',
00132      &          'ADVECTION BY N, PSI OR FINITE VOLUME SCHEME       ',
00133      &          'DIFFUSION                                         ',
00134      &          'ADVECTION STEP                                    '/
00135 !
00136       DATA GBNH/'ADVECTION AND DIFFUSION-FORCING STEP              ',
00137      &          'DYNAMIC PRESSURE STAGE                            ',
00138      &          'VELOCITY PROJECTION STEP                          ',
00139      &          'DYNAMIC PRESSURE STAGE, PREDICTION                '/
00140 !
00141 !***********************************************************************
00142 !
00143 !  DECOMPOSES TIME IN DAYS, HOURS, MINUTES AND SECONDS
00144 !
00145       IF(IETAPE.EQ.1) THEN
00146         S = AT
00147         J = INT(AT/86400.D0)
00148         S = S - 86400.D0 * J
00149         H = INT(S/3600.D0)
00150         S = S - 3600.D0 * H
00151         M = INT(S/60.D0)
00152         S = S - 60.D0 * M
00153       ENDIF
00154 !
00155 !  PRINTS OUT
00156 !
00157       IF(LNG.EQ.1) THEN
00158         IF(IETAPE.EQ.1) THEN
00159           WRITE(LU,10) 'ITERATION ',LT,' TEMPS ',J,H,M,S,AT
00160         ENDIF
00161         IF(IETAPE.GE.4.AND.IETAPE.LE.12.OR.IETAPE.EQ.17) THEN
00162           WRITE(LU,200) FR(IETAPE)
00163         ENDIF
00164         IF(IETAPE.GE.13.AND.IETAPE.LE.16) WRITE(LU,300) FR(IETAPE)
00165         IF(IETAPE.GE.18.AND.IETAPE.LE.21) WRITE(LU,200) FRNH(IETAPE-17)
00166       ELSEIF (LNG.EQ.2) THEN
00167         IF(IETAPE.EQ. 1) THEN
00168           WRITE(LU,11) 'ITERATION ',LT,' TIME ',J,H,M,S,AT
00169         ENDIF
00170         IF(IETAPE.GE.4.AND.IETAPE.LE.12.OR.IETAPE.EQ.17) THEN
00171           WRITE(LU,200) GB(IETAPE)
00172         ENDIF
00173         IF(IETAPE.GE.13.AND.IETAPE.LE.16) WRITE(LU,300) GB(IETAPE)
00174         IF(IETAPE.GE.18.AND.IETAPE.LE.21) WRITE(LU,200) GBNH(IETAPE-17)
00175       ENDIF
00176 !
00177 !-----------------------------------------------------------------------
00178 !
00179 10    FORMAT(/,80('='),/,A10,I8,A7,
00180      &     1I4,' J ',1I2,' H ',1I2,' MIN ',F8.4,' S',3X,'(',F16.4,' S)',
00181      &       /,80('='))
00182 11    FORMAT(/,80('='),/,A10,I8,A6,
00183      &     1I4,' D ',1I2,' H ',1I2,' MN ',F8.4,' S',3X,'(',F16.4,' S)',
00184      &       /,80('='))
00185 !100   FORMAT(/,80('='),/,7X,A8,F12.4,A9,24X,I5,A15)
00186 200   FORMAT(80('-'),/,7X,A50)
00187 300   FORMAT(7X,A50)
00188 !
00189 !-----------------------------------------------------------------------
00190 !
00191       RETURN
00192       END

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