chpcon.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\chpcon.f
00002 !
00053                      SUBROUTINE CHPCON
00054 !                    *****************
00055 !
00056      &(UCONV,VCONV,U,V,UN,VN,TETAU)
00057 !
00058 !***********************************************************************
00059 ! TELEMAC2D   V6P1                                   21/08/2010
00060 !***********************************************************************
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00067 !| TETAU          |-->| IMPLICITATION COEFFICIENT ON VELOCITY
00068 !| U              |-->| X-COMPONENT OF VELOCITY AT TIME N+1
00069 !| V              |-->| Y-COMPONENT OF VELOCITY AT TIME N+1
00070 !| UCONV          |-->| X-COMPONENT OF ADVECTION FIELD
00071 !| VCONV          |-->| Y-COMPONENT OF ADVECTION FIELD
00072 !| UN             |-->| X-COMPONENT OF VELOCITY AT TIME N
00073 !| VN             |-->| Y-COMPONENT OF VELOCITY AT TIME N
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !
00076       USE BIEF
00077 !
00078       IMPLICIT NONE
00079       INTEGER LNG,LU
00080       COMMON/INFO/LNG,LU
00081 !
00082 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00083 !
00084       DOUBLE PRECISION, INTENT(IN)  :: TETAU
00085       TYPE(BIEF_OBJ), INTENT(IN)    :: U,UN,V,VN
00086       TYPE(BIEF_OBJ), INTENT(INOUT) :: UCONV,VCONV
00087 !
00088 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00089 !
00090 !     CREATES CONVECTION ARRAYS UCONV AND VCONV
00091 !
00092       CALL OS( 'X=CY    ' , UCONV , UN , U , 1.D0-TETAU )
00093       CALL OS( 'X=X+CY  ' , UCONV , U  , U ,      TETAU )
00094       CALL OS( 'X=CY    ' , VCONV , VN , U , 1.D0-TETAU )
00095       CALL OS( 'X=X+CY  ' , VCONV , V  , U ,      TETAU )
00096 !
00097 !-----------------------------------------------------------------------
00098 !
00099       RETURN
00100       END

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