utimp_telemac2d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\utimp_telemac2d.f
00002 !
00059                      SUBROUTINE UTIMP_TELEMAC2D
00060 !                    **************************
00061 !
00062      &(LTL,ATL,GRADEBL,GRAPRDL,LISDEBL,LISPRDL)
00063 !
00064 !***********************************************************************
00065 ! TELEMAC2D   V6P1                                   21/08/2010
00066 !***********************************************************************
00067 !
00068 !
00069 !
00070 !
00071 !
00072 !
00073 !
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !| ATL            |-->| TIME OF TIME STEP, IN SECONDS
00076 !| GRADEBL        |-->| FIRST TIME STEP FOR GRAPHIC OUTPUTS
00077 !| GRAPRDL        |-->| PERIOD OF GRAPHIC OUTPUTS
00078 !| LISDEBL        |-->| FIRST TIME STEP FOR LISTING OUTPUTS
00079 !| LISPRDL        |-->| PERIOD OF LISTING OUTPUTS
00080 !| LTL            |-->| CURRENT TIME STEP
00081 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00082 !
00083       USE BIEF
00084       USE DECLARATIONS_TELEMAC
00085       USE DECLARATIONS_TELEMAC2D
00086 !
00087       IMPLICIT NONE
00088       INTEGER LNG,LU
00089       COMMON/INFO/LNG,LU
00090 !
00091 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00092 !
00093       DOUBLE PRECISION, INTENT(IN) :: ATL
00094       INTEGER, INTENT(IN) :: LTL,GRADEBL,GRAPRDL,LISDEBL,LISPRDL
00095 !
00096 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00097 !
00098 !
00099 !***********************************************************************
00100 ! USER OUTPUT
00101 !
00102 !
00103 !
00104 !-----------------------------------------------------------------------
00105 !
00106       RETURN
00107       END SUBROUTINE UTIMP_TELEMAC2D

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