19 |
|
|
20 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
21 |
|
|
22 |
ccc#ifdef ALLOW_GAD |
#ifndef __GAD_OPTIONS |
23 |
|
#ifndef DISABLE_GENERIC_ADVDIFF |
|
C This turns on the flux limiter terms |
|
|
#define GAD_USE_FLUX_LIMITER |
|
24 |
|
|
25 |
C The selects the form of COSINE(lat) scaling of bi-harmonic term. |
C The selects the form of COSINE(lat) scaling of bi-harmonic term. |
26 |
C *only for use on a lat-lon grid* |
C *only for use on a lat-lon grid* |
30 |
C using the COSINE(lat) scaling. |
C using the COSINE(lat) scaling. |
31 |
#undef ISOTROPIC_COS_SCALING |
#undef ISOTROPIC_COS_SCALING |
32 |
|
|
33 |
|
C As of checkpoint41, the inclusion of multi-dimensional advection |
34 |
ccc#endif /* ALLOW_GAD */ |
C introduces excessive recomputation/storage for the adjoint. |
35 |
|
C We disable it here using CPP because run-time flags are insufficient. |
36 |
|
#ifdef ALLOW_AUTODIFF_TAMC |
37 |
|
#define DISABLE_MULTIDIM_ADVECTION |
38 |
|
#endif |
39 |
|
|
40 |
|
#else |
41 |
|
|
42 |
|
C If GAD is disabled then so is multi-dimensional advection |
43 |
|
#define DISABLE_MULTIDIM_ADVECTION |
44 |
|
|
45 |
|
#endif /* DISABLE_GENERIC_ADVDIFF */ |
46 |
|
#define __GAD_OPTIONS |
47 |
|
#endif /* __GAD_OPTIONS */ |