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

Contents 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 - (show 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 #ifdef ALLOW_OBCS
2 #
3 CADJ STORE shiftvel = tapelev3, key = ilev_3
4 #
5 # ifdef ALLOW_OBCS_NORTH
6 CADJ STORE StoreOBCSN = tapelev3, key = ilev_3
7 # endif /* ALLOW_OBCS_NORTH */
8 #
9 # ifdef ALLOW_OBCS_SOUTH
10 CADJ STORE StoreOBCSS = tapelev3, key = ilev_3
11 # endif /* ALLOW_OBCS_SOUTH */
12 #
13 # ifdef ALLOW_OBCS_EAST
14 CADJ STORE StoreOBCSE = tapelev3, key = ilev_3
15 # endif /* ALLOW_OBCS_EAST */
16 #
17 # ifdef ALLOW_OBCS_WEST
18 CADJ STORE StoreOBCSW = tapelev3, key = ilev_3
19 # endif /* ALLOW_OBCS_WEST */
20 #
21 # 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 #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22