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

Diff of /MITgcm/pkg/rw/read_fld_xyz_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.4 by jmc, Tue Nov 13 19:41:05 2007 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        CHARACTER*(2) fType        CHARACTER*(2) fType
24        INTEGER nNz        INTEGER nNz
25        INTEGER irec        INTEGER iRec
26        INTEGER s1Lo,s1Hi,s2Lo,s2Hi        INTEGER s1Lo,s1Hi,s2Lo,s2Hi
27        CHARACTER*(MAX_LEN_FNAM) fullName        CHARACTER*(MAX_LEN_FNAM) fullName
28  C  C
# Line 37  C     e.g. U.0000000100 Line 38  C     e.g. U.0000000100
38         s2Hi = ILNBLNK(suff)         s2Hi = ILNBLNK(suff)
39         WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)         WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
40        ENDIF        ENDIF
41  C  
42          useCurrentDir = .FALSE.
43        fType='RL'        fType='RL'
44        nNz=Nr        nNz=Nr
45        irec=1        iRec=1
46  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
47        CALL MDSREADFIELD( fullName, readBinaryPrec, fType,        CALL MDS_READ_FIELD(
48       &     nNz, field, irec, myThid )       I                     fullName, readBinaryPrec, useCurrentDir,
49         I                     fType, nNz, 1, nNz,
50         O                     field,
51         I                     iRec, myThid )
52  #endif  #endif
 C  
53        RETURN        RETURN
54        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22