/[MITgcm]/MITgcm/pkg/autodiff/adopen_adclose.F
ViewVC logotype

Contents of /MITgcm/pkg/autodiff/adopen_adclose.F

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

Revision 1.2 - (show annotations) (download)
Fri Sep 28 04:19:27 2001 UTC (22 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint44e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, release1_p13_pre, checkpoint50c_post, checkpoint46f_post, checkpoint48e_post, checkpoint50c_pre, checkpoint44f_post, checkpoint46b_post, checkpoint43a-release1mods, ecco_c50_e32, ecco_c50_e33, ecco_c50_e30, ecco_c50_e31, release1_p13, checkpoint48i_post, checkpoint46l_pre, chkpt44d_post, checkpoint51, checkpoint50, release1_p8, release1_p9, checkpoint50d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint50b_pre, checkpoint44e_pre, checkpoint51f_post, release1_b1, ecco_c51_e34d, ecco_c51_e34e, ecco_c51_e34f, ecco_c51_e34g, ecco_c51_e34a, ecco_c51_e34b, ecco_c51_e34c, checkpoint48b_post, checkpoint43, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, c49_autodiff, release1_chkpt44d_post, checkpoint47a_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint47d_post, icebear5, icebear4, icebear3, icebear2, checkpoint46d_pre, checkpoint48d_post, release1-branch_tutorials, checkpoint48f_post, checkpoint45d_post, checkpoint46j_pre, chkpt44a_post, checkpoint44h_pre, checkpoint48h_post, ecco_c50_e29, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, ecco_c50_e28, chkpt44c_pre, checkpoint48a_post, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, release1_p12, release1_p10, release1_p11, release1_p16, release1_p17, release1_p14, release1_p15, checkpoint47j_post, ecco_c50_e33a, branch-exfmods-tag, checkpoint44g_post, branchpoint-genmake2, checkpoint46e_pre, checkpoint48c_post, checkpoint45b_post, checkpoint46b_pre, release1-branch-end, release1_final_v1, checkpoint51b_post, checkpoint51c_post, checkpoint46c_pre, checkpoint46, checkpoint47b_post, checkpoint44b_post, ecco_c51_e34, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint50g_post, checkpoint45c_post, ecco_ice2, ecco_ice1, checkpoint44h_post, checkpoint46g_post, release1_p12_pre, ecco_c44_e22, checkpoint50h_post, checkpoint50e_pre, checkpoint50i_post, ecco_c44_e25, checkpoint51i_pre, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, checkpoint46i_post, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, checkpoint46c_post, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, checkpoint50d_pre, checkpoint46e_post, release1_beta1, checkpoint51e_post, checkpoint44b_pre, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint51f_pre, chkpt44c_post, checkpoint48g_post, checkpoint47h_post, checkpoint44f_pre, checkpoint51g_post, checkpoint46d_post, checkpoint50b_post, release1-branch_branchpoint, checkpoint51a_post
Branch point for: c24_e25_ice, branch-exfmods-curt, release1_final, release1-branch, branch-genmake2, release1, ecco-branch, release1_50yr, icebear, release1_coupled
Changes since 1.1: +32 -18 lines 
Started to add comments...
1
2 #include "CPP_OPTIONS.h"
3
4 c ==================================================================
5 c
6 c adopen_adclose.F: Routines to handle the I/O of the TAMC generated
7 c code. All files are direct access files.
8 c Routines:
9 c
10 c o adopen - Open file (here a dummy routine).
11 c o adclose - Close file (here a dummy routine).
12 c
13 c
14 c The following input veriables are used throughout in the argument
15 c lists:
16 c
17 c name - character
18 c On entry, name is the extended tape name.
19 c len - integer
20 c On entry, len is the number of characters in name.
21 c tid - integer
22 c On entry, tid identifies the tape.
23 c vid - integer
24 c On entry, vid identifies the variable to be stored on
25 c the tape.
26 c var - real array of dimension length
27 c On entry, var contains the values to be stored.
28 c var must not be changed.
29 c size - integer
30 c On entry, size is the size in bytes of the type of
31 c variable var.
32 c length - integer
33 c On entry, length is the dimension of the variable
34 c stored on the tape.
35 c irec - integer
36 c On entry, irec is the record number to be written.
37 c mythid - integer
38 c On entry, mythid is the number of the thread or
39 c instance of the program.
40 c myiter - integer
41 c On entry, myiter is the current iteration step during
42 c the integration.
43 c
44 c For further details on this see the TAMC Users Manual, Appendix B,
45 c User defined Storage Subroutines.
46 c
47 c TAMC does not provide the two leading arguments mythid and myiter
48 c when compiling the MITgcmUV code. Instead the is a sed script avail-
49 c able that does change the TAMC-generated adjoint code.
50 c
51 c Only the master thread is allowed to write data and only gobal
52 c model arrays are allowed to be written be the subsequent routines.
53 c Tiled data are to be stored in common blocks. This implies that at
54 c least a two level checkpointing for the adjoint code has to be
55 c available.
56 c
57 c ==================================================================
58
59
60 CBOP
61 C !ROUTINE: adopen
62 C !INTERFACE:
63 subroutine adopen(
64 I mythid,
65 cph(
66 cph I myiter,
67 cph)
68 I name,
69 I len,
70 I tid,
71 I vid,
72 I size,
73 I length
74 & )
75
76 C !DESCRIPTION: \bv
77 c ==================================================================
78 c SUBROUTINE adopen
79 c ==================================================================
80 c o Dummy routine expected to be available by TAMC I/O.
81 c This routine is simply a dummy routine expected to be available by
82 c the Tangent Linear and Adjoint Model Compiler(TAMC). Files are
83 c opened and closed by the routines that are called by *adread* and
84 c *adwrite*.
85 c started: Christian Eckert eckert@mit.edu 30-Jun-1999
86 c ==================================================================
87 c SUBROUTINE adopen
88 c ==================================================================
89 C \ev
90
91 C !USES:
92 implicit none
93
94 c == global variables ==
95
96 C !INPUT/OUTPUT PARAMETERS:
97 c == routine arguments ==
98 c name - extended tape name.
99 c len - number of characters in name.
100 c tid - tape identifier.
101 c vid - identifies the variable to be stored on tape.
102 c size - size in bytes of the type of variable var.
103 c length - dimension of the variable stored on the tape.
104 c mythid - number of the thread or instance of the program.
105
106 integer mythid
107 cph(
108 cph integer myiter
109 cph)
110 character*(*) name
111 integer len
112 integer tid
113 integer vid
114 integer size
115 integer length
116
117 C !LOCAL VARIABLES:
118 c == local variables ==
119
120 c == end of interface ==
121 CEOP
122
123 return
124 end
125
126
127 CBOP
128 C !ROUTINE: adclose
129 C !INTERFACE:
130 subroutine adclose(
131 I mythid,
132 cph(
133 cph I myiter,
134 cph)
135 I name,
136 I len,
137 I tid,
138 I vid,
139 I size,
140 I length
141 & )
142
143
144 C !DESCRIPTION: \bv
145 c ==================================================================
146 c SUBROUTINE adclose
147 c ==================================================================
148 c o Dummy routine expected to be available by TAMC I/O.
149 c This routine is simply a dummy routine expected to be available by
150 c the Tangent Linear and Adjoint Model Compiler(TAMC). Files are
151 c opened and closed by the routines that are called by *adread* and
152 c *adwrite*.
153 c started: Christian Eckert eckert@mit.edu 30-Jun-1999
154 c ==================================================================
155 c SUBROUTINE adclose
156 c ==================================================================
157 C \ev
158
159 C !USES:
160 implicit none
161
162 c == global variables ==
163
164 C !INPUT/OUTPUT PARAMETERS:
165 c == routine arguments ==
166 c name - extended tape name.
167 c len - number of characters in name.
168 c tid - tape identifier.
169 c vid - identifies the variable to be stored on tape.
170 c size - size in bytes of the type of variable var.
171 c length - dimension of the variable stored on the tape.
172 c mythid - number of the thread or instance of the program.
173
174 integer mythid
175 cph(
176 cph integer myiter
177 cph)
178 character*(*) name
179 integer len
180 integer tid
181 integer vid
182 integer size
183 integer length
184
185 C !LOCAL VARIABLES:
186 c == local variables ==
187
188 c == end of interface ==
189 CEOP
190
191 return
192 end
  ViewVC Help
Powered by ViewVC 1.1.22