| 10 | 
 C   coriolis terms | 
 C   coriolis terms | 
| 11 | 
 #define  INCLUDE_CD_CODE | 
 #define  INCLUDE_CD_CODE | 
| 12 | 
  | 
  | 
| 13 | 
  | 
 C o Include/exclude code for open-boundary conditions | 
| 14 | 
  | 
 #undef   ALLOW_OBCS | 
| 15 | 
  | 
  | 
| 16 | 
 C o Include/exclude diagnostics package interface code | 
 C o Include/exclude diagnostics package interface code | 
| 17 | 
 #define  INCLUDE_DIAGNOSTICS_INTERFACE_CODE | 
 #define  INCLUDE_DIAGNOSTICS_INTERFACE_CODE | 
| 18 | 
  | 
  | 
| 22 | 
 C o Include/exclude temperature advection code | 
 C o Include/exclude temperature advection code | 
| 23 | 
 #define  INCLUDE_T_ADVECTION_CODE | 
 #define  INCLUDE_T_ADVECTION_CODE | 
| 24 | 
 #ifdef   INCLUDE_T_ADVECTION_CODE | 
 #ifdef   INCLUDE_T_ADVECTION_CODE | 
| 25 | 
 #define  _ADT(a) a | 
 #define  _ADT(a)a | 
| 26 | 
 #endif | 
 #endif | 
| 27 | 
 #ifndef  INCLUDE_T_ADVECTION_CODE | 
 #ifndef  INCLUDE_T_ADVECTION_CODE | 
| 28 | 
 #define  _ADT(a) | 
 #define  _ADT(a) | 
| 31 | 
 C o Include/exclude temperature diffusion code | 
 C o Include/exclude temperature diffusion code | 
| 32 | 
 #define  INCLUDE_T_DIFFUSION_CODE | 
 #define  INCLUDE_T_DIFFUSION_CODE | 
| 33 | 
 #ifdef   INCLUDE_T_DIFFUSION_CODE | 
 #ifdef   INCLUDE_T_DIFFUSION_CODE | 
| 34 | 
 #define  _LPT(a) a | 
 #define  _LPT(a)a | 
| 35 | 
 #define  _BHT(a) a | 
 #define  _BHT(a)a | 
| 36 | 
 #endif | 
 #endif | 
| 37 | 
 #ifndef  INCLUDE_T_DIFFUSION_CODE | 
 #ifndef  INCLUDE_T_DIFFUSION_CODE | 
| 38 | 
 #define  _LPT(a) | 
 #define  _LPT(a) | 
| 45 | 
 C o Include/exclude momentum advection code | 
 C o Include/exclude momentum advection code | 
| 46 | 
 #define  INCLUDE_MOMENTUM_ADVECTION_CODE | 
 #define  INCLUDE_MOMENTUM_ADVECTION_CODE | 
| 47 | 
 #ifdef   INCLUDE_MOMENTUM_ADVECTION_CODE | 
 #ifdef   INCLUDE_MOMENTUM_ADVECTION_CODE | 
| 48 | 
 #define  _ADM(a) a | 
 #define  _ADM(a)a | 
| 49 | 
 #endif | 
 #endif | 
| 50 | 
 #ifndef  INCLUDE_MOMENTUM_ADVECTION_CODE | 
 #ifndef  INCLUDE_MOMENTUM_ADVECTION_CODE | 
| 51 | 
 #define  _ADM(a) | 
 #define  _ADM(a) | 
| 54 | 
 C o Include/exclude laplacian viscosity code | 
 C o Include/exclude laplacian viscosity code | 
| 55 | 
 #define  INCLUDE_LP_MOMENTUM_DIFFUSION_CODE | 
 #define  INCLUDE_LP_MOMENTUM_DIFFUSION_CODE | 
| 56 | 
 #ifdef   INCLUDE_LP_MOMENTUM_DIFFUSION_CODE | 
 #ifdef   INCLUDE_LP_MOMENTUM_DIFFUSION_CODE | 
| 57 | 
 #define  _LPM(a) a | 
 #define  _LPM(a)a | 
| 58 | 
 #endif | 
 #endif | 
| 59 | 
 #ifndef  INCLUDE_LP_MOMENTUM_DIFFUSION_CODE | 
 #ifndef  INCLUDE_LP_MOMENTUM_DIFFUSION_CODE | 
| 60 | 
 #define  _LPM(a) | 
 #define  _LPM(a) | 
| 63 | 
 C o Include/exclude biharmonic viscosity code | 
 C o Include/exclude biharmonic viscosity code | 
| 64 | 
 #define  INCLUDE_BH_MOMENTUM_DIFFUSION_CODE | 
 #define  INCLUDE_BH_MOMENTUM_DIFFUSION_CODE | 
| 65 | 
 #ifdef   INCLUDE_BH_MOMENTUM_DIFFUSION_CODE | 
 #ifdef   INCLUDE_BH_MOMENTUM_DIFFUSION_CODE | 
| 66 | 
 #define  _BHM(a) a | 
 #define  _BHM(a)a | 
| 67 | 
 #endif | 
 #endif | 
| 68 | 
 #ifndef  INCLUDE_BH_MOMENTUM_DIFFUSION_CODE | 
 #ifndef  INCLUDE_BH_MOMENTUM_DIFFUSION_CODE | 
| 69 | 
 #define  _BHM(a) | 
 #define  _BHM(a) | 
| 72 | 
 C o Include/exclude gradient of phy_hyd code | 
 C o Include/exclude gradient of phy_hyd code | 
| 73 | 
 #define INCLUDE_GRADPH_CODE | 
 #define INCLUDE_GRADPH_CODE | 
| 74 | 
 #ifdef  INCLUDE_GRADPH_CODE | 
 #ifdef  INCLUDE_GRADPH_CODE | 
| 75 | 
 #define _PHM(a) a | 
 #define _PHM(a)a | 
| 76 | 
 #endif | 
 #endif | 
| 77 | 
 #ifndef INCLUDE_GRADPH_CODE | 
 #ifndef INCLUDE_GRADPH_CODE | 
| 78 | 
 #define _PHM(a) | 
 #define _PHM(a) | 
| 115 | 
 C o Include/exclude call to S/R CALC_DIFFUSIVITY | 
 C o Include/exclude call to S/R CALC_DIFFUSIVITY | 
| 116 | 
 #define INCLUDE_CALC_DIFFUSIVITY_CALL | 
 #define INCLUDE_CALC_DIFFUSIVITY_CALL | 
| 117 | 
  | 
  | 
| 118 | 
  | 
 C o Use "natural" boundary conditions for salinity | 
| 119 | 
  | 
 C   instead of the "virtual salt flux" | 
| 120 | 
  | 
 #undef USE_NATURAL_BCS | 
| 121 | 
  | 
  | 
| 122 | 
 C o Use "OLD" UV discretisation near boundaries (*not* recommended) | 
 C o Use "OLD" UV discretisation near boundaries (*not* recommended) | 
| 123 | 
 C   Note - only works with  #undef NO_SLIP_LATERAL  in calc_mom_rhs.F | 
 C   Note - only works with  #undef NO_SLIP_LATERAL  in calc_mom_rhs.F | 
| 124 | 
 C          because the old code did not have no-slip BCs | 
 C          because the old code did not have no-slip BCs |