| 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). |