kepsin.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\kepsin.f
00002 !
00054                      SUBROUTINE KEPSIN
00055 !                    *****************
00056 !
00057      &(LIMKEP,LIUBOR,NPTFR,KENT,KENTU,KSORT,KADH,KLOG,KINC,KNEU,KDIR)
00058 !
00059 !***********************************************************************
00060 ! TELEMAC2D   V6P1                                   21/08/2010
00061 !***********************************************************************
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !| KADH           |-->| CONVENTION FOR NO SLIP BOUNDARY CONDITION
00070 !| KDIR           |-->| CONVENTION FOR DIRICHLET POINT
00071 !| KENT           |-->| CONVENTION FOR LIQUID INPUT WITH PRESCRIBED VALUE
00072 !| KENTU          |-->| CONVENTION FOR LIQUID INPUT WITH PRESCRIBED VELOCITY
00073 !| KINC           |-->| CONVENTION FOR INCIDENT WAVE BOUNDARY CONDITION
00074 !| KLOG           |-->| CONVENTION FOR SOLID BOUNDARY
00075 !| KNEU           |-->| CONVENTION FOR NEUMANN CONDITION
00076 !| KSORT          |-->| CONVENTION FOR FREE OUTPUT
00077 !| LIMKEP         |-->| BOUNDARY CONDITIONS FOR K AND EPSILON
00078 !| LIUBOR         |-->| TYPE OF BOUNDARY CONDITIONS ON VELOCITY
00079 !| NPTFR          |-->| NUMBER OF BOUNDARY POINTS
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !
00082       IMPLICIT NONE
00083       INTEGER LNG,LU
00084       COMMON/INFO/LNG,LU
00085 !
00086 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00087 !
00088       INTEGER, INTENT(IN)    :: NPTFR,KENT,KSORT,KADH,KLOG
00089       INTEGER, INTENT(IN)    :: KINC,KNEU,KDIR,KENTU
00090       INTEGER, INTENT(INOUT) :: LIMKEP(NPTFR,2)
00091       INTEGER, INTENT(IN)    :: LIUBOR(NPTFR)
00092 !
00093 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00094 !
00095       INTEGER K
00096 !
00097 !-----------------------------------------------------------------------
00098 !
00099 !  BUILDS THE ARRAY LIMKEP
00100 !
00101       DO K=1,NPTFR
00102 !
00103         IF(LIUBOR(K).EQ.KENT) THEN
00104 !
00105           LIMKEP(K,1) = KDIR
00106           LIMKEP(K,2) = KDIR
00107 !
00108         ELSEIF(LIUBOR(K).EQ.KENTU) THEN
00109 !
00110           LIMKEP(K,1) = KDIR
00111           LIMKEP(K,2) = KDIR
00112 !
00113         ELSEIF(LIUBOR(K).EQ.KADH) THEN
00114 !
00115           LIMKEP(K,1) = KDIR
00116           LIMKEP(K,2) = KDIR
00117 !
00118         ELSEIF(LIUBOR(K).EQ.KSORT) THEN
00119 !
00120           LIMKEP(K,1) = KNEU
00121           LIMKEP(K,2) = KNEU
00122 !
00123         ELSEIF(LIUBOR(K).EQ.KINC) THEN
00124 !
00125           LIMKEP(K,1) = KNEU
00126           LIMKEP(K,2) = KNEU
00127 !
00128         ELSEIF(LIUBOR(K).EQ.KLOG ) THEN
00129 !
00130           LIMKEP(K,1) = KDIR
00131           LIMKEP(K,2) = KDIR
00132 !
00133         ELSE
00134 !
00135           IF(LNG.EQ.1) WRITE(LU,100) K,LIUBOR(K)
00136           IF(LNG.EQ.2) WRITE(LU,101) K,LIUBOR(K)
00137 100       FORMAT(1X,'KEPSIN: K=',1I6,' LIUBOR=',1I6,' CAS NON PREVU')
00138 101       FORMAT(1X,'KEPSIN: K=',1I6,' LIUBOR=',1I6,' UNKNOWN CASE')
00139           CALL PLANTE(1)
00140           STOP
00141 !
00142         ENDIF
00143 !
00144       ENDDO ! K
00145 !
00146 !-----------------------------------------------------------------------
00147 !
00148       RETURN
00149       END

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