MoDeNa  1.0
Software framework facilitating sequential multi-scale modelling
initializeMoments.h
Go to the documentation of this file.
1 
13 void mom_init(double *, double &, int &, double &, double &);
14 
15 void mom_init(double *momz, double &size_0, int &n, double &sigma, double &NN)
16 {
17  int i;
18  double v_0 = (M_PI/6.0)*(pow(size_0,3));
19  double mu = log(v_0);
20 
21  for(i=0;i<n;i++)
22  {
23  if(i == 0)
24  {
25  momz[0] = NN;
26  }
27  else
28  {
29  momz[i] = NN*exp(i*mu+0.5*i*i*sigma*sigma);
30  }
31 
32  }
33 }
double NN
correlated to number of initial bubbles in m^3
real(dp) sigma
interfacial tension
Definition: globals.f90:49
void mom_init(double *, double &, int &, double &, double &)