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

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

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

Revision 1.1 - (show 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
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