flutrac.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\flutrac.f
00002 !
00042                      SUBROUTINE FLUTRAC
00043 !                    ******************
00044 !
00045      &(NSEG,NPTFR,DT,FLUXT,FLUHBOR,FLUXTEMP,FLUHBTEMP,DTT)
00046 !
00047 !***********************************************************************
00048 ! TELEMAC2D   V6P1                                   21/08/2010
00049 !***********************************************************************
00050 !
00051 !
00052 !
00053 !
00054 !
00055 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00056 !| DT             |-->| HYDRAULIC TIME STEP
00057 !| DTT            |<->| TRACER TIME STEP
00058 !| FLUHBOR        |<->| TRACER FLUX AT THE BOUNDARY (INCREMENTED)
00059 !| FLUHBTEMP      |-->| HYDRO BOUNDARY FLUX OF ONE TIME STEP
00060 !| FLUXT          |<->| INCREMENTED TRACER FLUX
00061 !| FLUXTEMP       |-->| FLUX OF ONE HYDRO TIME STEP
00062 !| NPTFR          |-->| NUMBER OF BOUNDARY NODES
00063 !| NSEG           |-->| NUMBER OF SEGMENT OF THE MESH
00064 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00065 !
00066       IMPLICIT NONE
00067 !
00068 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00069 !
00070       INTEGER, INTENT(IN)             :: NSEG, NPTFR
00071       DOUBLE PRECISION, INTENT(IN)    :: DT,FLUXTEMP(*),FLUHBTEMP(*)
00072       DOUBLE PRECISION, INTENT(INOUT) :: FLUHBOR(*),FLUXT(*),DTT
00073 !
00074 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00075 !
00076       INTEGER IS,NSG
00077 !
00078 !-----------------------------------------------------------------------
00079 !
00080       DTT=DTT+DT
00081 !
00082       DO NSG=1,NSEG
00083         FLUXT(NSG) = FLUXT(NSG) + DT * FLUXTEMP(NSG)
00084       ENDDO
00085 !
00086       DO IS=1,NPTFR
00087         FLUHBOR(IS) = FLUHBOR(IS) + DT * FLUHBTEMP(IS)
00088       ENDDO
00089 !
00090 !-----------------------------------------------------------------------
00091 !
00092       RETURN
00093       END

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