impsed.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac3d\impsed.f
00002 !
00048                      SUBROUTINE IMPSED
00049 !                    *****************
00050 !
00051      &(IVIDE , EPAI  , CONC  , TEMP  , HDEP  , PDEPOT,
00052      & FLUER , ZR    , ZF    , TA    , WC    , X     ,
00053      & Y     , NPOIN2, NPOIN3, NPFMAX, NCOUCH, NPF   ,
00054      & LT    , RHOS  , CFMAX , CFDEP , EPAI0 ,
00055      & TASSE , GIBSON, PRIVE , LISPRD)
00056 !
00057 !***********************************************************************
00058 ! TELEMAC3D   V6P1                                   21/08/2010
00059 !***********************************************************************
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00067 !| CFDEP          |-->| CONCENTRATION (G/L) OF FRESH DEPOSIT
00068 !| CFMAX          |-->| CONCENTRATION (G/L) OF CONSOLIDATED MUD
00069 !| CONC           |-->| CONCENTRATION OF MUD BED LAYER
00070 !|                |   | (ONLY FOR MULTILAYER MODEL)
00071 !| EPAI           |-->| THICKNESS OF SOLID BED LAYER
00072 !| EPAI0          |-->| REFERENCE THICKNESS
00073 !|                |   | FOR NEW GRID POINTS GENERATION
00074 !| FLUER          |-->| EROSION FLUX
00075 !| GIBSON         |-->| LOGICAL FOR GIBSON MODEL
00076 !| HDEP           |-->| THICKNESS OF FRESH DEPOSIT (FLUID MUD LAYER)
00077 !| IVIDE          |-->| VOID RATIO
00078 !|                |   | (GIBSON MODEL ONLY)
00079 !| LISPRD         |-->| TIME STEP FOR GRAPHICAL PRINTOUTS
00080 !| LT             |-->| NUMBER OF TIME STEP
00081 !| NCOUCH         |-->| NUMBER OF BED LAYERS
00082 !|                |   | (MULTILAYER CONSOLIDATION MODEL)
00083 !| NPF            |-->| NUMBER OF POINTS WITHIN THE BED ALONG THE VERTICAL
00084 !| NPFMAX         |-->| MAXIMUM NUMBER OF HORIZONTAL PLANES
00085 !|                |   | WITHIN THE MUD BED (GIBSON MODEL)
00086 !| NPOIN2         |-->| NUMBER OF POINTS IN 2D
00087 !| NPOIN3         |-->| NUMBER OF POINTS IN 3D
00088 !| PDEPOT         |-->| PROBABILITY OF DEPOSITION
00089 !| PRIVE          |<->| PRIVATE ARRAYS FOR USERS
00090 !| RHOS           |-->| SEDIMENT DENSITY
00091 !| TA             |-->| SUSPENDED SEDIMENT CONCENTRATION (G/L)
00092 !| TASSE          |-->| LOGICAL FOR MULTILAYER CONSOLIDATION MODEL
00093 !| TEMP           |-->| TIME COUNTER FOR CONSOLIDATION MODEL
00094 !|                |   | (MULTILAYER MODEL ONLY)
00095 !| WC             |-->| SETTLING VELOCITY (M/S)
00096 !| X              |-->| COORDINATES OF 2D MESH
00097 !| Y              |-->| COORDINATES OF 2D MESH
00098 !| ZF             |-->| BOTTOM LEVEL
00099 !| ZR             |-->| RIGID BED LEVEL
00100 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00101 !
00102       USE BIEF
00103       IMPLICIT NONE
00104 !
00105 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00106 !
00107       INTEGER, INTENT(IN) :: NPOIN2,NPOIN3,NPFMAX,NCOUCH,LT,LISPRD
00108 !
00109       DOUBLE PRECISION, INTENT(IN)  :: EPAI(NCOUCH,NPOIN2)
00110       DOUBLE PRECISION, INTENT(IN)  :: IVIDE(NPFMAX,NPOIN2)
00111       DOUBLE PRECISION, INTENT(IN)  :: HDEP(NPOIN2) , PDEPOT(NPOIN2)
00112       DOUBLE PRECISION, INTENT(IN)  :: FLUER(NPOIN2)
00113       DOUBLE PRECISION, INTENT(IN)  :: CONC(NCOUCH)
00114       DOUBLE PRECISION, INTENT(IN)  :: TEMP(NCOUCH,NPOIN2)
00115       DOUBLE PRECISION, INTENT(IN)  :: ZR(NPOIN2), ZF(NPOIN2)
00116       DOUBLE PRECISION, INTENT(IN)  :: TA(NPOIN3)
00117       DOUBLE PRECISION, INTENT(IN)  :: WC(NPOIN3)
00118       DOUBLE PRECISION, INTENT(IN)  :: X(NPOIN3), Y(NPOIN3)
00119       TYPE(BIEF_OBJ), INTENT(INOUT) :: PRIVE
00120 !
00121       DOUBLE PRECISION, INTENT(IN)  :: RHOS,CFMAX,CFDEP,EPAI0
00122 !
00123       INTEGER, INTENT(IN) :: NPF(NPOIN2)
00124 !
00125       LOGICAL, INTENT(IN) :: TASSE , GIBSON
00126 !
00127 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00128 !
00129       INTRINSIC MOD
00130 !
00131 !=======================================================================
00132 !
00133       IF (MOD(LT,LISPRD).NE.0) RETURN
00134 !
00135 !      PRINTOUTS SPECIFIED BY USER
00136 !
00137       RETURN
00138       END SUBROUTINE IMPSED

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