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

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

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

revision 1.4 by jmc, Tue Sep 1 19:25:28 2009 UTC revision 1.5 by jmc, Mon Oct 25 18:39:50 2010 UTC
# Line 5  C $Name$ Line 5  C $Name$
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.
6  C--   Contents  C--   Contents
7  C--   o SET_WRITE_GLOBAL_REC  C--   o SET_WRITE_GLOBAL_REC
8    C--   o SET_WRITE_GLOBAL_SEC
9  C--   o WRITE_REC_XY_RS  C--   o WRITE_REC_XY_RS
10  C--   o WRITE_REC_XY_RL  C--   o WRITE_REC_XY_RL
11  C--   o WRITE_REC_XYZ_RS  C--   o WRITE_REC_XYZ_RS
# Line 26  C     !INTERFACE: Line 27  C     !INTERFACE:
27        IMPLICIT NONE        IMPLICIT NONE
28    
29  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
30  C SET_WRITE_GLOBAL_FLD( flag ) sets an internal logical state to  C SET_WRITE_GLOBAL_REC( flag ) sets an internal logical state to
31  C indicate whether files written by subsequent call to the  C indicate whether Record files written by subsequent call to the
32  C READ_WRITE_FLD package should create "global" or "tiled" files.  C READ-WRITE package should create "global" or "tiled" files.
33  C   flag = .TRUE.  indicates "global" files  C   flag = .TRUE.  indicates "global" files
34  C   flag = .FALSE. indicates "tiled" files  C   flag = .FALSE. indicates "tiled" files
35  C     \ev  C     \ev
# Line 49  CEOP Line 50  CEOP
50    
51  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
52  CBOP  CBOP
53    C     !ROUTINE: SET_WRITE_GLOBAL_SEC
54    C     !INTERFACE:
55          SUBROUTINE SET_WRITE_GLOBAL_SEC ( flag )
56          IMPLICIT NONE
57    
58    C     !DESCRIPTION: \bv
59    C SET_WRITE_GLOBAL_SEC( flag ) sets an internal logical state to
60    C indicate whether files containing vertical Sections written by subsequent
61    C call to the READ-WRITE package should create "global" or "tiled" files.
62    C   flag = .TRUE.  indicates "global" files
63    C   flag = .FALSE. indicates "tiled" files
64    C     \ev
65    
66    C     !INPUT/OUTPUT PARAMETERS:
67    C Arguments
68          LOGICAL flag
69    C     !USES:
70    C Common
71          COMMON /RD_WR_SEC/ globalFile
72          LOGICAL globalFile
73    CEOP
74    
75          globalFile=flag
76    
77          RETURN
78          END
79    
80    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
81    CBOP
82  C     !ROUTINE: WRITE_REC_XY_RS  C     !ROUTINE: WRITE_REC_XY_RS
83  C     !INTERFACE:  C     !INTERFACE:
84        SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid )        SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid )
# Line 603  C Functions Line 633  C Functions
633  c     INTEGER ILNBLNK  c     INTEGER ILNBLNK
634    
635  C Common  C Common
636        COMMON /RD_WR_REC/ globalFile        COMMON /RD_WR_SEC/ globalFile
637        LOGICAL globalFile        LOGICAL globalFile
638    
639  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 669  C Functions Line 699  C Functions
699  c     INTEGER ILNBLNK  c     INTEGER ILNBLNK
700    
701  C Common  C Common
702        COMMON /RD_WR_REC/ globalFile        COMMON /RD_WR_SEC/ globalFile
703        LOGICAL globalFile        LOGICAL globalFile
704    
705  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 735  C Functions Line 765  C Functions
765  c     INTEGER ILNBLNK  c     INTEGER ILNBLNK
766    
767  C Common  C Common
768        COMMON /RD_WR_REC/ globalFile        COMMON /RD_WR_SEC/ globalFile
769        LOGICAL globalFile        LOGICAL globalFile
770    
771  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 802  C Functions Line 832  C Functions
832  c     INTEGER ILNBLNK  c     INTEGER ILNBLNK
833    
834  C Common  C Common
835        COMMON /RD_WR_REC/ globalFile        COMMON /RD_WR_SEC/ globalFile
836        LOGICAL globalFile        LOGICAL globalFile
837    
838  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22