tutorial_dic_adjoffline/code_ad/GMREDI_OPTIONS.h

01a4b8e46d Patr*0001 C CPP options file for GM/Redi package
                0002 C Use this file for selecting options within the GM/Redi package
49b170ad31 Jean*0003
01a4b8e46d Patr*0004 #ifndef GMREDI_OPTIONS_H
                0005 #define GMREDI_OPTIONS_H
                0006 #include "PACKAGES_CONFIG.h"
                0007 #include "CPP_OPTIONS.h"
                0008
a589927d63 Jean*0009 #ifdef ALLOW_GMREDI
                0010 C     Package-specific Options & Macros go here
                0011
01a4b8e46d Patr*0012 C Designed to simplify the Ajoint code:
a589927d63 Jean*0013 C #define GMREDI_WITH_STABLE_ADJOINT
                0014 C -- exclude the clipping/tapering part of the code that is not used
01a4b8e46d Patr*0015 #define GM_EXCLUDE_CLIPPING
                0016 #define GM_EXCLUDE_FM07_TAP
a589927d63 Jean*0017 #define GM_EXCLUDE_AC02_TAP
49b170ad31 Jean*0018 #undef GM_EXCLUDE_TAPERING
87049f71ad Jean*0019 #define GM_EXCLUDE_SUBMESO
49b170ad31 Jean*0020
01a4b8e46d Patr*0021 C This allows to use Visbeck et al formulation to compute K_GM+Redi
49b170ad31 Jean*0022 #undef GM_VISBECK_VARIABLE_K
a589927d63 Jean*0023 C Use old calculation (before 2007/05/24) of Visbeck etal K_GM+Redi
                0024 C (which depends on tapering scheme)
                0025 #undef OLD_VISBECK_CALC
01a4b8e46d Patr*0026
                0027 C This allows the leading diagonal (top two rows) to be non-unity
                0028 C (a feature required when tapering adiabatically).
a589927d63 Jean*0029 #undef GM_NON_UNITY_DIAGONAL
01a4b8e46d Patr*0030
                0031 C Allows to use different values of K_GM and K_Redi ; also to
                0032 C be used with the advective form (Bolus velocity) of GM
a589927d63 Jean*0033 #undef GM_EXTRA_DIAGONAL
01a4b8e46d Patr*0034
                0035 C Allows to use the advective form (Bolus velocity) of GM
                0036 C  instead of the Skew-Flux form (=default)
a589927d63 Jean*0037 #undef GM_BOLUS_ADVEC
01a4b8e46d Patr*0038
87049f71ad Jean*0039 C Allows to use the Boundary-Value-Problem method to evaluate GM Bolus transport
                0040 #undef GM_BOLUS_BVP
                0041
01a4b8e46d Patr*0042 C Following option avoids specific recomputation in adjoint
                0043 C routines of gmredi_x/y/rtransport
49b170ad31 Jean*0044 C It is not needed, only for tests, and very memory-consuming
01a4b8e46d Patr*0045 #undef GM_AUTODIFF_EXCESSIVE_STORE
                0046
                0047 #endif /* ALLOW_GMREDI */
                0048 #endif /* GMREDI_OPTIONS_H */
                0049
a589927d63 Jean*0050 CEH3 ;;; Local Variables: ***
                0051 CEH3 ;;; mode:fortran ***
                0052 CEH3 ;;; End: ***