sandbox/M1EMN/Exemples/viscous_collapsesqrt_ML.c

    collapse of a rectangular viscous column on a slope,

    From the paper: Huppert 82 “Flow and instability of a viscous current along a slope”

    the 1D theory is presented with shallow water, here we solve the full profiles

    Here we solve it using the Multilayer Shallow Water (Saint Venant Multi Couches) strategy of Audusse Sainte-Marie et al 2011. See De Vita 2020 for details, this example is presented there as a test case.

    #include "grid/cartesian1D.h"
#include "saint-venant.h"

double alpha;  

int main() {
  X0 = -5.;
  L0 = 30;
  G  = 1.;
  alpha=0.5;
  N  = 512;
  nl = 15;
  nu = 1.;
  run();
}

    We impose boundary condition for h and \eta.

    h[left] = neumann (0);
eta[left] = neumann (0);
u.n[left] = dirichlet(0);

h[right] = neumann (0);
eta[right] = neumann (0);

    Initialization

    event init (i = 0) {

    We set a zero velocity at the inlet and a free outlet.

      for (vector u in ul) {
    u.n[left] = 0;
    u.n[right] = neumann(0.);
  }

    We initialize h.

      foreach(){
    h[] =   (fabs(x)<.5);
    zb[] = -(x-X0)*alpha;}
}

    Output

    We print the elevation and the stress.

    event output (t += 100;  t <= 10000) {
  vector u0 = ul[0];
  foreach()
    fprintf (stderr, "%g %g %g %g\n", x, h[], 2.*u0.x[]/((h[]+dry)/nl),t );
     fprintf (stderr, "\n");
}

    Run

    To run

    qcc -O2 -o viscous_collapsesqrt_ML viscous_collapsesqrt_ML.c 
 ./viscous_collapsesqrt_ML  2>log

    To make

     make viscous_collapsesqrt_ML.tst
 make viscous_collapsesqrt_ML/plots
 make viscous_collapsesqrt_ML.c.html
 
 source c2html.sh viscous_collapsesqrt_ML

    Results

     set xlabel "x"
 set ylabel "h(x,t)"
p[-2:]'log' w l
    (script)

    (script)

    the selfsimilar collapse over the selfsimilar solution: in \sqrt(\eta): (the overshoot desappears with N)

     set xlabel "x/t^{1/3}"
 set ylabel "h(x,t) t^{1/3}"
 n=1./3
 p [-0.5:1.5]'log' u ($1/($4**n)):($4>2000? $2*($4**n): NaN) t'comp.' w l,sqrt(x/(.5)+.2) t'anal''
    (script)

    (script)

    Montpellier 07/17

    Bibliography