diffcl.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\diffcl.f
00002 !
00056                      SUBROUTINE DIFFCL
00057 !                    *****************
00058 !
00059      &(LITBOR,TTILD,TBOR,NBOR,ICONV,NPOIN,NPTFR)
00060 !
00061 !***********************************************************************
00062 ! BIEF   V6P1                                   21/08/2010
00063 !***********************************************************************
00064 !
00065 !
00066 !
00067 !
00068 !
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !| ICONV          |-->| THE CONVENTION FOR THE ADVECTION SCHEME
00071 !|                |   | E.G. 1 FOR CHARACTERISTICS
00072 !| LITBOR         |-->| TYPES OF BOUNDARY CONDITIONS FOR THE TRACER
00073 !| NBOR           |-->| GLOBAL NUMBERS OF BOUNDARY POINTS
00074 !| NPOIN          |-->| NUMBER OF POINTS
00075 !| NPTFR          |-->| NUMBER OF BOUNDARY POINTS
00076 !| TBOR           |<->| PRESCRIBED BOUNDARY CONDITIONS ON T.
00077 !| TTILD          |-->| TRACER AFTER ADVECTION.
00078 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00079 !
00080       USE DECLARATIONS_TELEMAC
00081 !
00082       IMPLICIT NONE
00083       INTEGER LNG,LU
00084       COMMON/INFO/LNG,LU
00085 !
00086 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00087 !
00088       INTEGER, INTENT(IN)             :: NPOIN,NPTFR,ICONV
00089       INTEGER, INTENT(IN)             :: NBOR(NPTFR)
00090       INTEGER, INTENT(IN)             :: LITBOR(NPTFR)
00091       DOUBLE PRECISION, INTENT(IN)    :: TTILD(NPOIN)
00092       DOUBLE PRECISION, INTENT(INOUT) :: TBOR(NPTFR)
00093 !
00094 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00095 !
00096       INTEGER K
00097 !
00098 !----------------------------------------------------------------------
00099 !
00100 !  INITIALISES TBOR (SEE CONSTRUCTION OF LIMTRA IN DIFFIN)
00101 !
00102       IF(ICONV.EQ.ADV_CAR) THEN
00103 !
00104       DO K=1,NPTFR
00105 !
00106 !  IMPOSES THE RESULT OF ADVECTION AT FREE EXITS
00107 !                      WITH THE METHOD OF CHARACTERISTICS
00108 !
00109         IF(LITBOR(K).EQ.KSORT) TBOR(K) = TTILD(NBOR(K))
00110 !
00111       ENDDO ! K
00112 !
00113       ENDIF
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