/[MITgcm]/MITgcm/pkg/mdsio/mdsio_rw_field.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_rw_field.F

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

revision 1.3 by jmc, Wed Aug 5 23:17:54 2009 UTC revision 1.4 by jmc, Tue Sep 1 19:20:40 2009 UTC
# Line 53  C Routine arguments Line 53  C Routine arguments
53        _RL     arr(*)        _RL     arr(*)
54        INTEGER irecord        INTEGER irecord
55        INTEGER myThid        INTEGER myThid
56  C     ------------------------------------------------------------------  
57        CALL MDS_READ_FIELD(  #ifdef ALLOW_AUTODIFF
58       I              fName, filePrec, .FALSE., arrType, nNz, 1, nNz,  C Local variables
59       O              arr,        _RL dummyRL(1)
60       I              irecord, myThid )        _RS dummyRS(1)
61  C     ------------------------------------------------------------------  
62          IF ( arrType.EQ.'RL' ) THEN
63            CALL MDS_READ_FIELD(
64         I                fName, filePrec, .FALSE., arrType, nNz, 1, nNz,
65         O                arr, dummyRS,
66         I                irecord, myThid )
67          ELSE
68            CALL MDS_READ_FIELD(
69         I                fName, filePrec, .FALSE., arrType, nNz, 1, nNz,
70         O                dummyRL, arr,
71         I                irecord, myThid )
72          ENDIF
73    
74    #else /* ALLOW_AUTODIFF */
75          STOP 'ABNORMAL END: S/R MDSREADFIELD is retired'
76    #endif /* ALLOW_AUTODIFF */
77    
78        RETURN        RETURN
79        END        END
80    
# Line 103  C Routine arguments Line 119  C Routine arguments
119        _RL     arr(*)        _RL     arr(*)
120        INTEGER irecord        INTEGER irecord
121        INTEGER myThid        INTEGER myThid
122  C     ------------------------------------------------------------------  
123        CALL MDS_READ_FIELD(  #ifdef ALLOW_AUTODIFF
124       I              fName, filePrec, .TRUE., arrType, nNz, 1, nNz,  C Local variables
125       O              arr,        _RL dummyRL(1)
126       I              irecord, myThid )        _RS dummyRS(1)
127  C     ------------------------------------------------------------------  
128          IF ( arrType.EQ.'RL' ) THEN
129            CALL MDS_READ_FIELD(
130         I                fName, filePrec, .TRUE., arrType, nNz, 1, nNz,
131         O                arr, dummyRS,
132         I                irecord, myThid )
133          ELSE
134            CALL MDS_READ_FIELD(
135         I                fName, filePrec, .TRUE., arrType, nNz, 1, nNz,
136         O                dummyRL, arr,
137         I                irecord, myThid )
138          ENDIF
139    
140    #else /* ALLOW_AUTODIFF */
141          STOP 'ABNORMAL END: S/R MDSREADFIELD_LOC is empty'
142    #endif /* ALLOW_AUTODIFF */
143    
144        RETURN        RETURN
145        END        END
146    
147  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
148    
149        SUBROUTINE MDSWRITEFIELD(        SUBROUTINE MDSWRITEFIELD(
# Line 158  C Routine arguments Line 191  C Routine arguments
191        INTEGER irecord        INTEGER irecord
192        INTEGER myIter        INTEGER myIter
193        INTEGER myThid        INTEGER myThid
194  C     ------------------------------------------------------------------  
195        CALL MDS_WRITE_FIELD(  #ifdef ALLOW_AUTODIFF
196       I                      fName, filePrec, globalFile, .FALSE.,  C Local variables
197       I                      arrType, nNz, 1, nNz, arr, irecord,        _RL dummyRL(1)
198       I                      myIter, myThid )        _RS dummyRS(1)
199  C     ------------------------------------------------------------------  
200          IF ( arrType.EQ.'RL' ) THEN
201            CALL MDS_WRITE_FIELD(
202         I                 fName, filePrec, globalFile, .FALSE.,
203         I                 arrType, nNz, 1, nNz, arr, dummyRS,
204         I                 irecord, myIter, myThid )
205          ELSE
206            CALL MDS_WRITE_FIELD(
207         I                 fName, filePrec, globalFile, .FALSE.,
208         I                 arrType, nNz, 1, nNz, dummyRL, arr,
209         I                 irecord, myIter, myThid )
210          ENDIF
211    
212    #else /* ALLOW_AUTODIFF */
213          STOP 'ABNORMAL END: S/R MDSWRITEFIELD is retired'
214    #endif /* ALLOW_AUTODIFF */
215    
216        RETURN        RETURN
217        END        END
218    
# Line 214  C Routine arguments Line 263  C Routine arguments
263        INTEGER irecord        INTEGER irecord
264        INTEGER myIter        INTEGER myIter
265        INTEGER myThid        INTEGER myThid
266  C     ------------------------------------------------------------------  
267        CALL MDS_WRITE_FIELD(  #ifdef ALLOW_AUTODIFF
268       I                      fName, filePrec, globalFile, .TRUE.,  C Local variables
269       I                      arrType, nNz, 1, nNz, arr, irecord,        _RL dummyRL(1)
270       I                      myIter, myThid )        _RS dummyRS(1)
271  C     ------------------------------------------------------------------  
272          IF ( arrType.EQ.'RL' ) THEN
273            CALL MDS_WRITE_FIELD(
274         I                 fName, filePrec, globalFile, .TRUE.,
275         I                 arrType, nNz, 1, nNz, arr, dummyRS,
276         I                 irecord, myIter, myThid )
277          ELSE
278            CALL MDS_WRITE_FIELD(
279         I                 fName, filePrec, globalFile, .TRUE.,
280         I                 arrType, nNz, 1, nNz, dummyRL, arr,
281         I                 irecord, myIter, myThid )
282          ENDIF
283    
284    #else /* ALLOW_AUTODIFF */
285          STOP 'ABNORMAL END: S/R MDSWRITEFIELD_LOC is empty'
286    #endif /* ALLOW_AUTODIFF */
287    
288        RETURN        RETURN
289        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22