/[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.2.6.1 - (show annotations) (download)
Fri Mar 7 00:36:36 2003 UTC (21 years, 3 months ago) by heimbach
Branch: ecco-branch
CVS Tags: ecco_c50_e32, ecco_c50_e33, ecco_c50_e30, ecco_c50_e31, ecco_c51_e34d, ecco_c51_e34e, ecco_c51_e34f, ecco_c51_e34g, ecco_c51_e34a, ecco_c51_e34b, ecco_c51_e34c, ecco_c50_e29, ecco_c50_e28, ecco_c50_e33a, ecco_c51_e34
Changes since 1.2: +12 -12 lines 
merging c49 and e27.
1
2 CBOP
3 C !ROUTINE: flow directives for active_file.F
4 C !INTERFACE:
5 C !DESCRIPTION: \bv
6 c ==================================================================
7 c active_file.flow
8 c ==================================================================
9 c provides flow directives for routines in active_file.F
10 c required by TAMC/TAF
11 c * active_read_xy
12 c * active_read_xyz
13 c * active_read_xz
14 c * active_read_yz
15 c * active_write_xy
16 c * active_write_xyz
17 c * active_write_xz
18 c * active_write_yz
19 c _tile_ routines are not used nd my not be up-to-date. PH
20 c ==================================================================
21 c active_file.flow
22 c ==================================================================
23 C \ev
24 CEOP
25
26 c----------------------------------------
27 c subroutine active_read_xy
28 c----------------------------------------
29 cadj SUBROUTINE active_read_xy FTLNAME = g_active_read_xy
30 cadj SUBROUTINE active_read_xy ADNAME = adactive_read_xy
31 cadj SUBROUTINE active_read_xy INPUT = 1 , 3, 4, 5, 6, 7, 8
32 cadj SUBROUTINE active_read_xy OUTPUT = 2
33 cadj SUBROUTINE active_read_xy ACTIVE = 2
34 cadj SUBROUTINE active_read_xy DEPEND = 1, 3, 4, 5, 6, 7
35
36 c----------------------------------------
37 c subroutine active_read_xyz
38 c----------------------------------------
39 cadj SUBROUTINE active_read_xyz FTLNAME = g_active_read_xyz
40 cadj SUBROUTINE active_read_xyz ADNAME = adactive_read_xyz
41 cadj SUBROUTINE active_read_xyz INPUT = 1 , 3, 4, 5, 6, 7, 8
42 cadj SUBROUTINE active_read_xyz OUTPUT = 2
43 cadj SUBROUTINE active_read_xyz ACTIVE = 2
44 cadj SUBROUTINE active_read_xyz DEPEND = 1, 3, 4, 5, 6, 7
45
46 c----------------------------------------
47 c subroutine active_read_xz
48 c----------------------------------------
49 cadj SUBROUTINE active_read_xz FTLNAME = g_active_read_xz
50 cadj SUBROUTINE active_read_xz ADNAME = adactive_read_xz
51 cadj SUBROUTINE active_read_xz INPUT = 1 , 3, 4, 5, 6, 7, 8
52 cadj SUBROUTINE active_read_xz OUTPUT = 2
53 cadj SUBROUTINE active_read_xz ACTIVE = 2
54 cadj SUBROUTINE active_read_xz DEPEND = 1, 3, 4, 5, 6, 7
55
56 c----------------------------------------
57 c subroutine active_read_yz
58 c----------------------------------------
59 cadj SUBROUTINE active_read_yz FTLNAME = g_active_read_yz
60 cadj SUBROUTINE active_read_yz ADNAME = adactive_read_yz
61 cadj SUBROUTINE active_read_yz INPUT = 1 , 3, 4, 5, 6, 7, 8
62 cadj SUBROUTINE active_read_yz OUTPUT = 2
63 cadj SUBROUTINE active_read_yz ACTIVE = 2
64 cadj SUBROUTINE active_read_yz DEPEND = 1, 3, 4, 5, 6, 7
65
66 c----------------------------------------
67 c subroutine active_write_xy
68 c----------------------------------------
69 cadj SUBROUTINE active_write_xy FTLNAME = g_active_write_xy
70 cadj SUBROUTINE active_write_xy ADNAME = adactive_write_xy
71 cadj SUBROUTINE active_write_xy INPUT = 1, 2, 3, 4, 5, 6
72 cadj SUBROUTINE active_write_xy OUTPUT = 6
73 cadj SUBROUTINE active_write_xy ACTIVE = 2 , 6
74 cadj SUBROUTINE active_write_xy DEPEND = 1, 3, 4, 5
75
76 c----------------------------------------
77 c subroutine active_write_xyz
78 c----------------------------------------
79 cadj SUBROUTINE active_write_xyz FTLNAME = g_active_write_xyz
80 cadj SUBROUTINE active_write_xyz ADNAME = adactive_write_xyz
81 cadj SUBROUTINE active_write_xyz INPUT = 1, 2, 3, 4, 5, 6
82 cadj SUBROUTINE active_write_xyz OUTPUT = 6
83 cadj SUBROUTINE active_write_xyz ACTIVE = 2 , 6
84 cadj SUBROUTINE active_write_xyz DEPEND = 1, 3, 4, 5
85
86 c----------------------------------------
87 c subroutine active_write_xz
88 c----------------------------------------
89 cadj SUBROUTINE active_write_xz FTLNAME = g_active_write_xz
90 cadj SUBROUTINE active_write_xz ADNAME = adactive_write_xz
91 cadj SUBROUTINE active_write_xz INPUT = 1 , 3, 4, 5, 6, 7, 8
92 cadj SUBROUTINE active_write_xz OUTPUT = 2
93 cadj SUBROUTINE active_write_xz ACTIVE = 2
94 cadj SUBROUTINE active_write_xz DEPEND = 1, 3, 4, 5, 6, 7
95
96 c----------------------------------------
97 c subroutine active_write_yz
98 c----------------------------------------
99 cadj SUBROUTINE active_write_yz FTLNAME = g_active_write_yz
100 cadj SUBROUTINE active_write_yz ADNAME = adactive_write_yz
101 cadj SUBROUTINE active_write_yz INPUT = 1 , 3, 4, 5, 6, 7, 8
102 cadj SUBROUTINE active_write_yz OUTPUT = 2
103 cadj SUBROUTINE active_write_yz ACTIVE = 2
104 cadj SUBROUTINE active_write_yz DEPEND = 1, 3, 4, 5, 6, 7
105
106 c----------------------------------------
107 c subroutine active_read_tile_xy
108 c----------------------------------------
109 cadj SUBROUTINE active_read_tile_xy FTLNAME = g_active_read_tile_xy
110 cadj SUBROUTINE active_read_tile_xy ADNAME = adactive_read_tile_xy
111 cadj SUBROUTINE active_read_tile_xy INPUT = 1 , 3, 4, 5, 6, 7, 8, 9
112 cadj SUBROUTINE active_read_tile_xy OUTPUT = 2
113 cadj SUBROUTINE active_read_tile_xy ACTIVE = 2
114 cadj SUBROUTINE active_read_tile_xy DEPEND = 1, 3, 4, 5, 6, 7, 8, 9
115
116 c----------------------------------------
117 c subroutine active_read_tile_xyz
118 c----------------------------------------
119 cadj SUBROUTINE active_read_tile_xyz FTLNAME = g_active_read_tile_xyz
120 cadj SUBROUTINE active_read_tile_xyz ADNAME = adactive_read_tile_xyz
121 cadj SUBROUTINE active_read_tile_xyz INPUT = 1 , 3, 4, 5, 6, 7, 8, 9
122 cadj SUBROUTINE active_read_tile_xyz OUTPUT = 2
123 cadj SUBROUTINE active_read_tile_xyz ACTIVE = 2
124 cadj SUBROUTINE active_read_tile_xyz DEPEND = 1, 3, 4, 5, 6, 7, 8, 9
125
126 c----------------------------------------
127 c subroutine active_write_tile_xy
128 c----------------------------------------
129 cadj SUBROUTINE active_write_tile_xy FTLNAME = g_active_write_tile_xy
130 cadj SUBROUTINE active_write_tile_xy ADNAME = adactive_write_tile_xy
131 cadj SUBROUTINE active_write_tile_xy INPUT = 1, 2, 3, 4, 5, 6, 7
132 cadj SUBROUTINE active_write_tile_xy OUTPUT =
133 cadj SUBROUTINE active_write_tile_xy ACTIVE = 2
134 cadj SUBROUTINE active_write_tile_xy DEPEND = 1, 3, 4, 5, 6, 7
135
136 c----------------------------------------
137 c subroutine active_write_tile_xyz
138 c----------------------------------------
139 cadj SUBROUTINE active_write_tile_xyz FTLNAME = g_active_write_tile_xyz
140 cadj SUBROUTINE active_write_tile_xyz ADNAME = adactive_write_tile_xyz
141 cadj SUBROUTINE active_write_tile_xyz INPUT = 1, 2, 3, 4, 5, 6, 7
142 cadj SUBROUTINE active_write_tile_xyz OUTPUT =
143 cadj SUBROUTINE active_write_tile_xyz ACTIVE = 2
144 cadj SUBROUTINE active_write_tile_xyz DEPEND = 1, 3, 4, 5, 6, 7
  ViewVC Help
Powered by ViewVC 1.1.22