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

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

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

Revision 1.3 - (hide annotations) (download)
Fri Jun 1 23:30:16 2007 UTC (17 years ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59c, checkpoint59h
Changes since 1.2: +4 -56 lines
File MIME type: text/plain 
Re-organized adjoint checkpointing according to Matt Mazloff
(but with modifs/completions/cleanups)
Storing is now bundled into large arrays to optimized I/O
(and second step in cleanup of the_main_loop)
1 heimbach 1.1 #ifdef ALLOW_OBCS
2     #
3     CADJ STORE shiftvel = tapelev3, key = ilev_3
4     #
5     # ifdef ALLOW_OBCS_NORTH
6 heimbach 1.3 CADJ STORE StoreOBCSN = tapelev3, key = ilev_3
7 heimbach 1.1 # endif /* ALLOW_OBCS_NORTH */
8     #
9     # ifdef ALLOW_OBCS_SOUTH
10 heimbach 1.3 CADJ STORE StoreOBCSS = tapelev3, key = ilev_3
11 heimbach 1.1 # endif /* ALLOW_OBCS_SOUTH */
12     #
13     # ifdef ALLOW_OBCS_EAST
14 heimbach 1.3 CADJ STORE StoreOBCSE = tapelev3, key = ilev_3
15 heimbach 1.1 # endif /* ALLOW_OBCS_EAST */
16     #
17     # ifdef ALLOW_OBCS_WEST
18 heimbach 1.3 CADJ STORE StoreOBCSW = tapelev3, key = ilev_3
19 heimbach 1.1 # endif /* ALLOW_OBCS_WEST */
20     #
21 heimbach 1.2 # ifdef ALLOW_PTRACERS
22     #
23     #ifdef ALLOW_OBCS_NORTH
24     CADJ STORE OBNptr = tapelev3, key = ilev_3
25     #ifdef ALLOW_OBCS_PRESCRIBE
26     CADJ STORE OBNptr0 = tapelev3, key = ilev_3
27     CADJ STORE OBNptr1 = tapelev3, key = ilev_3
28     #endif /* ALLOW_OBCS_PRESCRIBE */
29     #endif /* ALLOW_OBCS_NORTH */
30     #ifdef ALLOW_OBCS_SOUTH
31     CADJ STORE OBSptr = tapelev3, key = ilev_3
32     #ifdef ALLOW_OBCS_PRESCRIBE
33     CADJ STORE OBSptr0 = tapelev3, key = ilev_3
34     CADJ STORE OBSptr1 = tapelev3, key = ilev_3
35     #endif /* ALLOW_OBCS_PRESCRIBE */
36     #endif /* ALLOW_OBCS_SOUTH */
37     #ifdef ALLOW_OBCS_EAST
38     CADJ STORE OBEptr = tapelev3, key = ilev_3
39     #ifdef ALLOW_OBCS_PRESCRIBE
40     CADJ STORE OBEptr0 = tapelev3, key = ilev_3
41     CADJ STORE OBEptr1 = tapelev3, key = ilev_3
42     #endif /* ALLOW_OBCS_PRESCRIBE */
43     #endif /* ALLOW_OBCS_EAST */
44     #ifdef ALLOW_OBCS_WEST
45     CADJ STORE OBWptr = tapelev3, key = ilev_3
46     #ifdef ALLOW_OBCS_PRESCRIBE
47     CADJ STORE OBWptr0 = tapelev3, key = ilev_3
48     CADJ STORE OBWptr1 = tapelev3, key = ilev_3
49     #endif /* ALLOW_OBCS_PRESCRIBE */
50     #endif /* ALLOW_OBCS_WEST */
51     #
52     # endif /* ALLOW_PTRACERS */
53     #
54 heimbach 1.1 #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22