entete.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\entete.f
00002 !
00047                      SUBROUTINE ENTETE
00048 !                    *****************
00049 !
00050      &(IETAPE,AT,LT)
00051 !
00052 !***********************************************************************
00053 ! TELEMAC2D   V6P1                                   21/08/2010
00054 !***********************************************************************
00055 !
00056 !
00057 !
00058 !
00059 !
00060 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00061 !| AT             |-->| TIME IN SECONDS
00062 !| IETAPE         |-->| FRACTIONAL STEP IN THE ALGORITHM
00063 !| LT             |-->| TIME STEP
00064 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00065 !
00066       IMPLICIT NONE
00067       INTEGER LNG,LU
00068       COMMON/INFO/LNG,LU
00069 !
00070 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00071 !
00072       DOUBLE PRECISION, INTENT(IN) :: AT
00073       INTEGER, INTENT(IN)          :: LT,IETAPE
00074 !
00075 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00076 !
00077       DOUBLE PRECISION S
00078 !
00079       INTEGER J,H,M
00080 !
00081       CHARACTER*32 FR(13),GB(13)
00082 !
00083       INTRINSIC INT
00084 !
00085 !-----------------------------------------------------------------------
00086 !
00087       DATA FR /     '                                ' ,
00088      &              '                                ' ,
00089      &              '     ETAPE DE CONVECTION        ' ,
00090      &              '       MODELE K-EPSILON         ' ,
00091      &              'ETAPE DE DIFFUSION DES TRACEURS ' ,
00092      &              ' ETAPE DE DIFFUSION-PROPAGATION ' ,
00093      &              '      BILAN DE VOLUME D''EAU     ' ,
00094      &              ' BILAN FINAL DE VOLUME D''EAU ' ,
00095      &              '  TEMPS :                       ' ,
00096      &              ' SECONDES                       ' ,
00097      &              'ITERATION                       ' ,
00098      &              '     DERIVE DE FLOTTEUR(S)      ' ,
00099      &              '   DERIVE(S) LAGRANGIENNE(S)    ' /
00100       DATA GB /     '                                ' ,
00101      &              '                                ' ,
00102      &              '        ADVECTION STEP          ' ,
00103      &              '        K-EPSILON MODEL         ' ,
00104      &              '   DIFFUSION OF TRACERS STEP    ' ,
00105      &              '  DIFFUSION-PROPAGATION STEP    ' ,
00106      &              '     BALANCE OF WATER VOLUME    ' ,
00107      &              ' FINAL BALANCE OF WATER VOLUME  ' ,
00108      &              '    TIME:                       ' ,
00109      &              ' SECONDS                        ' ,
00110      &              'ITERATION                       ' ,
00111      &              '       DRIFT OF DROGUE(S)       ' ,
00112      &              '      LAGRANGIAN DRIFT(S)       ' /
00113 !
00114 !-----------------------------------------------------------------------
00115 !
00116 !  DECOMPOSITION OF TIME IN DAYS, HOURS, MINUTES AND SECONDS
00117 !
00118       S = AT
00119       J = INT(AT/86400.D0)
00120       S = S - 86400.D0 * J
00121       H = INT(S/3600.D0)
00122       S = S - 3600.D0 * H
00123       M = INT(S/60.D0)
00124       S = S - 60.D0 * M
00125 !
00126 !-----------------------------------------------------------------------
00127 !
00128 !   PRINTS TIME AND ITERATIONS
00129 !
00130       IF (IETAPE.EQ.1.OR.IETAPE.EQ.2) THEN
00131 !
00132         IF(J.NE.0) THEN
00133           IF(LNG.EQ.1) WRITE(LU,10) FR(11),LT,FR(9),J,H,M,S,AT
00134           IF(LNG.EQ.2) WRITE(LU,11) GB(11),LT,GB(9),J,H,M,S,AT
00135         ELSEIF(H.NE.0) THEN
00136           IF(LNG.EQ.1) WRITE(LU,20) FR(11),LT,FR(9),H,M,S,AT
00137           IF(LNG.EQ.2) WRITE(LU,20) GB(11),LT,GB(9),H,M,S,AT
00138         ELSEIF(M.NE.0) THEN
00139           IF(LNG.EQ.1) WRITE(LU,30) FR(11),LT,FR(9),M,S,AT
00140           IF(LNG.EQ.2) WRITE(LU,30) GB(11),LT,GB(9),M,S,AT
00141         ELSE
00142           IF(LNG.EQ.1) WRITE(LU,40) FR(11),LT,FR(9),S
00143           IF(LNG.EQ.2) WRITE(LU,40) GB(11),LT,GB(9),S
00144         ENDIF
00145 !
00146 !   PRINTS TITLES FOR EACH STAGES
00147 !
00148       ELSE
00149 !
00150         IF(LNG.EQ.1) WRITE(LU,200) FR(IETAPE)
00151         IF(LNG.EQ.2) WRITE(LU,200) GB(IETAPE)
00152 !
00153       ENDIF
00154 !
00155 !-----------------------------------------------------------------------
00156 !
00157 10     FORMAT(/,80('='),/,1X,A10,I8,A10,
00158      &     1I4,' J ',1I2,' H ',1I2,' MIN ',F8.4,' S',3X,'(',F14.4,' S)')
00159 11     FORMAT(/,80('='),/,1X,A10,I8,A10,
00160      &     1I4,' D ',1I2,' H ',1I2,' MN ',F8.4,' S',3X,'(',F14.4,' S)')
00161 20     FORMAT(/,80('='),/,1X,A10,I8,A10,1I2,' H ',1I2,' MIN ',F8.4,' S',
00162      &                                               3X,'(',F14.4,' S)')
00163 30     FORMAT(/,80('='),/,1X,A10,I8,A10,1I2,' MN ',F8.4,' S',
00164      &                                               3X,'(',F14.4,' S)')
00165 40     FORMAT(/,80('='),/,1X,A10,I8,A10,F8.4,' S')
00166 200    FORMAT(80('-'),/,18X,A32)
00167 !
00168 !-----------------------------------------------------------------------
00169 !
00170       RETURN
00171       END

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