entete_sisyphe.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\entete_sisyphe.f
00002 !
00047                      SUBROUTINE ENTETE_SISYPHE
00048 !                    *************************
00049 !
00050      &(IETAPE,AT,LT)
00051 !
00052 !***********************************************************************
00053 ! SISYPHE   V6P1                                   21/07/2011
00054 !***********************************************************************
00055 !
00056 !
00057 !
00058 !
00059 !
00060 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00061 !| IETAPE         |-->| SHOW COMPUTATION STEPS
00062 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00063 !
00064       IMPLICIT NONE
00065       INTEGER LNG,LU
00066       COMMON/INFO/LNG,LU
00067 !
00068 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00069 !
00070       DOUBLE PRECISION, INTENT(IN) :: AT
00071 !
00072       INTEGER, INTENT(IN):: LT,IETAPE
00073 !
00074 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00075 !
00076       INTEGER J,H,M
00077       DOUBLE PRECISION S
00078       INTRINSIC INT
00079       CHARACTER*32 FR(15),GB(15)
00080 !
00081 !-----------------------------------------------------------------------
00082 !
00083       DATA FR /     '                                ' ,
00084      &              '                                ' ,
00085      &              '     ETAPE DE CONVECTION        ' ,
00086      &              '       MODELE K-EPSILON         ' ,
00087      &              '  ETAPE DE DIFFUSION DU TRACEUR ' ,
00088      &              ' ETAPE DE DIFFUSION-PROPAGATION ' ,
00089      &              '      BILAN DE VOLUME D''EAU     ' ,
00090      &              ' BILAN FINAL DE VOLUME D''EAU ' ,
00091      &              '  TEMPS :                       ' ,
00092      &              ' SECONDES                       ' ,
00093      &              'ITERATION                       ' ,
00094      &              '     DERIVE DE FLOTTEUR(S)      ' ,
00095      &              '   DERIVE(S) LAGRANGIENNE(S)    ' ,
00096      &              '     GLISSEMENT DU SEDIMENT     ' ,
00097      &              '      TASSEMENT DU SEDIMENT     ' /
00098       DATA GB /     '                                ' ,
00099      &              '                                ' ,
00100      &              '        ADVECTION STEP          ' ,
00101      &              '        K-EPSILON MODEL         ' ,
00102      &              '   DIFFUSION OF TRACER STEP     ' ,
00103      &              '  DIFFUSION-PROPAGATION STEP    ' ,
00104      &              '     BALANCE OF WATER VOLUME    ' ,
00105      &              ' FINAL BALANCE OF WATER VOLUME  ' ,
00106      &              '    TIME:                       ' ,
00107      &              ' SECONDS                        ' ,
00108      &              'ITERATION                       ' ,
00109      &              '       DRIFT OF DROGUE(S)       ' ,
00110      &              '      LAGRANGIAN DRIFT(S)       ' ,
00111      &              '         SEDIMENT SLIDE         ' ,
00112      &              '          CONSOLIDATION         ' /
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 !   WRITES OUT: 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 !       AN EMPTY LINE
00146         WRITE(LU,*)
00147 !
00148 !   WRITES OUT: TITLES OF THE STAGES
00149 !
00150       ELSE
00151 !
00152         IF(LNG.EQ.1) WRITE(LU,200) FR(IETAPE)
00153         IF(LNG.EQ.2) WRITE(LU,200) GB(IETAPE)
00154 !
00155       ENDIF
00156 !
00157 !-----------------------------------------------------------------------
00158 !
00159 10     FORMAT(/,80('='),/,1X,A10,I8,A10,
00160      &     1I4,' J ',1I2,' H ',1I2,' MIN ',F8.4,' S',5X,'(',F15.4,' S)')
00161 11     FORMAT(/,80('='),/,1X,A10,I8,A10,
00162      &     1I4,' D ',1I2,' H ',1I2,' MN ',F8.4,' S',5X,'(',F15.4,' S)')
00163 20     FORMAT(/,80('='),/,1X,A10,I8,A10,1I2,' H ',1I2,' MIN ',F8.4,' S',
00164      &                                               5X,'(',F12.4,' S)')
00165 30     FORMAT(/,80('='),/,1X,A10,I8,A10,1I2,' MN ',F8.4,' S',
00166      &                                               5X,'(',F12.4,' S)')
00167 40     FORMAT(/,80('='),/,1X,A10,I8,A10,F8.4,' S')
00168 200    FORMAT(80('-'),/,18X,A32)
00169 !
00170 !-----------------------------------------------------------------------
00171 !
00172       RETURN
00173       END

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