| 58 |
#endif |
#endif |
| 59 |
|
|
| 60 |
C o Include/exclude biharmonic viscosity code |
C o Include/exclude biharmonic viscosity code |
| 61 |
#undef INCLUDE_BH_MOMENTUM_DIFFUSION_CODE |
#define INCLUDE_BH_MOMENTUM_DIFFUSION_CODE |
| 62 |
#ifdef INCLUDE_BH_MOMENTUM_DIFFUSION_CODE |
#ifdef INCLUDE_BH_MOMENTUM_DIFFUSION_CODE |
| 63 |
#define _BHM(a) a |
#define _BHM(a) a |
| 64 |
#endif |
#endif |
| 112 |
C o Include/exclude call to S/R CALC_DIFFUSIVITY |
C o Include/exclude call to S/R CALC_DIFFUSIVITY |
| 113 |
#define INCLUDE_CALC_DIFFUSIVITY_CALL |
#define INCLUDE_CALC_DIFFUSIVITY_CALL |
| 114 |
|
|
| 115 |
|
C o Use "OLD" UV discretisation near boundaries (*not* recommended) |
| 116 |
|
C Note - only works with #undef NO_SLIP_LATERAL in calc_mom_rhs.F |
| 117 |
|
C because the old code did not have no-slip BCs |
| 118 |
|
#undef OLD_ADV_BCS |
| 119 |
|
|
| 120 |
|
C o Use "OLD" UV geometry on sphere (definately *NOT* recommended) |
| 121 |
|
C Note - only works with #undef NO_SLIP_LATERAL in calc_mom_rhs.F |
| 122 |
|
C because the old code did not have no-slip BCs |
| 123 |
|
#undef OLD_UV_GEOMETRY |
| 124 |
|
|
| 125 |
C o Execution environment support options |
C o Execution environment support options |
| 126 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |