friction_user.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\friction_user.f
00002 !
00075                         SUBROUTINE FRICTION_USER
00076 !                       ************************
00077 !
00078 !
00079 !***********************************************************************
00080 ! TELEMAC2D   V7P0                                   20/03/2014
00081 !***********************************************************************
00082 !
00083 !
00084 !
00085 !
00086 !
00087 !
00088 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00089 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00090 !
00091       USE BIEF
00092       USE FRICTION_DEF
00093       USE DECLARATIONS_TELEMAC
00094       USE DECLARATIONS_TELEMAC2D
00095       IMPLICIT NONE
00096       INTEGER LNG,LU
00097       COMMON/INFO/LNG,LU
00098 !
00099 !------------------------------------------------------------------------
00100 !
00101       INTEGER            :: I,K,IVAL2,NFILE
00102       CHARACTER(LEN=144) :: NOMFILE
00103 !
00104 !=======================================================================!
00105 !=======================================================================!
00106 !                               PROGRAMME                               !
00107 !=======================================================================!
00108 !=======================================================================!
00109 !
00110       NFILE   = T2D_FILES(T2DZFI)%LU
00111       NOMFILE = T2D_FILES(T2DZFI)%NAME
00112 !
00113 !     Reading File (which is now written in local numbering)
00114 !
00115       DO K=1,NPOIN
00116         READ(NFILE,*,END=997,ERR=998) I, IVAL2
00117         IF(K.EQ.I) THEN
00118           KFROPT%I(I) = IVAL2
00119         ELSE
00120           IF(LNG.EQ.1) THEN
00121             WRITE(LU,*) 'ERREUR DANS LE FICHIER DES ZONES : ',NOMFILE
00122             WRITE(LU,*) 'POINT ',K,' ATTENDU, POINT ',I,' TROUVE'
00123           ENDIF
00124           IF(LNG.EQ.2) THEN
00125             WRITE(LU,*) 'ERROR IN THE ZONES FILE: ',NOMFILE
00126             WRITE(LU,*) 'POINT ',K,' EXPECTED, POINT ',I,' FOUND'
00127           ENDIF
00128           CALL PLANTE(1)
00129           STOP
00130         ENDIF
00131       ENDDO
00132       GOTO 997
00133 !
00134 !---------------------------------------------------------------------
00135 !             ERROR WHEN READING
00136 !---------------------------------------------------------------------
00137 !
00138 999   CONTINUE
00139       IF(LNG.EQ.1) THEN
00140         WRITE(LU,*) 'FICHIER DE DONNEES FORMATE : ',NOMFILE
00141         WRITE(LU,*) 'FIN DE FICHIER ANORMALE'
00142       ENDIF
00143       IF(LNG.EQ.2) THEN
00144         WRITE(LU,*) 'FORMATTED DATA FILE : ',NOMFILE
00145         WRITE(LU,*) 'ABNORMAL END OF FILE'
00146       ENDIF
00147       CALL PLANTE(1)
00148       STOP
00149 
00150 998   CONTINUE
00151       IF(LNG.EQ.1) THEN
00152         WRITE(LU,*) 'FICHIER DE DONNEES FORMATE : ',NOMFILE
00153         WRITE(LU,*) 'ERREUR DE LECTURE'
00154       ENDIF
00155       IF(LNG.EQ.2) THEN
00156         WRITE(LU,*) 'FORMATTED DATA FILE : ',NOMFILE
00157         WRITE(LU,*) 'READ ERROR'
00158       ENDIF
00159       CALL PLANTE(1)
00160       STOP
00161 !
00162 !-----------------------------------------------------------------------
00163 !
00164 997   CONTINUE
00165 !
00166 !=======================================================================
00167 !=======================================================================
00168 !
00169       RETURN
00170       END

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