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

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

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

Revision 1.3 - (hide annotations) (download)
Thu Oct 9 04:19:19 2003 UTC (20 years, 7 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint57m_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint57g_pre, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint52d_pre, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint52j_pre, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, checkpoint51l_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint52l_post, checkpoint52k_post, checkpoint59, checkpoint58, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint58f_post, checkpoint52f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint54f_post, checkpoint58y_post, checkpoint51t_post, checkpoint58t_post, checkpoint51n_post, checkpoint55i_post, checkpoint58m_post, checkpoint57l_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint57t_post, checkpoint55c_post, checkpoint52e_pre, checkpoint57v_post, checkpoint57f_post, checkpoint52e_post, checkpoint51n_pre, checkpoint53d_post, checkpoint57a_post, checkpoint57h_pre, checkpoint52b_pre, checkpoint54b_post, checkpoint58w_post, checkpoint57h_post, checkpoint51l_pre, checkpoint52m_post, checkpoint57y_pre, checkpoint55g_post, checkpoint51q_post, checkpoint52b_post, checkpoint52c_post, checkpoint58o_post, checkpoint57c_post, checkpoint58p_post, checkpoint58q_post, checkpoint52f_pre, checkpoint55d_post, checkpoint58e_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint54a_post, checkpoint55h_post, checkpoint58n_post, checkpoint51r_post, checkpoint51i_post, checkpoint57e_post, checkpoint55b_post, checkpoint53a_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59h, checkpoint52d_post, checkpoint53g_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint58k_post, checkpoint52a_pre, checkpoint58v_post, checkpoint52i_post, checkpoint52h_pre, checkpoint56a_post, checkpoint58l_post, checkpoint53f_post, checkpoint57h_done, checkpoint52j_post, checkpoint57j_post, checkpoint57f_pre, checkpoint58g_post, branch-netcdf, checkpoint58x_post, checkpoint52n_post, checkpoint53b_pre, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint51o_post, checkpoint57k_post, checkpoint53b_post, checkpoint52a_post, checkpoint57w_post, checkpoint58i_post, ecco_c52_e35, checkpoint57x_post, checkpoint58c_post, checkpoint58u_post, checkpoint51m_post, checkpoint53d_pre, checkpoint58s_post, checkpoint55e_post, checkpoint54c_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.2: +1 -1 lines 
 o first check-in for the "branch-genmake2" merge
 o verification suite as run on shelley (gcc 3.2.2):

Wed Oct  8 23:42:29 EDT 2003
                T           S           U           V
G D M    c        m  s        m  s        m  s        m  s
E p a R  g  m  m  e  .  m  m  e  .  m  m  e  .  m  m  e  .
N n k u  2  i  a  a  d  i  a  a  d  i  a  a  d  i  a  a  d
2 d e n  d  n  x  n  .  n  x  n  .  n  x  n  .  n  x  n  .

OPTFILE=NONE

Y Y Y Y 13 16 16 16  0 16 16 16 16 16 16 16 16 13 12  0  0 pass  adjustment.128x64x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16  0  0 16 16  0  0 pass  adjustment.cs-32x32x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16 22  0 16 16 22  0 pass  adjust_nlfs.cs-32x32x1
Y Y Y Y -- 13 13 16 16 13 13 13 13 16 16 16 16 16 16 16 16 N/O   advect_cs
Y Y Y Y -- 22 16 16 16 16 16 16 13 16 16 16 16 16 16 16 16 N/O   advect_xy
Y Y Y Y -- 13 16 13 16 16 16 16 16 16 16 22 16 16 16 16 16 N/O   advect_xz
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  aim.5l_cs
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 16 16 16 16 13 16 pass  aim.5l_Equatorial_Channel
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 13 16 16 13 13 16 pass  aim.5l_LatLon
Y Y Y Y 13 16 16 16 16 16 16 16 16 16 13 12 13 13 16 13 16 pass  exp0
Y Y Y Y 14 16 16 16 16 16 16 16 22 16 16 16 13 16 16 22 16 pass  exp1
Y Y Y Y 13 13 16 13 16 16 16 16 16 13 13 16 16 13 13 13 13 pass  exp2
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  exp4
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 22 16 16 16 22 16 pass  exp5
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  front_relax
Y Y Y Y 14 16 16 13 13 16 16 13 13 16 13 13 16 12 13 13 16 pass  global_ocean.90x40x15
Y Y Y Y 10 16 16 13 13 16 13 16 16 13 13 13 13 16 16 13 16 FAIL  global_ocean.cs32x15
Y Y Y Y  6 11 12 13 13 12 13 16 13  9  9  9  9 10  9  9 11 FAIL  global_ocean_pressure
Y Y Y Y 14 16 16 13 16 16 16 13 13 13 13 13 16 12 16 13 16 pass  global_with_exf
Y Y Y Y 14 16 16 16 16 16 16 16 16 11 13 22 13 16 16  9 16 pass  hs94.128x64x5
Y Y Y Y 13 16 16 16 16 16 16 16 16 11 16 16 16 13 16 22 13 pass  hs94.1x64x5
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 13 13 16 16 22 13 pass  hs94.cs-32x32x5
Y Y Y Y 10 10 16 13 13 16 16 16 22 16 13 13 13 13 13 22 13 FAIL  ideal_2D_oce
Y Y Y Y  8 16 16 16 16 16 16 16 16 13 13  8 16 16 16 16 16 FAIL  internal_wave
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 13 22 13 13 13 22 16 pass  inverted_barometer
Y Y Y Y 12 16 16 16 16 16 16 16 16 16 13 12 13 13 13 13 13 FAIL  lab_sea
Y Y Y Y 11 16 16 16 16 16 16 16 13 13 13 12 13 16 13 12 13 FAIL  natl_box
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  plume_on_slope
Y Y Y Y 13 16 16 16 16 13 16 16 16 16 16 16 16 13 16 16 16 pass  solid-body.cs-32x32x1
1 heimbach 1.1
2 edhill 1.3 #include "AUTODIFF_OPTIONS.h"
3 heimbach 1.1
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 heimbach 1.2 CBOP
61     C !ROUTINE: adopen
62     C !INTERFACE:
63 heimbach 1.1 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 heimbach 1.2 C !DESCRIPTION: \bv
77 heimbach 1.1 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 heimbach 1.2 C \ev
90 heimbach 1.1
91 heimbach 1.2 C !USES:
92 heimbach 1.1 implicit none
93    
94     c == global variables ==
95    
96 heimbach 1.2 C !INPUT/OUTPUT PARAMETERS:
97 heimbach 1.1 c == routine arguments ==
98 heimbach 1.2 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 heimbach 1.1
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 heimbach 1.2 C !LOCAL VARIABLES:
118 heimbach 1.1 c == local variables ==
119    
120     c == end of interface ==
121 heimbach 1.2 CEOP
122 heimbach 1.1
123     return
124     end
125    
126    
127 heimbach 1.2 CBOP
128     C !ROUTINE: adclose
129     C !INTERFACE:
130 heimbach 1.1 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 heimbach 1.2 C !DESCRIPTION: \bv
145 heimbach 1.1 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 heimbach 1.2 C \ev
158 heimbach 1.1
159 heimbach 1.2 C !USES:
160 heimbach 1.1 implicit none
161    
162     c == global variables ==
163    
164 heimbach 1.2 C !INPUT/OUTPUT PARAMETERS:
165 heimbach 1.1 c == routine arguments ==
166 heimbach 1.2 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 heimbach 1.1
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 heimbach 1.2 C !LOCAL VARIABLES:
186 heimbach 1.1 c == local variables ==
187    
188     c == end of interface ==
189 heimbach 1.2 CEOP
190 heimbach 1.1
191     return
192     end
  ViewVC Help
Powered by ViewVC 1.1.22