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

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

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

revision 1.1 by heimbach, Sun Mar 25 22:33:53 2001 UTC revision 1.2 by heimbach, Fri Sep 28 04:19:27 2001 UTC
# Line 57  c Line 57  c
57  c     ==================================================================  c     ==================================================================
58    
59    
60    CBOP
61    C     !ROUTINE: adopen
62    C     !INTERFACE:
63        subroutine adopen(        subroutine adopen(
64       I                   mythid,       I                   mythid,
65  cph(  cph(
# Line 70  cph) Line 73  cph)
73       I                   length       I                   length
74       &                 )       &                 )
75    
76    C     !DESCRIPTION: \bv
77  c     ==================================================================  c     ==================================================================
78  c     SUBROUTINE adopen  c     SUBROUTINE adopen
79  c     ==================================================================  c     ==================================================================
 c  
80  c     o Dummy routine expected to be available by TAMC I/O.  c     o Dummy routine expected to be available by TAMC I/O.
 c  
81  c     This routine is simply a dummy routine expected to be available by  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  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  c     opened and closed by the routines that are called by *adread* and
84  c     *adwrite*.  c     *adwrite*.
 c  
85  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
 c  
 c     changed: Christian Eckert eckert@mit.edu 15-Feb-2000  
 c  
 c              - Restructured the code in order to create a package  
 c                for the MITgcmUV.  
 c  
86  c     ==================================================================  c     ==================================================================
87  c     SUBROUTINE adopen  c     SUBROUTINE adopen
88  c     ==================================================================  c     ==================================================================
89    C     \ev
90    
91    C     !USES:
92        implicit none        implicit none
93    
94  c     == global variables ==  c     == global variables ==
95    
96    C     !INPUT/OUTPUT PARAMETERS:
97  c     == routine arguments ==  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        integer mythid
107  cph(  cph(
# Line 109  cph) Line 114  cph)
114        integer size        integer size
115        integer length        integer length
116    
117    C     !LOCAL VARIABLES:
118  c     == local variables ==  c     == local variables ==
119    
120  c     == end of interface ==  c     == end of interface ==
121    CEOP
122    
123        return        return
124        end        end
125    
126    
127    CBOP
128    C     !ROUTINE: adclose
129    C     !INTERFACE:
130        subroutine adclose(        subroutine adclose(
131       I                    mythid,       I                    mythid,
132  cph(  cph(
# Line 131  cph) Line 141  cph)
141       &                  )       &                  )
142    
143    
144    C     !DESCRIPTION: \bv
145  c     ==================================================================  c     ==================================================================
146  c     SUBROUTINE adclose  c     SUBROUTINE adclose
147  c     ==================================================================  c     ==================================================================
 c  
148  c     o Dummy routine expected to be available by TAMC I/O.  c     o Dummy routine expected to be available by TAMC I/O.
 c  
149  c     This routine is simply a dummy routine expected to be available by  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  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  c     opened and closed by the routines that are called by *adread* and
152  c     *adwrite*.  c     *adwrite*.
 c  
153  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
 c  
 c     changed: Christian Eckert eckert@mit.edu 15-Feb-2000  
 c  
 c              - Restructured the code in order to create a package  
 c                for the MITgcmUV.  
 c  
154  c     ==================================================================  c     ==================================================================
155  c     SUBROUTINE adclose  c     SUBROUTINE adclose
156  c     ==================================================================  c     ==================================================================
157    C     \ev
158    
159    C     !USES:
160        implicit none        implicit none
161    
162  c     == global variables ==  c     == global variables ==
163    
164    C     !INPUT/OUTPUT PARAMETERS:
165  c     == routine arguments ==  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        integer mythid
175  cph(  cph(
# Line 170  cph) Line 182  cph)
182        integer size        integer size
183        integer length        integer length
184    
185    C     !LOCAL VARIABLES:
186  c     == local variables ==  c     == local variables ==
187    
188  c     == end of interface ==  c     == end of interface ==
189    CEOP
190    
191        return        return
192        end        end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22