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, |
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 |
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, |
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 |
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 |
|
|
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 |
|
|