friction_def.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\friction_def.f
00002 !
00026                      MODULE FRICTION_DEF
00027 !                    *******************
00028 !
00029 !
00030 !***********************************************************************
00031 ! TELEMAC2D   V6P1                                   21/08/2010
00032 !***********************************************************************
00033 !
00034 !
00035 !
00036 !
00037 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00038 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00039 !
00040       TYPE POINTER_TO_FRICTION
00041 !         SEQUENCE
00042         TYPE(FRICTION_OBJ), POINTER :: P
00043       END TYPE POINTER_TO_FRICTION
00044 !
00045       TYPE FRICTION_OBJ
00046 !         SEQUENCE
00047         INTEGER          :: GNUMB(2) ! GLOBAL NUMBER OF THE ZONE
00048         INTEGER          :: RTYPE(2) ! TYPE OF LAW USED
00049         ! USE REAL BECAUSE CHESTR IS SAVED AS SIMPLE PRECISION IN SELAFIN DATA
00050         ! --------------------------------------------------------------------
00051         DOUBLE PRECISION :: RCOEF(2) ! FRICTION PARAMETER
00052         DOUBLE PRECISION :: NDEF(2)  ! DEFAULT MANNING (FOR C-W LAW)
00053         DOUBLE PRECISION :: DP       ! DIAMETER OF ROUGHNESS ELEMENT
00054         DOUBLE PRECISION :: SP       ! SPACING OF ROUGHNESS ELEMENT
00055         TYPE(POINTER_TO_FRICTION), POINTER, DIMENSION(:) :: ADR
00056       END TYPE FRICTION_OBJ
00057 !
00058       END MODULE FRICTION_DEF

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