/[MITgcm]/MITgcm/pkg/rw/read_fld_xy_rl.F
ViewVC logotype

Diff of /MITgcm/pkg/rw/read_fld_xy_rl.F

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

revision 1.3 by jmc, Fri Aug 4 02:48:05 2006 UTC revision 1.5 by jmc, Tue Sep 1 19:28:24 2009 UTC
# Line 19  C Arguments Line 19  C Arguments
19  C Functions  C Functions
20        INTEGER ILNBLNK,IFNBLNK        INTEGER ILNBLNK,IFNBLNK
21  C Local  C Local
22          LOGICAL useCurrentDir
23          _RS dummyRS(1)
24        CHARACTER*(2) fType        CHARACTER*(2) fType
25        INTEGER nNz        INTEGER nNz
26        INTEGER irec        INTEGER iRec
27        INTEGER s1Lo,s1Hi,s2Lo,s2Hi        INTEGER s1Lo,s1Hi,s2Lo,s2Hi
28        CHARACTER*(MAX_LEN_FNAM) fullName        CHARACTER*(MAX_LEN_FNAM) fullName
29  C  C
# Line 37  C     e.g. U.0000000100 Line 39  C     e.g. U.0000000100
39         s2Hi = ILNBLNK(suff)         s2Hi = ILNBLNK(suff)
40         WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)         WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
41        ENDIF        ENDIF
42  C  
43          useCurrentDir = .FALSE.
44        fType='RL'        fType='RL'
45        nNz=1        nNz=1
46        irec=1        iRec=1
47  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
48        CALL MDSREADFIELD( fullName, readBinaryPrec, fType,        CALL MDS_READ_FIELD(
49       &     nNz, field, irec, myThid )       I                     fullName, readBinaryPrec, useCurrentDir,
50         I                     fType, nNz, 1, nNz,
51         O                     field, dummyRS,
52         I                     iRec, myThid )
53  #endif  #endif
54        RETURN        RETURN
55        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22