/[MITgcm]/MITgcm/model/src/read_write_rec.F
ViewVC logotype

Diff of /MITgcm/model/src/read_write_rec.F

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

revision 1.1 by adcroft, Wed May 5 18:32:35 1999 UTC revision 1.3 by cnh, Sun Feb 4 14:38:48 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5  C--  File read_write_rec.F: Routines to handle mid-level I/O interface.  C--  File read_write_rec.F: Routines to handle mid-level I/O interface.
# Line 47  C Arguments Line 48  C Arguments
48        INTEGER myIter        INTEGER myIter
49        INTEGER myThid        INTEGER myThid
50  C Functions  C Functions
51        INTEGER ILNBLNK  C     INTEGER ILNBLNK
52  C Local  C Local
53        CHARACTER*(2) fType        CHARACTER*(2) fType
54        INTEGER nNz        INTEGER nNz
55        INTEGER IL  C     INTEGER IL
56        CHARACTER*(80) fullName        CHARACTER*(80) fullName
57  C  C
58  C     IF (myIter.GE.0) THEN  C     IF (myIter.GE.0) THEN
# Line 84  C Arguments Line 85  C Arguments
85        INTEGER myIter        INTEGER myIter
86        INTEGER myThid        INTEGER myThid
87  C Functions  C Functions
88        INTEGER ILNBLNK  C     INTEGER ILNBLNK
89  C Local  C Local
90        CHARACTER*(2) fType        CHARACTER*(2) fType
91        INTEGER nNz        INTEGER nNz
92        INTEGER IL  C     INTEGER IL
93        CHARACTER*(80) fullName        CHARACTER*(80) fullName
94  C  C
95  C     IF (myIter.GE.0) THEN  C     IF (myIter.GE.0) THEN
# Line 121  C Arguments Line 122  C Arguments
122        INTEGER myIter        INTEGER myIter
123        INTEGER myThid        INTEGER myThid
124  C Functions  C Functions
125        INTEGER ILNBLNK  C     INTEGER ILNBLNK
126  C Local  C Local
127        CHARACTER*(2) fType        CHARACTER*(2) fType
128        INTEGER nNz        INTEGER nNz
129        INTEGER IL  C     INTEGER IL
130        CHARACTER*(80) fullName        CHARACTER*(80) fullName
131  C  C
132  C     IF (myIter.GE.0) THEN  C     IF (myIter.GE.0) THEN
# Line 158  C Arguments Line 159  C Arguments
159        INTEGER myIter        INTEGER myIter
160        INTEGER myThid        INTEGER myThid
161  C Functions  C Functions
162        INTEGER ILNBLNK  C     INTEGER ILNBLNK
163  C Local  C Local
164        CHARACTER*(2) fType        CHARACTER*(2) fType
165        INTEGER nNz        INTEGER nNz
166        INTEGER IL  C     INTEGER IL
167        CHARACTER*(80) fullName        CHARACTER*(80) fullName
168  C  C
169  C     IF (myIter.GE.0) THEN  C     IF (myIter.GE.0) THEN
# Line 195  C Arguments Line 196  C Arguments
196        INTEGER myIter        INTEGER myIter
197        INTEGER myThid        INTEGER myThid
198  C Functions  C Functions
199        INTEGER ILNBLNK  C     INTEGER ILNBLNK
200  C Common  C Common
201        COMMON /RD_WR_REC/ globalFile        COMMON /RD_WR_REC/ globalFile
202        LOGICAL globalFile        LOGICAL globalFile
203  C Local  C Local
204        CHARACTER*(2) fType        CHARACTER*(2) fType
205        INTEGER nNz        INTEGER nNz
206        INTEGER IL  C     INTEGER IL
207        CHARACTER*(80) fullName        CHARACTER*(80) fullName
208  C  C
209  C     IF (myIter.GE.0) THEN  C     IF (myIter.GE.0) THEN
# Line 236  C Arguments Line 237  C Arguments
237        INTEGER myIter        INTEGER myIter
238        INTEGER myThid        INTEGER myThid
239  C Functions  C Functions
240        INTEGER ILNBLNK  C     INTEGER ILNBLNK
241  C Common  C Common
242        COMMON /RD_WR_REC/ globalFile        COMMON /RD_WR_REC/ globalFile
243        LOGICAL globalFile        LOGICAL globalFile
244  C Local  C Local
245        CHARACTER*(2) fType        CHARACTER*(2) fType
246        INTEGER nNz        INTEGER nNz
247        INTEGER IL  C     INTEGER IL
248        CHARACTER*(80) fullName        CHARACTER*(80) fullName
249  C  C
250  C     IF (myIter.GE.0) THEN  C     IF (myIter.GE.0) THEN
# Line 277  C Arguments Line 278  C Arguments
278        INTEGER myIter        INTEGER myIter
279        INTEGER myThid        INTEGER myThid
280  C Functions  C Functions
281        INTEGER ILNBLNK  C     INTEGER ILNBLNK
282  C Common  C Common
283        COMMON /RD_WR_REC/ globalFile        COMMON /RD_WR_REC/ globalFile
284        LOGICAL globalFile        LOGICAL globalFile
285  C Local  C Local
286        CHARACTER*(2) fType        CHARACTER*(2) fType
287        INTEGER nNz        INTEGER nNz
288        INTEGER IL  C     INTEGER IL
289        CHARACTER*(80) fullName        CHARACTER*(80) fullName
290  C  C
291  C     IF (myIter.GE.0) THEN  C     IF (myIter.GE.0) THEN
# Line 318  C Arguments Line 319  C Arguments
319        INTEGER myIter        INTEGER myIter
320        INTEGER myThid        INTEGER myThid
321  C Functions  C Functions
322        INTEGER ILNBLNK  C     INTEGER ILNBLNK
323  C Common  C Common
324        COMMON /RD_WR_REC/ globalFile        COMMON /RD_WR_REC/ globalFile
325        LOGICAL globalFile        LOGICAL globalFile
326  C Local  C Local
327        CHARACTER*(2) fType        CHARACTER*(2) fType
328        INTEGER nNz        INTEGER nNz
329        INTEGER IL  C     INTEGER IL
330        CHARACTER*(80) fullName        CHARACTER*(80) fullName
331  C  C
332  C     IF (myIter.GE.0) THEN  C     IF (myIter.GE.0) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22