/[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.2 - (hide annotations) (download)
Wed Mar 29 17:04:18 2006 UTC (18 years, 2 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint58e_post, checkpoint58u_post, checkpoint58w_post, checkpoint58r_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint58q_post, checkpoint58j_post, checkpoint59a, checkpoint59b, checkpoint59, checkpoint58f_post, checkpoint58d_post, checkpoint58i_post, checkpoint58g_post, checkpoint58o_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint58m_post
Changes since 1.1: +33 -0 lines
File MIME type: text/plain 
Adding tapelev+comlev fields for obcs+ptracers adjoint.
1 heimbach 1.1 #ifdef ALLOW_OBCS
2     #
3     CADJ STORE shiftvel = tapelev2, key = ilev_2
4     #
5     # ifdef ALLOW_OBCS_NORTH
6     CADJ STORE OBNt = tapelev2, key = ilev_2
7     CADJ STORE OBNs = tapelev2, key = ilev_2
8     CADJ STORE OBNu0 = tapelev2, key = ilev_2
9     CADJ STORE OBNv0 = tapelev2, key = ilev_2
10     CADJ STORE OBNt0 = tapelev2, key = ilev_2
11     CADJ STORE OBNs0 = tapelev2, key = ilev_2
12     CADJ STORE OBNu1 = tapelev2, key = ilev_2
13     CADJ STORE OBNv1 = tapelev2, key = ilev_2
14     CADJ STORE OBNt1 = tapelev2, key = ilev_2
15     CADJ STORE OBNs1 = tapelev2, key = ilev_2
16     # ifdef ALLOW_OBCSN_CONTROL
17     CADJ STORE xx_obcsn0 = tapelev2, key = ilev_2
18     CADJ STORE xx_obcsn1 = tapelev2, key = ilev_2
19     # endif
20     # endif /* ALLOW_OBCS_NORTH */
21     #
22     # ifdef ALLOW_OBCS_SOUTH
23     CADJ STORE OBSt = tapelev2, key = ilev_2
24     CADJ STORE OBSs = tapelev2, key = ilev_2
25     CADJ STORE OBSu0 = tapelev2, key = ilev_2
26     CADJ STORE OBSv0 = tapelev2, key = ilev_2
27     CADJ STORE OBSt0 = tapelev2, key = ilev_2
28     CADJ STORE OBSs0 = tapelev2, key = ilev_2
29     CADJ STORE OBSu1 = tapelev2, key = ilev_2
30     CADJ STORE OBSv1 = tapelev2, key = ilev_2
31     CADJ STORE OBSt1 = tapelev2, key = ilev_2
32     CADJ STORE OBSs1 = tapelev2, key = ilev_2
33     # ifdef ALLOW_OBCSS_CONTROL
34     CADJ STORE xx_obcss0 = tapelev2, key = ilev_2
35     CADJ STORE xx_obcss1 = tapelev2, key = ilev_2
36     # endif
37     # endif /* ALLOW_OBCS_SOUTH */
38     #
39     # ifdef ALLOW_OBCS_EAST
40     CADJ STORE OBEt = tapelev2, key = ilev_2
41     CADJ STORE OBEs = tapelev2, key = ilev_2
42     CADJ STORE OBEu0 = tapelev2, key = ilev_2
43     CADJ STORE OBEv0 = tapelev2, key = ilev_2
44     CADJ STORE OBEt0 = tapelev2, key = ilev_2
45     CADJ STORE OBEs0 = tapelev2, key = ilev_2
46     CADJ STORE OBEu1 = tapelev2, key = ilev_2
47     CADJ STORE OBEv1 = tapelev2, key = ilev_2
48     CADJ STORE OBEt1 = tapelev2, key = ilev_2
49     CADJ STORE OBEs1 = tapelev2, key = ilev_2
50     # ifdef ALLOW_OBCSE_CONTROL
51     CADJ STORE xx_obcse0 = tapelev2, key = ilev_2
52     CADJ STORE xx_obcse1 = tapelev2, key = ilev_2
53     # endif
54     # endif /* ALLOW_OBCS_EAST */
55     #
56     # ifdef ALLOW_OBCS_WEST
57     CADJ STORE OBWt = tapelev2, key = ilev_2
58     CADJ STORE OBWs = tapelev2, key = ilev_2
59     CADJ STORE OBWu0 = tapelev2, key = ilev_2
60     CADJ STORE OBWv0 = tapelev2, key = ilev_2
61     CADJ STORE OBWt0 = tapelev2, key = ilev_2
62     CADJ STORE OBWs0 = tapelev2, key = ilev_2
63     CADJ STORE OBWu1 = tapelev2, key = ilev_2
64     CADJ STORE OBWv1 = tapelev2, key = ilev_2
65     CADJ STORE OBWt1 = tapelev2, key = ilev_2
66     CADJ STORE OBWs1 = tapelev2, key = ilev_2
67     # ifdef ALLOW_OBCSW_CONTROL
68     CADJ STORE xx_obcsw0 = tapelev2, key = ilev_2
69     CADJ STORE xx_obcsw1 = tapelev2, key = ilev_2
70     # endif
71     # endif /* ALLOW_OBCS_WEST */
72     #
73 heimbach 1.2 # ifdef ALLOW_PTRACERS
74     #
75     #ifdef ALLOW_OBCS_NORTH
76     CADJ STORE OBNptr = tapelev2, key = ilev_2
77     #ifdef ALLOW_OBCS_PRESCRIBE
78     CADJ STORE OBNptr0 = tapelev2, key = ilev_2
79     CADJ STORE OBNptr1 = tapelev2, key = ilev_2
80     #endif /* ALLOW_OBCS_PRESCRIBE */
81     #endif /* ALLOW_OBCS_NORTH */
82     #ifdef ALLOW_OBCS_SOUTH
83     CADJ STORE OBSptr = tapelev2, key = ilev_2
84     #ifdef ALLOW_OBCS_PRESCRIBE
85     CADJ STORE OBSptr0 = tapelev2, key = ilev_2
86     CADJ STORE OBSptr1 = tapelev2, key = ilev_2
87     #endif /* ALLOW_OBCS_PRESCRIBE */
88     #endif /* ALLOW_OBCS_SOUTH */
89     #ifdef ALLOW_OBCS_EAST
90     CADJ STORE OBEptr = tapelev2, key = ilev_2
91     #ifdef ALLOW_OBCS_PRESCRIBE
92     CADJ STORE OBEptr0 = tapelev2, key = ilev_2
93     CADJ STORE OBEptr1 = tapelev2, key = ilev_2
94     #endif /* ALLOW_OBCS_PRESCRIBE */
95     #endif /* ALLOW_OBCS_EAST */
96     #ifdef ALLOW_OBCS_WEST
97     CADJ STORE OBWptr = tapelev2, key = ilev_2
98     #ifdef ALLOW_OBCS_PRESCRIBE
99     CADJ STORE OBWptr0 = tapelev2, key = ilev_2
100     CADJ STORE OBWptr1 = tapelev2, key = ilev_2
101     #endif /* ALLOW_OBCS_PRESCRIBE */
102     #endif /* ALLOW_OBCS_WEST */
103     #
104     # endif /* ALLOW_PTRACERS */
105     #
106 heimbach 1.1 #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22