/[MITgcm]/MITgcm/eesupp/src/eesupp.flow
ViewVC logotype

Contents of /MITgcm/eesupp/src/eesupp.flow

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

Revision 1.15 - (show annotations) (download)
Tue Jul 15 22:00:28 2014 UTC (9 years, 9 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint65, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, HEAD
Changes since 1.14: +11 -5 lines 
new version "FOOL_THE_COMPILER_RL" with _RL argument
1 C $Header: /u/gcmpack/MITgcm/eesupp/src/eesupp.flow,v 1.14 2010/12/13 04:05:15 jmc Exp $
2 C $Name: $
3
4 C---------------------------------------------------------------
5 C Subroutine barrier is difficult to handle,
6 C it is required but it does not compute values.
7 C TAMC has been extended to handle such routines
8 C REQUIRED means the call will be included for recomputations
9 C INFLUENCED means if also required
10 C the adjoint routine will be called
11 C---------------------------------------------------------------
12 CADJ SUBROUTINE BARRIER INPUT = 1
13 CADJ SUBROUTINE BARRIER OUTPUT =
14 CADJ SUBROUTINE BARRIER REQUIRED
15 CADJ SUBROUTINE BARRIER INFLUENCED
16 CADJ SUBROUTINE BARRIER ADNAME = BARRIER
17 CADJ SUBROUTINE BARRIER FTLNAME = BARRIER
18 CADJ SUBROUTINE BARRIER DEPEND = 1
19
20 CADJ SUBROUTINE FOOL_THE_COMPILER INPUT = 1
21 CADJ SUBROUTINE FOOL_THE_COMPILER OUTPUT =
22 CADJ SUBROUTINE FOOL_THE_COMPILER REQUIRED
23 CADJ SUBROUTINE FOOL_THE_COMPILER INFLUENCED
24 CADJ SUBROUTINE FOOL_THE_COMPILER ADNAME = FOOL_THE_COMPILER
25 CADJ SUBROUTINE FOOL_THE_COMPILER FTLNAME = FOOL_THE_COMPILER
26 CADJ SUBROUTINE FOOL_THE_COMPILER DEPEND = 1
27
28 CADJ SUBROUTINE FOOL_THE_COMPILER_RL INPUT = 1
29 CADJ SUBROUTINE FOOL_THE_COMPILER_RL OUTPUT =
30 CADJ SUBROUTINE FOOL_THE_COMPILER_RL REQUIRED
31 CADJ SUBROUTINE FOOL_THE_COMPILER_RL INFLUENCED
32 CADJ SUBROUTINE FOOL_THE_COMPILER_RL ADNAME = FOOL_THE_COMPILER_RL
33 CADJ SUBROUTINE FOOL_THE_COMPILER_RL FTLNAME = FOOL_THE_COMPILER_RL
34 CADJ SUBROUTINE FOOL_THE_COMPILER_RL DEPEND = 1
35
36 CADJ SUBROUTINE MEMSYNC INPUT =
37 CADJ SUBROUTINE MEMSYNC OUTPUT =
38 CADJ SUBROUTINE MEMSYNC REQUIRED
39 CADJ SUBROUTINE MEMSYNC INFLUENCED
40 CADJ SUBROUTINE MEMSYNC ADNAME = MEMSYNC
41 CADJ SUBROUTINE MEMSYNC FTLNAME = MEMSYNC
42 CADJ SUBROUTINE MEMSYNC DEPEND =
43
44 CADJ SUBROUTINE BARRIER_INIT INPUT =
45 CADJ SUBROUTINE BARRIER_INIT OUTPUT =
46
47 CADJ SUBROUTINE BAR2 INPUT = 1
48 CADJ SUBROUTINE BAR2 OUTPUT =
49
50 CADJ SUBROUTINE BAR2_INIT INPUT = 1
51 CADJ SUBROUTINE BAR2_INIT OUTPUT =
52
53 CADJ SUBROUTINE BAR_CHECK INPUT = 1,2
54 CADJ SUBROUTINE BAR_CHECK OUTPUT =
55
56 CADJ SUBROUTINE CHECK_THREADS INPUT = 1
57 CADJ SUBROUTINE CHECK_THREADS OUTPUT =
58
59 CADJ SUBROUTINE EEDIE INPUT =
60 CADJ SUBROUTINE EEDIE OUTPUT =
61
62 CADJ SUBROUTINE ALL_PROC_DIE INPUT = 1
63 CADJ SUBROUTINE ALL_PROC_DIE OUTPUT =
64
65 CADJ FUNCTION TIMER_INDEX INPUT = 1,2,3,4
66 CADJ FUNCTION TIMER_INDEX OUTPUT =
67
68 CADJ SUBROUTINE TIMER_CONTROL INPUT = 1,2,3,4
69 CADJ SUBROUTINE TIMER_CONTROL OUTPUT =
70
71 CADJ SUBROUTINE TIMER_GET_TIME INPUT =
72 CADJ SUBROUTINE TIMER_GET_TIME OUTPUT = 1,2,3
73
74 CADJ SUBROUTINE TIMER_PRINTALL INPUT = 1
75 CADJ SUBROUTINE TIMER_PRINTALL OUTPUT =
76
77 CADJ SUBROUTINE TIMER_START INPUT = 1,2
78 CADJ SUBROUTINE TIMER_START OUTPUT =
79
80 CADJ SUBROUTINE TIMER_STOP INPUT = 1,2
81 CADJ SUBROUTINE TIMER_STOP OUTPUT =
82
83 CADJ SUBROUTINE PAPIF_flops INPUT =
84 CADJ SUBROUTINE PAPIF_flops OUTPUT = 1,2,3,4,5
85
86 CADJ SUBROUTINE PAPIF_flips INPUT =
87 CADJ SUBROUTINE PAPIF_flips OUTPUT = 1,2,3,4,5
88
89 CADJ SUBROUTINE PAPIF_ipc INPUT =
90 CADJ SUBROUTINE PAPIF_ipc OUTPUT = 1,2,3,4,5
91
92 CADJ FUNCTION PCLstart INPUT = 1,2,3,4
93 CADJ FUNCTION PCLstart OUTPUT =
94
95 CADJ FUNCTION PCLstop INPUT = 1,4
96 CADJ FUNCTION PCLstop OUTPUT = 2,3
97
98 CADJ SUBROUTINE DATE INPUT = 2
99 CADJ SUBROUTINE DATE OUTPUT = 1
100
101 CADJ SUBROUTINE LCASE INPUT = 1
102 CADJ SUBROUTINE LCASE OUTPUT = 1
103
104 CADJ SUBROUTINE UCASE INPUT = 1
105 CADJ SUBROUTINE UCASE OUTPUT = 1
106
107 CADJ SUBROUTINE MACHINE INPUT =
108 CADJ SUBROUTINE MACHINE OUTPUT = 1
109
110 CADJ FUNCTION IFNBLNK INPUT = 1
111 CADJ FUNCTION IFNBLNK OUTPUT =
112
113 CADJ FUNCTION ILNBLNK INPUT = 1
114 CADJ FUNCTION ILNBLNK OUTPUT =
115
116 CADJ FUNCTION IO_ERRCOUNT INPUT = 1
117 CADJ FUNCTION IO_ERRCOUNT OUTPUT =
118
119 CADJ SUBROUTINE READ_FIELD_XYZR8 INPUT = 2,3,4
120 CADJ SUBROUTINE READ_FIELD_XYZR8 OUTPUT = 1
121
122 CADJ SUBROUTINE WRITE_FIELD_XYZR8 INPUT = 1,2,3,4
123 CADJ SUBROUTINE WRITE_FIELD_XYZR8 OUTPUT =
124
125 CADJ SUBROUTINE PRINT_MESSAGE INPUT = 1,2,3,4
126 CADJ SUBROUTINE PRINT_MESSAGE OUTPUT =
127
128 CADJ SUBROUTINE PRINT_ERROR INPUT = 1,2
129 CADJ SUBROUTINE PRINT_ERROR OUTPUT =
130
131 CADJ SUBROUTINE PRINT_LIST_I INPUT = 1,2,3,4,5,6,7
132 CADJ SUBROUTINE PRINT_LIST_I OUTPUT =
133
134 CADJ SUBROUTINE PRINT_LIST_L INPUT = 1,2,3,4,5,6,7
135 CADJ SUBROUTINE PRINT_LIST_L OUTPUT =
136
137 CADJ SUBROUTINE PRINT_LIST_RL INPUT = 1,2,3,4,5,6,7
138 CADJ SUBROUTINE PRINT_LIST_RL OUTPUT =
139
140 CADJ SUBROUTINE PRINT_MAPRS INPUT = 1,2,3,4,5,6,7,8,9,10
141 CADJ SUBROUTINE PRINT_MAPRS INPUT += 11,12,13,14,15,16,17,18,19,20
142 CADJ SUBROUTINE PRINT_MAPRS INPUT += 21,22,23,24,25,26
143 CADJ SUBROUTINE PRINT_MAPRS OUTPUT =
144
145 CADJ SUBROUTINE PRINT_MAPRL INPUT = 1,2,3,4,5,6,7,8,9,10
146 CADJ SUBROUTINE PRINT_MAPRL INPUT += 11,12,13,14,15,16,17,18,19,20
147 CADJ SUBROUTINE PRINT_MAPRL INPUT += 21,22,23,24,25,26
148 CADJ SUBROUTINE PRINT_MAPRL OUTPUT =
149
150 CADJ SUBROUTINE mdsfindunit INPUT = 2
151 CADJ SUBROUTINE mdsfindunit OUTPUT = 1
152
153 CADJ SUBROUTINE mds_byteswapr8 INPUT = 1,2
154 CADJ SUBROUTINE mds_byteswapr8 OUTPUT = 2
155
156 CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2
157 CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2
158
159 CADJ FUNCTION MASTER_CPU_IO INPUT = 1
160 CADJ FUNCTION MASTER_CPU_IO OUTPUT =
161
162 CADJ FUNCTION MASTER_CPU_THREAD INPUT = 1
163 CADJ FUNCTION MASTER_CPU_THREAD OUTPUT =
164
165 C----------------------------------------
166 C subroutine open_copy_data_file
167 C----------------------------------------
168 CADJ SUBROUTINE OPEN_COPY_DATA_FILE INPUT = 1,2, 4
169 CADJ SUBROUTINE OPEN_COPY_DATA_FILE OUTPUT = 3
170
171 C-------------------------------------------------------
172 C-- formerly in pkg/autodiff/write_utils.flow (previously: read_write.flow)
173
174 C----------------------------------------
175 C subroutine write_1d_i
176 C----------------------------------------
177 CADJ SUBROUTINE WRITE_1D_I INPUT = 1,2,3,4,5
178 CADJ SUBROUTINE WRITE_1D_I OUTPUT =
179
180 C----------------------------------------
181 C subroutine write_1d_l
182 C----------------------------------------
183 CADJ SUBROUTINE WRITE_1D_L INPUT = 1,2,3,4,5
184 CADJ SUBROUTINE WRITE_1D_L OUTPUT =
185
186 C----------------------------------------
187 C subroutine write_1d_rl
188 C----------------------------------------
189 CADJ SUBROUTINE WRITE_1D_RL INPUT = 1,2,3,4,5
190 CADJ SUBROUTINE WRITE_1D_RL OUTPUT =
191
192 C----------------------------------------
193 C subroutine write_0d_i
194 C----------------------------------------
195 CADJ SUBROUTINE WRITE_0D_I INPUT = 1,2,3,4
196 CADJ SUBROUTINE WRITE_0D_I OUTPUT =
197
198 C----------------------------------------
199 C subroutine write_0d_l
200 C----------------------------------------
201 CADJ SUBROUTINE WRITE_0D_L INPUT = 1,2,3,4
202 CADJ SUBROUTINE WRITE_0D_L OUTPUT =
203
204 C----------------------------------------
205 C subroutine write_0d_r4
206 C----------------------------------------
207 CADJ SUBROUTINE WRITE_0D_R4 INPUT = 1,2,3,4
208 CADJ SUBROUTINE WRITE_0D_R4 OUTPUT =
209
210 C----------------------------------------
211 C subroutine write_0d_r8
212 C----------------------------------------
213 CADJ SUBROUTINE WRITE_0D_R8 INPUT = 1,2,3,4
214 CADJ SUBROUTINE WRITE_0D_R8 OUTPUT =
215
216 C----------------------------------------
217 C subroutine write_0d_rs
218 C----------------------------------------
219 CADJ SUBROUTINE WRITE_0D_RS INPUT = 1,2,3,4
220 CADJ SUBROUTINE WRITE_0D_RS OUTPUT =
221
222 C----------------------------------------
223 C subroutine write_0d_rl
224 C----------------------------------------
225 CADJ SUBROUTINE WRITE_0D_RL INPUT = 1,2,3,4
226 CADJ SUBROUTINE WRITE_0D_RL OUTPUT =
227
228 C----------------------------------------
229 C subroutine write_0d_c
230 C----------------------------------------
231 CADJ SUBROUTINE WRITE_0D_C INPUT = 1,2,3,4,5
232 CADJ SUBROUTINE WRITE_0D_C OUTPUT =
233
234 C----------------------------------------
235 C subroutine write_copy1d_r4
236 C----------------------------------------
237 CADJ SUBROUTINE WRITE_COPY1D_R4 INPUT = 2,3,4,5,6
238 CADJ SUBROUTINE WRITE_COPY1D_R4 OUTPUT = 1
239
240 C----------------------------------------
241 C subroutine write_copy1d_r8
242 C----------------------------------------
243 CADJ SUBROUTINE WRITE_COPY1D_R8 INPUT = 2,3,4,5,6
244 CADJ SUBROUTINE WRITE_COPY1D_R8 OUTPUT = 1
245
246 C----------------------------------------
247 C subroutine write_copy1d_rs
248 C----------------------------------------
249 CADJ SUBROUTINE WRITE_COPY1D_RS INPUT = 2,3,4,5,6
250 CADJ SUBROUTINE WRITE_COPY1D_RS OUTPUT = 1
251
252 C-------------------------------------------------------
  ViewVC Help
Powered by ViewVC 1.1.22