| 13 | #include "CPP_OPTIONS.h" | #include "CPP_OPTIONS.h" | 
| 14 |  |  | 
| 15 | C Designed to simplify the Ajoint code: | C Designed to simplify the Ajoint code: | 
| 16 | C  exclude the clipping/tapering part of the code that is not used | C #define GMREDI_WITH_STABLE_ADJOINT | 
| 17 |  | C -- exclude the clipping/tapering part of the code that is not used | 
| 18 | C #define GM_EXCLUDE_CLIPPING | C #define GM_EXCLUDE_CLIPPING | 
| 19 |  | C #define GM_EXCLUDE_FM07_TAP | 
| 20 | C #define GM_EXCLUDE_AC02_TAP | C #define GM_EXCLUDE_AC02_TAP | 
| 21 | C #define GM_EXCLUDE_TAPERING | C #define GM_EXCLUDE_TAPERING | 
| 22 |  |  | 
| 23 | C This allows to use Visbeck et al formulation to compute K_GM+Redi | C This allows to use Visbeck et al formulation to compute K_GM+Redi | 
| 24 | #undef GM_VISBECK_VARIABLE_K | #undef GM_VISBECK_VARIABLE_K | 
| 25 |  | C Use old calculation (before 2007/05/24) of Visbeck etal K_GM+Redi | 
| 26 |  | C (which depends on tapering scheme) | 
| 27 |  | #undef OLD_VISBECK_CALC | 
| 28 |  |  | 
| 29 | C This allows the leading diagonal (top two rows) to be non-unity | C This allows the leading diagonal (top two rows) to be non-unity | 
| 30 | C (a feature required when tapering adiabatically). | C (a feature required when tapering adiabatically). |