| 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 "natural" boundary conditions for salinity | 
| 116 | 
  | 
 C   instead of the "virtual salt flux" | 
| 117 | 
  | 
 #undef USE_NATURAL_BCS | 
| 118 | 
  | 
  | 
| 119 | 
  | 
 C o Use "OLD" UV discretisation near boundaries (*not* recommended) | 
| 120 | 
  | 
 C   Note - only works with  #undef NO_SLIP_LATERAL  in calc_mom_rhs.F | 
| 121 | 
  | 
 C          because the old code did not have no-slip BCs | 
| 122 | 
  | 
 #undef  OLD_ADV_BCS | 
| 123 | 
  | 
  | 
| 124 | 
  | 
 C o Use "OLD" UV geometry on sphere (definately *NOT* recommended) | 
| 125 | 
  | 
 C   Note - only works with  #undef NO_SLIP_LATERAL  in calc_mom_rhs.F | 
| 126 | 
  | 
 C          because the old code did not have no-slip BCs | 
| 127 | 
  | 
 #undef  OLD_UV_GEOMETRY | 
| 128 | 
  | 
  | 
| 129 | 
 C o Execution environment support options | 
 C o Execution environment support options | 
| 130 | 
 #include "CPP_EEOPTIONS.h" | 
 #include "CPP_EEOPTIONS.h" |