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

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

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

revision 1.1 by jmc, Fri Aug 4 15:36:28 2006 UTC revision 1.2 by jmc, Tue Nov 13 19:41:05 2007 UTC
# Line 24  C Common Line 24  C Common
24        COMMON /RD_WR_FLD/ globalFile        COMMON /RD_WR_FLD/ globalFile
25        LOGICAL globalFile        LOGICAL globalFile
26  C Local  C Local
27          LOGICAL useCurrentDir
28        CHARACTER*(2) fType        CHARACTER*(2) fType
29        INTEGER irec        INTEGER iRec
30        INTEGER s1Lo,s1Hi,s2Lo,s2Hi        INTEGER s1Lo,s1Hi,s2Lo,s2Hi
31        CHARACTER*(MAX_LEN_FNAM) fullName        CHARACTER*(MAX_LEN_FNAM) fullName
32  C  C
# Line 43  C     e.g. U.0000000100 Line 44  C     e.g. U.0000000100
44         s2Hi = ILNBLNK(suff)         s2Hi = ILNBLNK(suff)
45         WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)         WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
46        ENDIF        ENDIF
47  C  
48          useCurrentDir = .FALSE.
49        fType='RL'        fType='RL'
50        irec=1        iRec=1
51  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
52        CALL MDSWRITEFIELD( fullName, writeBinaryPrec, globalFile,        CALL MDS_WRITE_FIELD(
53       &     fType, nNz, field, irec, myIter, myThid )       I                      fullName, writeBinaryPrec,
54         I                      globalFile, useCurrentDir,
55         I                      fType, nNz, 1, nNz, field,
56         I                      iRec, myIter, myThid )
57  #endif  #endif
58        RETURN        RETURN
59        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22