/[MITgcm]/MITgcm/pkg/mnc/mnc_dim.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_dim.F

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

revision 1.8 by edhill, Sun Mar 28 19:28:34 2004 UTC revision 1.9 by edhill, Mon Mar 29 03:33:51 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
   
7  CBOP  CBOP
8  C     !ROUTINE: MNC_DIM_INIT  C     !ROUTINE: MNC_DIM_INIT
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MNC_DIM_INIT(        SUBROUTINE MNC_DIM_INIT(
12       I     fname,       I     fname,
# Line 15  C     !INTERFACE: Line 15  C     !INTERFACE:
15       I     myThid )       I     myThid )
16    
17  C     !DESCRIPTION:  C     !DESCRIPTION:
18  C     Creates a NetCDF dimension within an existing NetCDF file  C     Create a dimension within the MNC look-up tables.
19    
20  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
 C     Arguments  
21        integer myThid, dlen        integer myThid, dlen
22        character*(*) fname, dname        character*(*) fname, dname
23  CEOP  CEOP
# Line 30  CEOP Line 29  CEOP
29    
30    
31  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
   
32  CBOP  CBOP
33  C     !ROUTINE: MNC_DIM_INIT_ALL  C     !ROUTINE: MNC_DIM_INIT_ALL
34    
35  C     !INTERFACE:  C     !INTERFACE:
36        SUBROUTINE MNC_DIM_INIT_ALL(        SUBROUTINE MNC_DIM_INIT_ALL(
37       I     fname,       I     fname,
# Line 42  C     !INTERFACE: Line 41  C     !INTERFACE:
41       I     myThid )       I     myThid )
42    
43  C     !DESCRIPTION:  C     !DESCRIPTION:
44  C     Creates a NetCDF dimension within an existing NetCDF file  C     Create a dimension within the MNC look-up tables.
45    
46  C     !USES:  C     !USES:
47        implicit none        implicit none
# Line 55  C     !INPUT PARAMETERS: Line 54  C     !INPUT PARAMETERS:
54        character*(*) fname, dname        character*(*) fname, dname
55        character*(1) doWrite        character*(1) doWrite
56    
 C     Functions  
       integer ILNBLNK, IFNBLNK  
   
57  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
58        integer i,j, indf,indd, n,nf, dnf,dnl, ntmp, idd, err, tlen        integer i,j, indf,indd, n,nf, dnf,dnl
59          integer ntmp, idd, err, tlen
60        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
61  CEOP  CEOP
62    C     Functions
63          integer ILNBLNK, IFNBLNK
64    
65        nf = ILNBLNK(fname)        nf = ILNBLNK(fname)
66    
# Line 130  C     Add to tables Line 129  C     Add to tables
129        END        END
130    
131  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
132    CBOP
133    C     !ROUTINE: MNC_DIM_UNLIM_SIZE
134    
135    C     !INTERFACE:
136        SUBROUTINE MNC_DIM_UNLIM_SIZE(        SUBROUTINE MNC_DIM_UNLIM_SIZE(
137       I     fname,       I     fname,
138       I     unlim_sz,       I     unlim_sz,
139       I     myThid )       I     myThid )
140    
141    C     !DESCRIPTION:
142    C     Get the size of the unlimited dimension.
143          
144    C     !USES:
145        implicit none        implicit none
146  #include "netcdf.inc"  #include "netcdf.inc"
147  #include "mnc_common.h"  #include "mnc_common.h"
148  #include "EEPARAMS.h"  #include "EEPARAMS.h"
149    
150  C     Arguments  C     !INPUT PARAMETERS:
151        integer myThid, unlim_sz        integer myThid, unlim_sz
152        character*(*) fname        character*(*) fname
153    
154  C     Functions  C     !LOCAL VARIABLES:
       integer ILNBLNK, IFNBLNK  
   
 C     Local Variables  
155        integer i,j, nf, indf, fid, unlimid, err        integer i,j, nf, indf, fid, unlimid, err
156        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
157    CEOP
158    C     Functions
159          integer ILNBLNK, IFNBLNK
160    
161        nf = ILNBLNK(fname)        nf = ILNBLNK(fname)
162    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22