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

Annotation of /MITgcm/eesupp/src/eesupp.flow

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

Revision 1.15 - (hide annotations) (download)
Tue Jul 15 22:00:28 2014 UTC (9 years, 10 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 jmc 1.15 C $Header: /u/gcmpack/MITgcm/eesupp/src/eesupp.flow,v 1.14 2010/12/13 04:05:15 jmc Exp $
2 jmc 1.8 C $Name: $
3    
4 heimbach 1.1 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 heimbach 1.6 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 jmc 1.15 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 heimbach 1.6 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 heimbach 1.1 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 ce107 1.4 CADJ SUBROUTINE BAR_CHECK INPUT = 1,2
54 jmc 1.15 CADJ SUBROUTINE BAR_CHECK OUTPUT =
55 ce107 1.4
56 heimbach 1.1 CADJ SUBROUTINE CHECK_THREADS INPUT = 1
57 jmc 1.15 CADJ SUBROUTINE CHECK_THREADS OUTPUT =
58 heimbach 1.1
59     CADJ SUBROUTINE EEDIE INPUT =
60     CADJ SUBROUTINE EEDIE OUTPUT =
61    
62 jmc 1.13 CADJ SUBROUTINE ALL_PROC_DIE INPUT = 1
63     CADJ SUBROUTINE ALL_PROC_DIE OUTPUT =
64    
65 heimbach 1.1 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 ce107 1.3 CADJ SUBROUTINE PAPIF_flops INPUT =
84     CADJ SUBROUTINE PAPIF_flops OUTPUT = 1,2,3,4,5
85 heimbach 1.1
86 ce107 1.7 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 heimbach 1.1 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 jmc 1.10 CADJ SUBROUTINE PRINT_MESSAGE INPUT = 1,2,3,4
126     CADJ SUBROUTINE PRINT_MESSAGE OUTPUT =
127    
128 heimbach 1.1 CADJ SUBROUTINE PRINT_ERROR INPUT = 1,2
129     CADJ SUBROUTINE PRINT_ERROR OUTPUT =
130    
131 jmc 1.10 CADJ SUBROUTINE PRINT_LIST_I INPUT = 1,2,3,4,5,6,7
132 heimbach 1.1 CADJ SUBROUTINE PRINT_LIST_I OUTPUT =
133    
134 jmc 1.10 CADJ SUBROUTINE PRINT_LIST_L INPUT = 1,2,3,4,5,6,7
135 heimbach 1.1 CADJ SUBROUTINE PRINT_LIST_L OUTPUT =
136    
137 jmc 1.11 CADJ SUBROUTINE PRINT_LIST_RL INPUT = 1,2,3,4,5,6,7
138     CADJ SUBROUTINE PRINT_LIST_RL OUTPUT =
139 heimbach 1.1
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 jmc 1.2 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 heimbach 1.5 CADJ FUNCTION MASTER_CPU_IO INPUT = 1
160     CADJ FUNCTION MASTER_CPU_IO OUTPUT =
161 dimitri 1.9
162     CADJ FUNCTION MASTER_CPU_THREAD INPUT = 1
163     CADJ FUNCTION MASTER_CPU_THREAD OUTPUT =
164 jmc 1.12
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