/[MITgcm]/MITgcm/pkg/autodiff/active_file.flow
ViewVC logotype

Annotation of /MITgcm/pkg/autodiff/active_file.flow

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

Revision 1.1 - (hide annotations) (download)
Sun Mar 25 22:33:53 2001 UTC (24 years, 3 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint38, checkpoint40pre2, checkpoint40pre4, c37_adj, checkpoint39, checkpoint40pre5, checkpoint42, checkpoint40, checkpoint41 
Modifications and additions to enable automatic differentiation.
Detailed info's in doc/notes_c37_adj.txt
1 heimbach 1.1
2     c----------------------------------------
3     c subroutine active_read_xy
4     c----------------------------------------
5     cadj SUBROUTINE active_read_xy FTLNAME = active_read_xy
6     cadj SUBROUTINE active_read_xy ADNAME = adactive_read_xy
7     cadj SUBROUTINE active_read_xy INPUT = 1 , 3, 4, 5, 6, 7, 8
8     cadj SUBROUTINE active_read_xy OUTPUT = 2
9     cadj SUBROUTINE active_read_xy ACTIVE = 2
10     cadj SUBROUTINE active_read_xy DEPEND = 1, 3, 4, 5, 6, 7
11    
12     c----------------------------------------
13     c subroutine active_read_xyz
14     c----------------------------------------
15     cadj SUBROUTINE active_read_xyz FTLNAME = active_read_xyz
16     cadj SUBROUTINE active_read_xyz ADNAME = adactive_read_xyz
17     cadj SUBROUTINE active_read_xyz INPUT = 1 , 3, 4, 5, 6, 7, 8
18     cadj SUBROUTINE active_read_xyz OUTPUT = 2
19     cadj SUBROUTINE active_read_xyz ACTIVE = 2
20     cadj SUBROUTINE active_read_xyz DEPEND = 1, 3, 4, 5, 6, 7
21    
22     c----------------------------------------
23     c subroutine active_read_xz
24     c----------------------------------------
25     cadj SUBROUTINE active_read_xz FTLNAME = active_read_xz
26     cadj SUBROUTINE active_read_xz ADNAME = adactive_read_xz
27     cadj SUBROUTINE active_read_xz INPUT = 1 , 3, 4, 5, 6, 7, 8
28     cadj SUBROUTINE active_read_xz OUTPUT = 2
29     cadj SUBROUTINE active_read_xz ACTIVE = 2
30     cadj SUBROUTINE active_read_xz DEPEND = 1, 3, 4, 5, 6, 7
31    
32     c----------------------------------------
33     c subroutine active_read_yz
34     c----------------------------------------
35     cadj SUBROUTINE active_read_yz FTLNAME = active_read_yz
36     cadj SUBROUTINE active_read_yz ADNAME = adactive_read_yz
37     cadj SUBROUTINE active_read_yz INPUT = 1 , 3, 4, 5, 6, 7, 8
38     cadj SUBROUTINE active_read_yz OUTPUT = 2
39     cadj SUBROUTINE active_read_yz ACTIVE = 2
40     cadj SUBROUTINE active_read_yz DEPEND = 1, 3, 4, 5, 6, 7
41    
42     c----------------------------------------
43     c subroutine active_write_xy
44     c----------------------------------------
45     cadj SUBROUTINE active_write_xy FTLNAME = active_write_xy
46     cadj SUBROUTINE active_write_xy ADNAME = adactive_write_xy
47     cadj SUBROUTINE active_write_xy INPUT = 1, 2, 3, 4, 5, 6
48     cadj SUBROUTINE active_write_xy OUTPUT = 6
49     cadj SUBROUTINE active_write_xy ACTIVE = 2 , 6
50     cadj SUBROUTINE active_write_xy DEPEND = 1, 3, 4, 5
51    
52     c----------------------------------------
53     c subroutine active_write_xyz
54     c----------------------------------------
55     cadj SUBROUTINE active_write_xyz FTLNAME = active_write_xyz
56     cadj SUBROUTINE active_write_xyz ADNAME = adactive_write_xyz
57     cadj SUBROUTINE active_write_xyz INPUT = 1, 2, 3, 4, 5, 6
58     cadj SUBROUTINE active_write_xyz OUTPUT = 6
59     cadj SUBROUTINE active_write_xyz ACTIVE = 2 , 6
60     cadj SUBROUTINE active_write_xyz DEPEND = 1, 3, 4, 5
61    
62     c----------------------------------------
63     c subroutine active_write_xz
64     c----------------------------------------
65     cadj SUBROUTINE active_write_xz FTLNAME = active_write_xz
66     cadj SUBROUTINE active_write_xz ADNAME = adactive_write_xz
67     cadj SUBROUTINE active_write_xz INPUT = 1 , 3, 4, 5, 6, 7, 8
68     cadj SUBROUTINE active_write_xz OUTPUT = 2
69     cadj SUBROUTINE active_write_xz ACTIVE = 2
70     cadj SUBROUTINE active_write_xz DEPEND = 1, 3, 4, 5, 6, 7
71    
72     c----------------------------------------
73     c subroutine active_write_yz
74     c----------------------------------------
75     cadj SUBROUTINE active_write_yz FTLNAME = active_write_yz
76     cadj SUBROUTINE active_write_yz ADNAME = adactive_write_yz
77     cadj SUBROUTINE active_write_yz INPUT = 1 , 3, 4, 5, 6, 7, 8
78     cadj SUBROUTINE active_write_yz OUTPUT = 2
79     cadj SUBROUTINE active_write_yz ACTIVE = 2
80     cadj SUBROUTINE active_write_yz DEPEND = 1, 3, 4, 5, 6, 7
81    
82     c----------------------------------------
83     c subroutine active_read_tile_xy
84     c----------------------------------------
85     cadj SUBROUTINE active_read_tile_xy FTLNAME = active_read_tile_xy
86     cadj SUBROUTINE active_read_tile_xy ADNAME = adactive_read_tile_xy
87     cadj SUBROUTINE active_read_tile_xy INPUT = 1 , 3, 4, 5, 6, 7, 8, 9
88     cadj SUBROUTINE active_read_tile_xy OUTPUT = 2
89     cadj SUBROUTINE active_read_tile_xy ACTIVE = 2
90     cadj SUBROUTINE active_read_tile_xy DEPEND = 1, 3, 4, 5, 6, 7, 8, 9
91    
92     c----------------------------------------
93     c subroutine active_read_tile_xyz
94     c----------------------------------------
95     cadj SUBROUTINE active_read_tile_xyz FTLNAME = active_read_tile_xyz
96     cadj SUBROUTINE active_read_tile_xyz ADNAME = adactive_read_tile_xyz
97     cadj SUBROUTINE active_read_tile_xyz INPUT = 1 , 3, 4, 5, 6, 7, 8, 9
98     cadj SUBROUTINE active_read_tile_xyz OUTPUT = 2
99     cadj SUBROUTINE active_read_tile_xyz ACTIVE = 2
100     cadj SUBROUTINE active_read_tile_xyz DEPEND = 1, 3, 4, 5, 6, 7, 8, 9
101    
102     c----------------------------------------
103     c subroutine active_write_tile_xy
104     c----------------------------------------
105     cadj SUBROUTINE active_write_tile_xy FTLNAME = active_write_tile_xy
106     cadj SUBROUTINE active_write_tile_xy ADNAME = adactive_write_tile_xy
107     cadj SUBROUTINE active_write_tile_xy INPUT = 1, 2, 3, 4, 5, 6, 7
108     cadj SUBROUTINE active_write_tile_xy OUTPUT =
109     cadj SUBROUTINE active_write_tile_xy ACTIVE = 2
110     cadj SUBROUTINE active_write_tile_xy DEPEND = 1, 3, 4, 5, 6, 7
111    
112     c----------------------------------------
113     c subroutine active_write_tile_xyz
114     c----------------------------------------
115     cadj SUBROUTINE active_write_tile_xyz FTLNAME = active_write_tile_xyz
116     cadj SUBROUTINE active_write_tile_xyz ADNAME = adactive_write_tile_xyz
117     cadj SUBROUTINE active_write_tile_xyz INPUT = 1, 2, 3, 4, 5, 6, 7
118     cadj SUBROUTINE active_write_tile_xyz OUTPUT =
119     cadj SUBROUTINE active_write_tile_xyz ACTIVE = 2
120     cadj SUBROUTINE active_write_tile_xyz DEPEND = 1, 3, 4, 5, 6, 7
  ViewVC Help
Powered by ViewVC 1.1.22