/[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.13 - (hide annotations) (download)
Tue May 26 22:56:32 2009 UTC (15 years ago) by jmc
Branch: MAIN
CVS Tags: checkpoint62, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.12: +4 -1 lines 
new S/R ALL_PROC_DIE: like eedie but without the threads check and error msg.
1 jmc 1.13 C $Header: /u/gcmpack/MITgcm/eesupp/src/eesupp.flow,v 1.12 2009/05/07 19:05:30 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     CADJ SUBROUTINE MEMSYNC INPUT =
29     CADJ SUBROUTINE MEMSYNC OUTPUT =
30     CADJ SUBROUTINE MEMSYNC REQUIRED
31     CADJ SUBROUTINE MEMSYNC INFLUENCED
32     CADJ SUBROUTINE MEMSYNC ADNAME = MEMSYNC
33     CADJ SUBROUTINE MEMSYNC FTLNAME = MEMSYNC
34     CADJ SUBROUTINE MEMSYNC DEPEND =
35    
36 heimbach 1.1 CADJ SUBROUTINE BARRIER_INIT INPUT =
37     CADJ SUBROUTINE BARRIER_INIT OUTPUT =
38    
39     CADJ SUBROUTINE BAR2 INPUT = 1
40     CADJ SUBROUTINE BAR2 OUTPUT =
41    
42     CADJ SUBROUTINE BAR2_INIT INPUT = 1
43     CADJ SUBROUTINE BAR2_INIT OUTPUT =
44    
45 ce107 1.4 CADJ SUBROUTINE BAR_CHECK INPUT = 1,2
46     CADJ SUBROUTINE BAR_CHECK OUTPUT =
47    
48 heimbach 1.1 CADJ SUBROUTINE CHECK_THREADS INPUT = 1
49     CADJ SUBROUTINE CHECK_THREADS OUTPUT =
50    
51     CADJ SUBROUTINE EEDIE INPUT =
52     CADJ SUBROUTINE EEDIE OUTPUT =
53    
54 jmc 1.13 CADJ SUBROUTINE ALL_PROC_DIE INPUT = 1
55     CADJ SUBROUTINE ALL_PROC_DIE OUTPUT =
56    
57 heimbach 1.1
58     CADJ FUNCTION TIMER_INDEX INPUT = 1,2,3,4
59     CADJ FUNCTION TIMER_INDEX OUTPUT =
60    
61     CADJ SUBROUTINE TIMER_CONTROL INPUT = 1,2,3,4
62     CADJ SUBROUTINE TIMER_CONTROL OUTPUT =
63    
64     CADJ SUBROUTINE TIMER_GET_TIME INPUT =
65     CADJ SUBROUTINE TIMER_GET_TIME OUTPUT = 1,2,3
66    
67     CADJ SUBROUTINE TIMER_PRINTALL INPUT = 1
68     CADJ SUBROUTINE TIMER_PRINTALL OUTPUT =
69    
70     CADJ SUBROUTINE TIMER_START INPUT = 1,2
71     CADJ SUBROUTINE TIMER_START OUTPUT =
72    
73     CADJ SUBROUTINE TIMER_STOP INPUT = 1,2
74     CADJ SUBROUTINE TIMER_STOP OUTPUT =
75    
76 ce107 1.3 CADJ SUBROUTINE PAPIF_flops INPUT =
77     CADJ SUBROUTINE PAPIF_flops OUTPUT = 1,2,3,4,5
78 heimbach 1.1
79 ce107 1.7 CADJ SUBROUTINE PAPIF_flips INPUT =
80     CADJ SUBROUTINE PAPIF_flips OUTPUT = 1,2,3,4,5
81    
82     CADJ SUBROUTINE PAPIF_ipc INPUT =
83     CADJ SUBROUTINE PAPIF_ipc OUTPUT = 1,2,3,4,5
84    
85     CADJ FUNCTION PCLstart INPUT = 1,2,3,4
86     CADJ FUNCTION PCLstart OUTPUT =
87    
88     CADJ FUNCTION PCLstop INPUT = 1,4
89     CADJ FUNCTION PCLstop OUTPUT = 2,3
90    
91 heimbach 1.1 CADJ SUBROUTINE DATE INPUT = 2
92     CADJ SUBROUTINE DATE OUTPUT = 1
93    
94     CADJ SUBROUTINE LCASE INPUT = 1
95     CADJ SUBROUTINE LCASE OUTPUT = 1
96    
97     CADJ SUBROUTINE UCASE INPUT = 1
98     CADJ SUBROUTINE UCASE OUTPUT = 1
99    
100     CADJ SUBROUTINE MACHINE INPUT =
101     CADJ SUBROUTINE MACHINE OUTPUT = 1
102    
103     CADJ FUNCTION IFNBLNK INPUT = 1
104     CADJ FUNCTION IFNBLNK OUTPUT =
105    
106     CADJ FUNCTION ILNBLNK INPUT = 1
107     CADJ FUNCTION ILNBLNK OUTPUT =
108    
109     CADJ FUNCTION IO_ERRCOUNT INPUT = 1
110     CADJ FUNCTION IO_ERRCOUNT OUTPUT =
111    
112     CADJ SUBROUTINE READ_FIELD_XYZR8 INPUT = 2,3,4
113     CADJ SUBROUTINE READ_FIELD_XYZR8 OUTPUT = 1
114    
115     CADJ SUBROUTINE WRITE_FIELD_XYZR8 INPUT = 1,2,3,4
116     CADJ SUBROUTINE WRITE_FIELD_XYZR8 OUTPUT =
117    
118    
119 jmc 1.10 CADJ SUBROUTINE PRINT_MESSAGE INPUT = 1,2,3,4
120     CADJ SUBROUTINE PRINT_MESSAGE OUTPUT =
121    
122 heimbach 1.1 CADJ SUBROUTINE PRINT_ERROR INPUT = 1,2
123     CADJ SUBROUTINE PRINT_ERROR OUTPUT =
124    
125 jmc 1.10 CADJ SUBROUTINE PRINT_LIST_I INPUT = 1,2,3,4,5,6,7
126 heimbach 1.1 CADJ SUBROUTINE PRINT_LIST_I OUTPUT =
127    
128 jmc 1.10 CADJ SUBROUTINE PRINT_LIST_L INPUT = 1,2,3,4,5,6,7
129 heimbach 1.1 CADJ SUBROUTINE PRINT_LIST_L OUTPUT =
130    
131 jmc 1.11 CADJ SUBROUTINE PRINT_LIST_RL INPUT = 1,2,3,4,5,6,7
132     CADJ SUBROUTINE PRINT_LIST_RL OUTPUT =
133 heimbach 1.1
134     CADJ SUBROUTINE PRINT_MAPRS INPUT = 1,2,3,4,5,6,7,8,9,10
135     CADJ SUBROUTINE PRINT_MAPRS INPUT += 11,12,13,14,15,16,17,18,19,20
136     CADJ SUBROUTINE PRINT_MAPRS INPUT += 21,22,23,24,25,26
137     CADJ SUBROUTINE PRINT_MAPRS OUTPUT =
138    
139     CADJ SUBROUTINE PRINT_MAPRL INPUT = 1,2,3,4,5,6,7,8,9,10
140     CADJ SUBROUTINE PRINT_MAPRL INPUT += 11,12,13,14,15,16,17,18,19,20
141     CADJ SUBROUTINE PRINT_MAPRL INPUT += 21,22,23,24,25,26
142     CADJ SUBROUTINE PRINT_MAPRL OUTPUT =
143    
144     CADJ SUBROUTINE NML_FILTER INPUT = 1,2,3
145     CADJ SUBROUTINE NML_FILTER OUTPUT =
146    
147 jmc 1.2 CADJ SUBROUTINE mdsfindunit INPUT = 2
148     CADJ SUBROUTINE mdsfindunit OUTPUT = 1
149    
150     CADJ SUBROUTINE mds_byteswapr8 INPUT = 1,2
151     CADJ SUBROUTINE mds_byteswapr8 OUTPUT = 2
152    
153     CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2
154     CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2
155    
156 heimbach 1.5 CADJ FUNCTION MASTER_CPU_IO INPUT = 1
157     CADJ FUNCTION MASTER_CPU_IO OUTPUT =
158 dimitri 1.9
159     CADJ FUNCTION MASTER_CPU_THREAD INPUT = 1
160     CADJ FUNCTION MASTER_CPU_THREAD OUTPUT =
161 jmc 1.12
162     C----------------------------------------
163     C subroutine open_copy_data_file
164     C----------------------------------------
165     CADJ SUBROUTINE OPEN_COPY_DATA_FILE INPUT = 1,2, 4
166     CADJ SUBROUTINE OPEN_COPY_DATA_FILE OUTPUT = 3
167    
168     C-------------------------------------------------------
169     C-- formerly in pkg/autodiff/write_utils.flow (previously: read_write.flow)
170    
171     C----------------------------------------
172     C subroutine write_1d_i
173     C----------------------------------------
174     CADJ SUBROUTINE WRITE_1D_I INPUT = 1,2,3,4,5
175     CADJ SUBROUTINE WRITE_1D_I OUTPUT =
176    
177     C----------------------------------------
178     C subroutine write_1d_l
179     C----------------------------------------
180     CADJ SUBROUTINE WRITE_1D_L INPUT = 1,2,3,4,5
181     CADJ SUBROUTINE WRITE_1D_L OUTPUT =
182    
183     C----------------------------------------
184     C subroutine write_1d_rl
185     C----------------------------------------
186     CADJ SUBROUTINE WRITE_1D_RL INPUT = 1,2,3,4,5
187     CADJ SUBROUTINE WRITE_1D_RL OUTPUT =
188    
189     C----------------------------------------
190     C subroutine write_0d_i
191     C----------------------------------------
192     CADJ SUBROUTINE WRITE_0D_I INPUT = 1,2,3,4
193     CADJ SUBROUTINE WRITE_0D_I OUTPUT =
194    
195     C----------------------------------------
196     C subroutine write_0d_l
197     C----------------------------------------
198     CADJ SUBROUTINE WRITE_0D_L INPUT = 1,2,3,4
199     CADJ SUBROUTINE WRITE_0D_L OUTPUT =
200    
201     C----------------------------------------
202     C subroutine write_0d_r4
203     C----------------------------------------
204     CADJ SUBROUTINE WRITE_0D_R4 INPUT = 1,2,3,4
205     CADJ SUBROUTINE WRITE_0D_R4 OUTPUT =
206    
207     C----------------------------------------
208     C subroutine write_0d_r8
209     C----------------------------------------
210     CADJ SUBROUTINE WRITE_0D_R8 INPUT = 1,2,3,4
211     CADJ SUBROUTINE WRITE_0D_R8 OUTPUT =
212    
213     C----------------------------------------
214     C subroutine write_0d_rs
215     C----------------------------------------
216     CADJ SUBROUTINE WRITE_0D_RS INPUT = 1,2,3,4
217     CADJ SUBROUTINE WRITE_0D_RS OUTPUT =
218    
219     C----------------------------------------
220     C subroutine write_0d_rl
221     C----------------------------------------
222     CADJ SUBROUTINE WRITE_0D_RL INPUT = 1,2,3,4
223     CADJ SUBROUTINE WRITE_0D_RL OUTPUT =
224    
225     C----------------------------------------
226     C subroutine write_0d_c
227     C----------------------------------------
228     CADJ SUBROUTINE WRITE_0D_C INPUT = 1,2,3,4,5
229     CADJ SUBROUTINE WRITE_0D_C OUTPUT =
230    
231     C----------------------------------------
232     C subroutine write_copy1d_r4
233     C----------------------------------------
234     CADJ SUBROUTINE WRITE_COPY1D_R4 INPUT = 2,3,4,5,6
235     CADJ SUBROUTINE WRITE_COPY1D_R4 OUTPUT = 1
236    
237     C----------------------------------------
238     C subroutine write_copy1d_r8
239     C----------------------------------------
240     CADJ SUBROUTINE WRITE_COPY1D_R8 INPUT = 2,3,4,5,6
241     CADJ SUBROUTINE WRITE_COPY1D_R8 OUTPUT = 1
242    
243     C----------------------------------------
244     C subroutine write_copy1d_rs
245     C----------------------------------------
246     CADJ SUBROUTINE WRITE_COPY1D_RS INPUT = 2,3,4,5,6
247     CADJ SUBROUTINE WRITE_COPY1D_RS OUTPUT = 1
248    
249     C-------------------------------------------------------
  ViewVC Help
Powered by ViewVC 1.1.22