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