diff --git a/rubarbe.f90 b/rubarbe.f90 index c5c95ce8f56340aef0873bc0bb9207ec25ba5384..82e72c70ee55d2f83e2c0667d7fd55a1f363c5ac 100644 --- a/rubarbe.f90 +++ b/rubarbe.f90 @@ -1,18 +1,43 @@ +! Copyright (c) 2022, Institut National de Recherche pour l'Agriculture, +! l'Alimentation et l'Environnement (INRAE) +! All rights reserved. +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions are met: +! +! * Redistributions of source code must retain the above copyright notice, this +! list of conditions and the following disclaimer. +! +! * Redistributions in binary form must reproduce the above copyright notice, +! this list of conditions and the following disclaimer in the documentation +! and/or other materials provided with the distribution. +! +! * Neither the name of the copyright holder nor the names of its +! contributors may be used to endorse or promote products derived from +! this software without specific prior written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE +! DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE +! FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +! SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +! CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +! OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + + + +!*********************************************************************** ! Version avec géométrie en abscisse-cote ! introduction lit mineur/moyen pour le transport solide !*********************************************************************** ! ! PROGRAMME DE CALCUL HYDRODYNAMIQUE AVEC FOND MOBILE -! @cou2d@ a supprimer si couplage avec 2D -! @cou1d@ a supprimer si pas de couplage avec 2D -! @trs@ a supprimer si rubarbe -! @liq@ a supprimer si rubar 3 1 bief -! @ympd@ a supprimer pour introduire limiattions sur valeurs intermailles (version b) -! @qmpd@ a supprimer pour limitations supplementaires sur Q -! (limitations sur V alors à desactiver comme dans la version du 25/10/12) -! @conflue@ a remplacer par conflue2 ou conflue ! ! Version du 11/06/2002 par A.Paquier & P.BalaYN & K. EL Kadi +! 2022 : supression des commons et ajout des modules ! par rapport a version fin septembre 2001, MPmuller modifie ajoute ! ainsi que evolution granulometrie etendue ! version du 15 octobre 2007 : plusieurs MPC