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 1 |
8 |
C !ROUTINE: MNC_VAR_INIT_DBL |
C !ROUTINE: MNC_VAR_INIT_DBL |
9 |
|
|
10 |
C !INTERFACE: |
C !INTERFACE: |
32 |
END |
END |
33 |
|
|
34 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
35 |
CBOP |
CBOP 1 |
36 |
C !ROUTINE: MNC_VAR_INIT_REAL |
C !ROUTINE: MNC_VAR_INIT_REAL |
37 |
|
|
38 |
C !INTERFACE: |
C !INTERFACE: |
60 |
END |
END |
61 |
|
|
62 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
63 |
CBOP |
CBOP 1 |
64 |
C !ROUTINE: MNC_VAR_INIT_INT |
C !ROUTINE: MNC_VAR_INIT_INT |
65 |
|
|
66 |
C !INTERFACE: |
C !INTERFACE: |
87 |
END |
END |
88 |
|
|
89 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
90 |
CBOP |
CBOP 1 |
91 |
C !ROUTINE: MNC_VAR_INIT_ANY |
C !ROUTINE: MNC_VAR_INIT_ANY |
92 |
|
|
93 |
C !INTERFACE: |
C !INTERFACE: |
112 |
integer myThid |
integer myThid |
113 |
character*(*) fname,gname,vname |
character*(*) fname,gname,vname |
114 |
integer vtype |
integer vtype |
115 |
|
CEOP |
116 |
|
|
117 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
118 |
integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err |
integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err |
120 |
character*(MAX_LEN_MBUF) msgbuf |
character*(MAX_LEN_MBUF) msgbuf |
121 |
integer ids(20) |
integer ids(20) |
122 |
integer lenf,leng,lenv |
integer lenf,leng,lenv |
123 |
CEOP |
|
124 |
C Functions |
C Functions |
125 |
integer ILNBLNK |
integer ILNBLNK |
126 |
|
|
220 |
END |
END |
221 |
|
|
222 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
223 |
CBOP |
CBOP 1 |
224 |
C !ROUTINE: MNC_VAR_ADD_ATTR_STR |
C !ROUTINE: MNC_VAR_ADD_ATTR_STR |
225 |
|
|
226 |
C !INTERFACE: |
C !INTERFACE: |
248 |
RETURN |
RETURN |
249 |
END |
END |
250 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
251 |
CBOP |
CBOP 1 |
252 |
C !ROUTINE: MNC_VAR_ADD_ATTR_DBL |
C !ROUTINE: MNC_VAR_ADD_ATTR_DBL |
253 |
|
|
254 |
C !INTERFACE: |
C !INTERFACE: |
279 |
END |
END |
280 |
|
|
281 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
282 |
CBOP |
CBOP 1 |
283 |
C !ROUTINE: MNC_VAR_ADD_ATTR_REAL |
C !ROUTINE: MNC_VAR_ADD_ATTR_REAL |
284 |
|
|
285 |
C !INTERFACE: |
C !INTERFACE: |
310 |
END |
END |
311 |
|
|
312 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
313 |
CBOP |
CBOP 1 |
314 |
C !ROUTINE: MNC_VAR_ADD_ATTR_INT |
C !ROUTINE: MNC_VAR_ADD_ATTR_INT |
315 |
|
|
316 |
C !INTERFACE: |
C !INTERFACE: |
341 |
END |
END |
342 |
|
|
343 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
344 |
CBOP |
CBOP 1 |
345 |
C !ROUTINE: MNC_VAR_ADD_ATTR_ANY |
C !ROUTINE: MNC_VAR_ADD_ATTR_ANY |
346 |
|
|
347 |
C !INTERFACE: |
C !INTERFACE: |
368 |
REAL*8 dv(*) |
REAL*8 dv(*) |
369 |
REAL*4 rv(*) |
REAL*4 rv(*) |
370 |
integer iv(*) |
integer iv(*) |
371 |
|
CEOP |
372 |
|
|
373 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
374 |
integer n, indf,ind_fv_ids, fid,vid, err |
integer n, indf,ind_fv_ids, fid,vid, err |
375 |
character*(MAX_LEN_MBUF) msgbuf |
character*(MAX_LEN_MBUF) msgbuf |
376 |
integer lenf,lenv,lenat,lens |
integer lenf,lenv,lenat,lens |
377 |
CEOP |
|
378 |
C Functions |
C Functions |
379 |
integer ILNBLNK |
integer ILNBLNK |
380 |
|
|