/[MITgcm]/MITgcm/pkg/rw/rw_ad.flow
ViewVC logotype

Contents of /MITgcm/pkg/rw/rw_ad.flow

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

Revision 1.16 - (show annotations) (download)
Fri Mar 24 22:03:37 2017 UTC (7 years, 3 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, HEAD
Changes since 1.15: +6 -1 lines 
Contribution from Jody Klymak:
 add simple routine to return file suffix according to rwSuffixType
1 C $Header: /u/gcmpack/MITgcm/pkg/rw/rw_ad.flow,v 1.15 2014/03/30 16:21:52 jmc Exp $
2 C $Name: $
3
4 C----------------------------------------
5 C subroutine set_write_global_fld
6 C----------------------------------------
7 CADJ SUBROUTINE set_write_global_fld INPUT = 1
8 CADJ SUBROUTINE set_write_global_fld OUTPUT =
9
10 C----------------------------------------
11 C subroutine write_fld_xy_rs
12 C----------------------------------------
13 CADJ SUBROUTINE write_fld_xy_rs INPUT = 1,2,3,4,5
14 CADJ SUBROUTINE write_fld_xy_rs OUTPUT =
15
16 C----------------------------------------
17 C subroutine write_fld_xy_rl
18 C----------------------------------------
19 CADJ SUBROUTINE write_fld_xy_rl INPUT = 1,2,3,4,5
20 CADJ SUBROUTINE write_fld_xy_rl OUTPUT =
21
22 C----------------------------------------
23 C subroutine write_fld_xyz_rs
24 C----------------------------------------
25 CADJ SUBROUTINE write_fld_xyz_rs INPUT = 1,2,3,4,5
26 CADJ SUBROUTINE write_fld_xyz_rs OUTPUT =
27
28 C----------------------------------------
29 C subroutine write_fld_xyz_rl
30 C----------------------------------------
31 CADJ SUBROUTINE write_fld_xyz_rl INPUT = 1,2,3,4,5
32 CADJ SUBROUTINE write_fld_xyz_rl OUTPUT =
33
34 C----------------------------------------
35 C subroutine write_local_rl
36 C----------------------------------------
37 CADJ SUBROUTINE write_local_rl INPUT = 1,2,3,4,5,6,7,8,9
38 CADJ SUBROUTINE write_local_rl OUTPUT =
39
40 C----------------------------------------
41 C subroutine write_local_rs
42 C----------------------------------------
43 CADJ SUBROUTINE write_local_rs INPUT = 1,2,3,4,5,6,7,8,9
44 CADJ SUBROUTINE write_local_rs OUTPUT =
45
46 C----------------------------------------
47 C subroutine set_write_global_rec
48 C----------------------------------------
49 CADJ SUBROUTINE set_write_global_rec INPUT = 1
50 CADJ SUBROUTINE set_write_global_rec OUTPUT =
51
52 C----------------------------------------
53 C subroutine write_rec_xy_rl
54 C----------------------------------------
55 CADJ SUBROUTINE write_rec_xy_rl INPUT = 1,2,3,4,5
56 CADJ SUBROUTINE write_rec_xy_rl OUTPUT =
57
58 C----------------------------------------
59 C subroutine write_rec_xyz_rs
60 C----------------------------------------
61 CADJ SUBROUTINE write_rec_xyz_rs INPUT = 1,2,3,4,5
62 CADJ SUBROUTINE write_rec_xyz_rs OUTPUT =
63
64 C----------------------------------------
65 C subroutine write_rec_xyz_rl
66 C----------------------------------------
67 CADJ SUBROUTINE write_rec_xyz_rl INPUT = 1,2,3,4,5
68 CADJ SUBROUTINE write_rec_xyz_rl OUTPUT =
69
70 C----------------------------------------
71 C subroutine write_rec_3d_rs
72 C----------------------------------------
73 CADJ SUBROUTINE write_rec_3d_rs INPUT = 1,2,3,4,5,6,7
74 CADJ SUBROUTINE write_rec_3d_rs OUTPUT =
75
76 C----------------------------------------
77 C subroutine write_rec_3d_rl
78 C----------------------------------------
79 CADJ SUBROUTINE write_rec_3d_rl INPUT = 1,2,3,4,5,6,7
80 CADJ SUBROUTINE write_rec_3d_rl OUTPUT =
81
82 C----------------------------------------
83 C subroutine write_rec_lev_rs
84 C----------------------------------------
85 CADJ SUBROUTINE write_rec_lev_rs INPUT = 1,2,3,4,5,6,7,8,9
86 CADJ SUBROUTINE write_rec_lev_rs OUTPUT =
87
88 C----------------------------------------
89 C subroutine write_rec_lev_rl
90 C----------------------------------------
91 CADJ SUBROUTINE write_rec_lev_rl INPUT = 1,2,3,4,5,6,7,8,9
92 CADJ SUBROUTINE write_rec_lev_rl OUTPUT =
93
94 C----------------------------------------
95 C subroutine set_write_global_sec
96 C----------------------------------------
97 CADJ SUBROUTINE set_write_global_sec INPUT = 1
98 CADJ SUBROUTINE set_write_global_sec OUTPUT =
99
100 C----------------------------------------
101 C subroutine write_rec_xz_rs
102 C----------------------------------------
103 CADJ SUBROUTINE write_rec_xz_rs INPUT = 1,2,3,4,5,6,7
104 CADJ SUBROUTINE write_rec_xz_rs OUTPUT =
105
106 C----------------------------------------
107 C subroutine write_rec_xz_rl
108 C----------------------------------------
109 CADJ SUBROUTINE write_rec_xz_rl INPUT = 1,2,3,4,5,6,7
110 CADJ SUBROUTINE write_rec_xz_rl OUTPUT =
111
112 C----------------------------------------
113 C subroutine write_rec_yz_rs
114 C----------------------------------------
115 CADJ SUBROUTINE write_rec_yz_rs INPUT = 1,2,3,4,5,6,7
116 CADJ SUBROUTINE write_rec_yz_rs OUTPUT =
117
118 C----------------------------------------
119 C subroutine write_rec_yz_rl
120 C----------------------------------------
121 CADJ SUBROUTINE write_rec_yz_rl INPUT = 1,2,3,4,5,6,7
122 CADJ SUBROUTINE write_rec_yz_rl OUTPUT =
123
124 C----------------------------------------
125 C subroutine WRITE_GLVEC_RS
126 C----------------------------------------
127 CADJ SUBROUTINE WRITE_GLVEC_RS INPUT = 1,2,3,4,5,6
128 CADJ SUBROUTINE WRITE_GLVEC_RS OUTPUT =
129
130 C----------------------------------------
131 C subroutine WRITE_GLVEC_RL
132 C----------------------------------------
133 CADJ SUBROUTINE WRITE_GLVEC_RL INPUT = 1,2,3,4,5,6
134 CADJ SUBROUTINE WRITE_GLVEC_RL OUTPUT =
135
136 C----------------------------------------
137 C subroutine READ_GLVEC_RS
138 C----------------------------------------
139 CADJ SUBROUTINE READ_GLVEC_RS INPUT = 1,2, 4,5,6
140 CADJ SUBROUTINE READ_GLVEC_RS OUTPUT = 3
141
142 C----------------------------------------
143 C subroutine READ_GLVEC_RL
144 C----------------------------------------
145 CADJ SUBROUTINE READ_GLVEC_RL INPUT = 1,2, 4,5,6
146 CADJ SUBROUTINE READ_GLVEC_RL OUTPUT = 3
147
148 C----------------------------------------
149 C subroutine READ_MFLDS_INIT
150 C----------------------------------------
151 CADJ SUBROUTINE READ_MFLDS_INIT INPUT = 1
152 CADJ SUBROUTINE READ_MFLDS_INIT OUTPUT =
153
154 C----------------------------------------
155 C subroutine READ_MFLDS_SET
156 C----------------------------------------
157 CADJ SUBROUTINE READ_MFLDS_SET INPUT = 1, 4,5,6
158 CADJ SUBROUTINE READ_MFLDS_SET OUTPUT = 2,3
159
160 C----------------------------------------
161 C subroutine READ_MFLDS_3D_RL
162 C----------------------------------------
163 CADJ SUBROUTINE READ_MFLDS_3D_RL INPUT = 1, 3,4,5,6,7
164 CADJ SUBROUTINE READ_MFLDS_3D_RL OUTPUT = 2,3
165
166 C----------------------------------------
167 C subroutine READ_MFLDS_LEV_RL
168 C----------------------------------------
169 CADJ SUBROUTINE READ_MFLDS_LEV_RL INPUT = 1, 3,4,5,6,7,8,9
170 CADJ SUBROUTINE READ_MFLDS_LEV_RL OUTPUT = 2,3
171
172 C----------------------------------------
173 C subroutine READ_MFLDS_LEV_RS
174 C----------------------------------------
175 CADJ SUBROUTINE READ_MFLDS_LEV_RS INPUT = 1, 3,4,5,6,7,8,9
176 CADJ SUBROUTINE READ_MFLDS_LEV_RS OUTPUT = 2,3
177
178 C----------------------------------------
179 C subroutine READ_MFLDS_CHECK
180 C----------------------------------------
181 CADJ SUBROUTINE READ_MFLDS_CHECK INPUT = 2,3,4
182 CADJ SUBROUTINE READ_MFLDS_CHECK OUTPUT = 1,2
183
184 C----------------------------------------
185 C subroutine READ_MFLDS_RENAME
186 C----------------------------------------
187 CADJ SUBROUTINE READ_MFLDS_RENAME INPUT = 1,2, 4
188 CADJ SUBROUTINE READ_MFLDS_RENAME OUTPUT = 3
189
190 C----------------------------------------
191 C subroutine RW_GET_SUFFIX
192 C----------------------------------------
193 CADJ SUBROUTINE RW_GET_SUFFIX INPUT = 2,3,4
194 CADJ SUBROUTINE RW_GET_SUFFIX OUTPUT = 1
  ViewVC Help
Powered by ViewVC 1.1.22