/[MITgcm]/MITgcm/pkg/obcs/obcs_ad_check_lev2_dir.h
ViewVC logotype

Annotation of /MITgcm/pkg/obcs/obcs_ad_check_lev2_dir.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.8 - (hide annotations) (download)
Fri Dec 16 14:58:53 2011 UTC (12 years, 6 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63g, checkpoint64
Changes since 1.7: +21 -1 lines
File MIME type: text/plain 
add store directives for new stevens boundary condition formulation
1 mlosch 1.8 C $Header: /u/gcmpack/MITgcm/pkg/obcs/obcs_ad_check_lev2_dir.h,v 1.7 2011/03/14 17:31:07 mlosch Exp $
2 mlosch 1.7 C $Name: $
3 jmc 1.4
4 heimbach 1.1 #ifdef ALLOW_OBCS
5     #
6     # ifdef ALLOW_OBCS_NORTH
7 heimbach 1.3 CADJ STORE StoreOBCSN = tapelev2, key = ilev_2
8 mlosch 1.8 # ifdef ALLOW_OBCS_STEVENS
9     CADJ STORE OBNtStevens = tapelev2, key = ilev_2
10     CADJ STORE OBNsStevens = tapelev2, key = ilev_2
11     CADJ STORE OBNvStevens = tapelev2, key = ilev_2
12     # endif /* ALLOW_OBCS_STEVENS */
13 heimbach 1.1 # endif /* ALLOW_OBCS_NORTH */
14     #
15     # ifdef ALLOW_OBCS_SOUTH
16 heimbach 1.3 CADJ STORE StoreOBCSS = tapelev2, key = ilev_2
17 mlosch 1.8 # ifdef ALLOW_OBCS_STEVENS
18     CADJ STORE OBStStevens = tapelev2, key = ilev_2
19     CADJ STORE OBSsStevens = tapelev2, key = ilev_2
20     CADJ STORE OBSvStevens = tapelev2, key = ilev_2
21     # endif /* ALLOW_OBCS_STEVENS */
22 heimbach 1.1 # endif /* ALLOW_OBCS_SOUTH */
23     #
24     # ifdef ALLOW_OBCS_EAST
25 heimbach 1.3 CADJ STORE StoreOBCSE = tapelev2, key = ilev_2
26 mlosch 1.8 # ifdef ALLOW_OBCS_STEVENS
27     CADJ STORE OBEtStevens = tapelev2, key = ilev_2
28     CADJ STORE OBEsStevens = tapelev2, key = ilev_2
29     CADJ STORE OBEuStevens = tapelev2, key = ilev_2
30     # endif /* ALLOW_OBCS_STEVENS */
31 heimbach 1.1 # endif /* ALLOW_OBCS_EAST */
32     #
33     # ifdef ALLOW_OBCS_WEST
34 heimbach 1.3 CADJ STORE StoreOBCSW = tapelev2, key = ilev_2
35 mlosch 1.8 # ifdef ALLOW_OBCS_STEVENS
36     CADJ STORE OBWtStevens = tapelev2, key = ilev_2
37     CADJ STORE OBWsStevens = tapelev2, key = ilev_2
38     CADJ STORE OBWuStevens = tapelev2, key = ilev_2
39     # endif /* ALLOW_OBCS_STEVENS */
40 heimbach 1.1 # endif /* ALLOW_OBCS_WEST */
41     #
42 heimbach 1.2 # ifdef ALLOW_PTRACERS
43     #
44     #ifdef ALLOW_OBCS_NORTH
45     CADJ STORE OBNptr = tapelev2, key = ilev_2
46     #ifdef ALLOW_OBCS_PRESCRIBE
47     CADJ STORE OBNptr0 = tapelev2, key = ilev_2
48     CADJ STORE OBNptr1 = tapelev2, key = ilev_2
49     #endif /* ALLOW_OBCS_PRESCRIBE */
50     #endif /* ALLOW_OBCS_NORTH */
51     #ifdef ALLOW_OBCS_SOUTH
52     CADJ STORE OBSptr = tapelev2, key = ilev_2
53     #ifdef ALLOW_OBCS_PRESCRIBE
54     CADJ STORE OBSptr0 = tapelev2, key = ilev_2
55     CADJ STORE OBSptr1 = tapelev2, key = ilev_2
56     #endif /* ALLOW_OBCS_PRESCRIBE */
57     #endif /* ALLOW_OBCS_SOUTH */
58     #ifdef ALLOW_OBCS_EAST
59     CADJ STORE OBEptr = tapelev2, key = ilev_2
60     #ifdef ALLOW_OBCS_PRESCRIBE
61     CADJ STORE OBEptr0 = tapelev2, key = ilev_2
62     CADJ STORE OBEptr1 = tapelev2, key = ilev_2
63     #endif /* ALLOW_OBCS_PRESCRIBE */
64     #endif /* ALLOW_OBCS_EAST */
65     #ifdef ALLOW_OBCS_WEST
66     CADJ STORE OBWptr = tapelev2, key = ilev_2
67     #ifdef ALLOW_OBCS_PRESCRIBE
68     CADJ STORE OBWptr0 = tapelev2, key = ilev_2
69     CADJ STORE OBWptr1 = tapelev2, key = ilev_2
70     #endif /* ALLOW_OBCS_PRESCRIBE */
71     #endif /* ALLOW_OBCS_WEST */
72     #
73     # endif /* ALLOW_PTRACERS */
74     #
75 mlosch 1.5 # ifdef ALLOW_SEAICE
76     #
77     #ifdef ALLOW_OBCS_NORTH
78     CADJ STORE OBNh = tapelev2, key = ilev_2
79     CADJ STORE OBNa = tapelev2, key = ilev_2
80     CADJ STORE OBNsn = tapelev2, key = ilev_2
81     #ifdef ALLOW_OBCS_PRESCRIBE
82     CADJ STORE OBNh0 = tapelev2, key = ilev_2
83     CADJ STORE OBNh1 = tapelev2, key = ilev_2
84     CADJ STORE OBNa0 = tapelev2, key = ilev_2
85     CADJ STORE OBNa1 = tapelev2, key = ilev_2
86     CADJ STORE OBNsn0 = tapelev2, key = ilev_2
87     CADJ STORE OBNsn1 = tapelev2, key = ilev_2
88 heimbach 1.6 #ifdef NONLIN_FRSURF
89     CADJ STORE obneta0,obneta1 = tapelev2, key = ilev_2
90     #endif
91 mlosch 1.5 #endif /* ALLOW_OBCS_PRESCRIBE */
92     #endif /* ALLOW_OBCS_NORTH */
93     #ifdef ALLOW_OBCS_SOUTH
94     CADJ STORE OBSh = tapelev2, key = ilev_2
95     CADJ STORE OBSa = tapelev2, key = ilev_2
96     CADJ STORE OBSsn = tapelev2, key = ilev_2
97     #ifdef ALLOW_OBCS_PRESCRIBE
98     CADJ STORE OBSh0 = tapelev2, key = ilev_2
99     CADJ STORE OBSh1 = tapelev2, key = ilev_2
100     CADJ STORE OBSa0 = tapelev2, key = ilev_2
101     CADJ STORE OBSa1 = tapelev2, key = ilev_2
102     CADJ STORE OBSsn0 = tapelev2, key = ilev_2
103     CADJ STORE OBSsn1 = tapelev2, key = ilev_2
104 heimbach 1.6 #ifdef NONLIN_FRSURF
105     CADJ STORE obseta0,obseta1 = tapelev2, key = ilev_2
106     #endif
107 mlosch 1.5 #endif /* ALLOW_OBCS_PRESCRIBE */
108     #endif /* ALLOW_OBCS_SOUTH */
109     #ifdef ALLOW_OBCS_EAST
110     CADJ STORE OBEh = tapelev2, key = ilev_2
111     CADJ STORE OBEa = tapelev2, key = ilev_2
112     CADJ STORE OBEsn = tapelev2, key = ilev_2
113     #ifdef ALLOW_OBCS_PRESCRIBE
114     CADJ STORE OBEh0 = tapelev2, key = ilev_2
115     CADJ STORE OBEh1 = tapelev2, key = ilev_2
116     CADJ STORE OBEa0 = tapelev2, key = ilev_2
117     CADJ STORE OBEa1 = tapelev2, key = ilev_2
118     CADJ STORE OBEsn0 = tapelev2, key = ilev_2
119     CADJ STORE OBEsn1 = tapelev2, key = ilev_2
120 heimbach 1.6 #ifdef NONLIN_FRSURF
121     CADJ STORE obeeta0,obeeta1 = tapelev2, key = ilev_2
122     #endif
123 mlosch 1.5 #endif /* ALLOW_OBCS_PRESCRIBE */
124     #endif /* ALLOW_OBCS_EAST */
125     #ifdef ALLOW_OBCS_WEST
126     CADJ STORE OBWh = tapelev2, key = ilev_2
127     CADJ STORE OBWa = tapelev2, key = ilev_2
128     CADJ STORE OBWsn = tapelev2, key = ilev_2
129     #ifdef ALLOW_OBCS_PRESCRIBE
130     CADJ STORE OBWh0 = tapelev2, key = ilev_2
131     CADJ STORE OBWh1 = tapelev2, key = ilev_2
132     CADJ STORE OBWa0 = tapelev2, key = ilev_2
133     CADJ STORE OBWa1 = tapelev2, key = ilev_2
134     CADJ STORE OBWsn0 = tapelev2, key = ilev_2
135     CADJ STORE OBWsn1 = tapelev2, key = ilev_2
136 heimbach 1.6 #ifdef NONLIN_FRSURF
137     CADJ STORE obweta0,obweta1 = tapelev2, key = ilev_2
138     #endif
139 mlosch 1.5 #endif /* ALLOW_OBCS_PRESCRIBE */
140     #endif /* ALLOW_OBCS_WEST */
141     #
142     # endif /* ALLOW_SEAICE */
143     #
144 heimbach 1.1 #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22