/[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.7 by edhill, Fri Mar 19 03:28:36 2004 UTC revision 1.8 by edhill, Sun Mar 28 19:28:34 2004 UTC
# Line 5  C $Name$ Line 5  C $Name$
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    
8    CBOP
9    C     !ROUTINE: MNC_DIM_INIT
10    C     !INTERFACE:
11        SUBROUTINE MNC_DIM_INIT(        SUBROUTINE MNC_DIM_INIT(
12       I     fname,       I     fname,
13       I     dname,       I     dname,
14       I     dlen,       I     dlen,
15       I     myThid )       I     myThid )
16    
17    C     !DESCRIPTION:
18    C     Creates a NetCDF dimension within an existing NetCDF file
19    
20    C     !INPUT PARAMETERS:
21  C     Arguments  C     Arguments
22        integer myThid, dlen        integer myThid, dlen
23        character*(*) fname, dname        character*(*) fname, dname
24    CEOP
25    
26        CALL MNC_DIM_INIT_ALL(fname, dname, dlen, 'Y', myThid)        CALL MNC_DIM_INIT_ALL(fname, dname, dlen, 'Y', myThid)
27    
# Line 23  C     Arguments Line 31  C     Arguments
31    
32  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
33    
34    CBOP
35    C     !ROUTINE: MNC_DIM_INIT_ALL
36    C     !INTERFACE:
37        SUBROUTINE MNC_DIM_INIT_ALL(        SUBROUTINE MNC_DIM_INIT_ALL(
38       I     fname,       I     fname,
39       I     dname,       I     dname,
# Line 30  C---+----1----+----2----+----3----+----4 Line 41  C---+----1----+----2----+----3----+----4
41       I     doWrite,       I     doWrite,
42       I     myThid )       I     myThid )
43    
44    C     !DESCRIPTION:
45    C     Creates a NetCDF dimension within an existing NetCDF file
46    
47    C     !USES:
48        implicit none        implicit none
49  #include "netcdf.inc"  #include "netcdf.inc"
50  #include "mnc_common.h"  #include "mnc_common.h"
51  #include "EEPARAMS.h"  #include "EEPARAMS.h"
52    
53  C     Arguments  C     !INPUT PARAMETERS:
54        integer myThid, dlen        integer myThid, dlen
55        character*(*) fname, dname        character*(*) fname, dname
56        character*(1) doWrite        character*(1) doWrite
# Line 43  C     Arguments Line 58  C     Arguments
58  C     Functions  C     Functions
59        integer ILNBLNK, IFNBLNK        integer ILNBLNK, IFNBLNK
60    
61  C     Local Variables  C     !LOCAL VARIABLES:
62        integer i,j, indf,indd, n,nf, dnf,dnl, ntmp, idd, err, tlen        integer i,j, indf,indd, n,nf, dnf,dnl, ntmp, idd, err, tlen
63        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
64    CEOP
65    
66        nf = ILNBLNK(fname)        nf = ILNBLNK(fname)
67    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22