10 |
C You need to do some analysis before changing this option. ;^) |
C You need to do some analysis before changing this option. ;^) |
11 |
#define SEQUENTIAL_2D_SHAP |
#define SEQUENTIAL_2D_SHAP |
12 |
|
|
|
C Boundary conditions for U,V Shapiro code |
|
|
C Horizontal shear is calculated as if the boundaries are no-slip |
|
|
#undef NO_SLIP_SHAP |
|
|
|
|
13 |
C This invokes the older code which produces the same numbers |
C This invokes the older code which produces the same numbers |
14 |
C and might even be faster because it does not do multiple |
C and might even be faster because it does not do multiple |
15 |
C exchanges within the filter. However, this requires the |
C exchanges within the filter. However, this requires the |
17 |
C for arbitrarily arranged tiles (ie. as in cubed-sphere). |
C for arbitrarily arranged tiles (ie. as in cubed-sphere). |
18 |
C *DO NOT USE THIS OPTION UNLESS YOU REALLY WANT TO* :-( |
C *DO NOT USE THIS OPTION UNLESS YOU REALLY WANT TO* :-( |
19 |
#undef USE_OLD_SHAPIRO_FILTERS |
#undef USE_OLD_SHAPIRO_FILTERS |
20 |
|
|
21 |
|
#ifdef USE_OLD_SHAPIRO_FILTERS |
22 |
|
C Boundary conditions for U,V Shapiro code |
23 |
|
C Horizontal shear is calculated as if the boundaries are no-slip |
24 |
|
C Note: option NO_SLIP_SHAP only used in OLD_SHAPIRO_FILTERS ; |
25 |
|
C it is replaced by parameter "Shap_noSlip=1." in new S/R. |
26 |
|
#undef NO_SLIP_SHAP |
27 |
|
#endif |
28 |
|
|