calcs_micropol.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\calcs_micropol.f
00002 !
00040                       SUBROUTINE CALCS_MICROPOL
00041 !                    **************************
00042 !
00043 !
00044 !***********************************************************************
00045 ! TELEMAC2D   V7P0                                        21/09/2014
00046 !***********************************************************************
00047 !
00048 !          WAQ PROCESS OF CODE_TRACER (MASCARET SYSTEM)
00049 !
00050 !
00051 !-----------------------------------------------------------------------
00052 !                             ARGUMENTS
00053 ! .___________.____.____.______________________________________________.
00054 ! !    NOM    !TYPE!MODE!                   ROLE                       !
00055 ! !___________!____!____!______________________________________________!
00056 ! ! NBTRA     ! E  ! M  ! NOMBRE DE TRACEURS                           !
00057 ! !  Q        ! TR ! D  ! DEBIT                                        !
00058 ! !  A        ! TR ! D  ! SECTION MOUILLEE                             !
00059 ! !  Z        ! TR ! D  ! HAUTEUR D EAU                                !
00060 ! !  RH       ! TR ! D  ! RAYON HYDRAULIQUE                            !
00061 ! !  ST       ! TR ! D  ! STRICKLER                                    !
00062 ! !  IM       ! E  ! M  ! NOMBRE DE SECTIONS DE CALCUL                 !
00063 ! !  C        ! TR ! D  ! CONCENTRATIONS                               !
00064 ! !  SVA      ! TR ! D  ! TERMES SOURCES VOLUMIQUE AJOUTES             !
00065 ! !  SSA      ! TR ! D  ! TERME SOURCE SURFACIQUE  AJOUTES             !
00066 ! !  T        !  R ! D  ! TEMPS                                        !
00067 ! !  DT       !  R ! D  ! PAS DE TEMPS                                 !
00068 !  RESULTATS------------------------------------------------------------
00069 ! !  RNUV     ! TR ! D  ! TERMES SOURCES VOLUMIQUES IMPLICITES         !
00070 ! !  RNUS     ! TR ! D  ! TERME SOURCE SURFACIQUE IMPLICITES           !
00071 ! !  SV       ! TR ! D  ! TERMES SOURCES  EXPLICITES                   !
00072 ! !___________!____!____!______________________________________________!
00073 !                               COMMON
00074 ! .___________.____.____.______________________________________________.
00075 ! !    NOM    !TYPE!MODE!                   ROLE                       !
00076 ! !___________!____!____!______________________________________________!
00077 ! !  NMSCAL   ! E  ! M  ! NOMBRE MAXIMUM DE SECTIONS DE CALCUL         !
00078 ! !  NMTRA    ! E  ! M  ! NOMBRE MAXIMUM DE TRACEURS                   !
00079 ! !___________!____!____!______________________________________________!
00080 !                          VARIABLES INTERNES
00081 ! .___________.____.____.______________________________________________.
00082 ! !    NOM    !TYPE!MODE!                   ROLE                       !
00083 ! !___________!____!____!______________________________________________!
00084 ! !  J        ! TR ! D  ! PENTE DE LA LIGNE DE CHARGE                  !
00085 ! !  TAUB     ! TR ! D  ! TENSION DE CISAILLEMENT AU FOND              !
00086 ! !  ERO      ! R  !    ! TAUX D EROSION                               !
00087 ! !  TAUS     ! R  !    ! CONTRAINTE CRITIQUE DE REMISE EN SUSPENSION  !
00088 ! !  TAUR     ! R  !    ! CONTRAINTE CRITIQUE DE SEDIMENTATION         !
00089 ! !  VITCHU   ! R  !    ! VITESSE DE CHUTE DES MES                     !
00090 ! !  LAMBD    ! R  !    ! CONSTANTE DE DESINTEGRATION EXPONENTIELLE    !
00091 ! !  KD       ! R  !    ! COEFFICIENT DE DISTRIBUTION                  !
00092 ! !  KDESORP  ! R  !    ! CONSTANTE CINETIQUE DE DESORPTION            !
00093 ! !           !    !    !                                              !
00094 ! !  IF1      ! TR ! D  ! INDIC DE LECTURE DU FICHIER DES PARAMETRES   !
00095 ! !___________!____!____!______________________________________________!
00096 !  MODE: -->(DONNEE NON MODIFIEE),<--(RESULTAT),<-->(DONNEE MODIFIEE)
00097 !               (ENTREE)              (SORTIE)       (ENTREE/SORTIE)
00098 !-----------------------------------------------------------------------
00099 !***********************************************************************
00100 !
00101       USE BIEF_DEF
00102       USE DECLARATIONS_WAQTEL,ONLY:ERO,TAUR,TAUS,VITCHU,CDISTRIB,KDESORP
00103 !      USE EXCHANGE_WITH_ATMOSPHERE
00104       USE DECLARATIONS_TELEMAC2D,ONLY: HPROP,LISTIN
00105 !      USE INTERFACE_TELEMAC2D, EX_CALCS_MICROPOL => CALCS_MICROPOL
00106 
00107       IMPLICIT NONE
00108       INTEGER LNG,LU
00109       COMMON/INFO/LNG,LU
00110 !
00111 !
00112 !
00113 
00114       IF(LNG.EQ.1)THEN
00115         WRITE(LU,*) 'MICROPOL: NOT IMPLEMENTED YET'
00116       ELSE
00117         WRITE(LU,*) 'MICROPOL: NOT IMPLEMENTED YET'
00118       ENDIF
00119       CALL PLANTE(1)
00120       STOP
00121 
00122 
00123 !
00124 !
00125 !-----------------------------------------------------------------------
00126 !
00127       RETURN
00128       END

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