output_telemac2d.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\output_telemac2d.f
00002 !
00067                      SUBROUTINE OUTPUT_TELEMAC2D
00068 !                    ***************************
00069 !
00070      &(TIME)
00071 !
00072 !***********************************************************************
00073 ! TELEMAC2D   V6P1                                   21/08/2010
00074 !***********************************************************************
00075 !
00076 !
00077 !
00078 !
00079 !
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !| TIME           |-->| TIME IN SECONDS
00082 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00083 !
00084       USE BIEF
00085       USE DECLARATIONS_TELEMAC
00086       USE DECLARATIONS_TELEMAC2D
00087 !
00088       IMPLICIT NONE
00089       INTEGER LNG,LU
00090       COMMON/INFO/LNG,LU
00091 !
00092 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00093 !
00094       DOUBLE PRECISION, INTENT(IN) :: TIME
00095 !
00096 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00097 !
00098 !     REQUIRED BY DESIMP, NO IDEA WHY...
00099       DOUBLE PRECISION :: HIST(1)
00100       DATA HIST /9999.D0/
00101 !
00102 !----------------------------------------------------------------------
00103 !
00104 !     PREPARES THE RESULTS
00105 !
00106       CALL PRERES_TELEMAC2D
00107 !
00108 !     OUTPUTS A STANDARD TIME STEP
00109 !
00110       CALL BIEF_DESIMP(T2D_FILES(T2DRES)%FMT,VARSOR,
00111      &                 HIST,0,NPOIN,T2D_FILES(T2DRES)%LU,'STD',
00112      &                 TIME,1,1,1,
00113      &                 SORLEO,SORIMP,MAXVAR,TEXTE,0,0)
00114 !
00115 !-----------------------------------------------------------------------
00116 !
00117       RETURN
00118       END

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