weiye
/
Droplet_LTORC
Watch 1
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Droplet Lagrangian Transient One-dimensional Reacting Code Implementation of both liquid and gas phase governing equations.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 Commits
1 Branch
1.7MB
Tree: 9207179246
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9207179246'
${ noResults }
Droplet_LTORC/include/macros.h

83 lines
2.8KB
Raw Blame History 

  1. #ifndef MACRO_DEF

  2. #define MACRO_DEF

  3. //#define SUNDIALS_DOUBLE_PRECISION 1

  4. //#define SUNDIALS_SINGLE_PRECISION 1

  5. 

  6. #define ZERO  RCONST(0.0)

  7. #define HALF  RCONST(0.5)

  8. #define ONE   RCONST(1.0)

  9. #define TWO   RCONST(2.0)

  10. #define THREE RCONST(3.0)

  11. #define FOUR  RCONST(4.0)

  12. #define TEN   RCONST(10.0)

  13. 

  14. #define ONE_ATM RCONST(101325.0)

  15. 

  16. /* In order to keep begin the index numbers from 1 instead of 0, we define

  17.  * macros here. Also, we define macros to ease referencing various variables in

  18.  * the sundials nvector.

  19.  */

  20. #define WORK(i) WORK[i-1]

  21. #define XNEW(i) XNEW[i-1]

  22. 

  23. #define psi(i)   psidata[i-1]

  24. 

  25. #define T(i)    ydata[((i-1)*data->nvar)+data->nt]

  26. #define Y(i,k)  ydata[((i-1)*data->nvar)+data->ny+k-1]

  27. #define R(i)    ydata[((i-1)*data->nvar)+data->nr]

  28. #define P(i)    ydata[((i-1)*data->nvar)+data->np]

  29. #define Mdot(i) ydata[((i-1)*data->nvar)+data->nm]

  30. 

  31. #define Tdot(i)    ydotdata[((i-1)*data->nvar)+data->nt]

  32. #define Ydot(i,k)  ydotdata[((i-1)*data->nvar)+data->ny+k-1]

  33. #define Rdot(i)    ydotdata[((i-1)*data->nvar)+data->nr]

  34. #define Pdot(i)    ydotdata[((i-1)*data->nvar)+data->np]

  35. #define Mdotdot(i) ydotdata[((i-1)*data->nvar)+data->nm]

  36. 

  37. #define Tres(i)    resdata[((i-1)*data->nvar)+data->nt]

  38. #define Yres(i,k)  resdata[((i-1)*data->nvar)+data->ny+k-1]

  39. #define Rres(i)    resdata[((i-1)*data->nvar)+data->nr]

  40. #define Pres(i)    resdata[((i-1)*data->nvar)+data->np]

  41. #define Mdotres(i) resdata[((i-1)*data->nvar)+data->nm]

  42. 

  43. #define Tid(i)    iddata[((i-1)*data->nvar)+data->nt]

  44. #define Yid(i,k)  iddata[((i-1)*data->nvar)+data->ny+k-1]

  45. #define Rid(i)    iddata[((i-1)*data->nvar)+data->nr]

  46. #define Pid(i)    iddata[((i-1)*data->nvar)+data->np]

  47. #define Mdotid(i) iddata[((i-1)*data->nvar)+data->nm]

  48. 

  49. #define Yav(i) Yav[i-1]

  50. #define YAvg(i) YAvg[i-1]

  51. #define YVmhalf(i) YVmhalf[i-1]

  52. #define YVphalf(i) YVphalf[i-1]

  53. #define X(i) X[i-1]

  54. #define Xp(i) Xp[i-1]

  55. #define Xgradhalf(i) Xgradhalf[i-1]

  56. #define XLeft(i) XLeft[i-1]

  57. #define XRight(i) XRight[i-1]

  58. #define gradX(i) gradX[i-1]

  59. #define wdot(i) wdot[i-1]

  60. #define enthalpy(i) enthalpy[i-1]

  61. #define energy(i) energy[i-1]

  62. #define Cp(i) Cp[i-1]

  63. 

  64. #define atolT(i)   atolvdata[((i-1)*data->nvar)+data->nt]

  65. #define atolY(i,k)   atolvdata[((i-1)*data->nvar)+data->ny+k-1]

  66. #define atolR(i)   atolvdata[((i-1)*data->nvar)+data->nr]

  67. #define atolP(i)   atolvdata[((i-1)*data->nvar)+data->np]

  68. #define atolMdot(i)   atolvdata[((i-1)*data->nvar)+data->nm]

  69. 

  70. 

  71. #define constraintsY(i,k)   constraintsdata[((i-1)*data->nvar)+data->ny+k-1]

  72. #define constraintsR(i)   constraintsdata[((i-1)*data->nvar)+data->nr]

  73. 

  74. /*Following marcos are defined to calculate the characteristic time-scale */

  75. #define wdot_mole(i)    wdot_mole[i-1]

  76. #define wdot_mass(i)    wdot_mass[i-1]

  77. #define MW(i)         MW[i-1]

  78. #define time_scale(i,k)    time_scale[(i-1)*data->nsp+k-1]

  79. #define concentra(i)     concentra[i-1]

  80. 

  81. 

  82. #endif