3 |
|
|
4 |
#include "MNC_OPTIONS.h" |
#include "MNC_OPTIONS.h" |
5 |
|
|
6 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
7 |
|
|
8 |
SUBROUTINE MNC_VAR_INIT_DBL( |
SUBROUTINE MNC_VAR_INIT_DBL( |
9 |
I myThid, |
I myThid, |
23 |
RETURN |
RETURN |
24 |
END |
END |
25 |
|
|
26 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
27 |
|
|
28 |
SUBROUTINE MNC_VAR_INIT_REAL( |
SUBROUTINE MNC_VAR_INIT_REAL( |
29 |
I myThid, |
I myThid, |
43 |
RETURN |
RETURN |
44 |
END |
END |
45 |
|
|
46 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
47 |
|
|
48 |
SUBROUTINE MNC_VAR_INIT_INT( |
SUBROUTINE MNC_VAR_INIT_INT( |
49 |
I myThid, |
I myThid, |
63 |
RETURN |
RETURN |
64 |
END |
END |
65 |
|
|
66 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
67 |
|
|
68 |
SUBROUTINE MNC_VAR_INIT_ANY( |
SUBROUTINE MNC_VAR_INIT_ANY( |
69 |
I myThid, |
I myThid, |
173 |
RETURN |
RETURN |
174 |
END |
END |
175 |
|
|
176 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
177 |
|
|
178 |
SUBROUTINE MNC_VAR_ADD_ATTR_STR( |
SUBROUTINE MNC_VAR_ADD_ATTR_STR( |
179 |
I myThid, |
I myThid, |
191 |
& 1, sval, 0, 0.0D0, 0.0, 0) |
& 1, sval, 0, 0.0D0, 0.0, 0) |
192 |
RETURN |
RETURN |
193 |
END |
END |
194 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
195 |
|
|
196 |
SUBROUTINE MNC_VAR_ADD_ATTR_DBL( |
SUBROUTINE MNC_VAR_ADD_ATTR_DBL( |
197 |
I myThid, |
I myThid, |
212 |
RETURN |
RETURN |
213 |
END |
END |
214 |
|
|
215 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
216 |
|
|
217 |
SUBROUTINE MNC_VAR_ADD_ATTR_REAL( |
SUBROUTINE MNC_VAR_ADD_ATTR_REAL( |
218 |
I myThid, |
I myThid, |
233 |
RETURN |
RETURN |
234 |
END |
END |
235 |
|
|
236 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
237 |
|
|
238 |
SUBROUTINE MNC_VAR_ADD_ATTR_INT( |
SUBROUTINE MNC_VAR_ADD_ATTR_INT( |
239 |
I myThid, |
I myThid, |
254 |
RETURN |
RETURN |
255 |
END |
END |
256 |
|
|
257 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
258 |
|
|
259 |
SUBROUTINE MNC_VAR_ADD_ATTR_ANY( |
SUBROUTINE MNC_VAR_ADD_ATTR_ANY( |
260 |
I myThid, |
I myThid, |
325 |
RETURN |
RETURN |
326 |
END |
END |
327 |
|
|
328 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
329 |
|
|
330 |
SUBROUTINE MNC_VAR_WRITE_DBL( |
SUBROUTINE MNC_VAR_WRITE_DBL( |
331 |
I myThid, |
I myThid, |
343 |
RETURN |
RETURN |
344 |
END |
END |
345 |
|
|
346 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
347 |
|
|
348 |
SUBROUTINE MNC_VAR_WRITE_REAL( |
SUBROUTINE MNC_VAR_WRITE_REAL( |
349 |
I myThid, |
I myThid, |
361 |
RETURN |
RETURN |
362 |
END |
END |
363 |
|
|
364 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
365 |
|
|
366 |
SUBROUTINE MNC_VAR_WRITE_INT( |
SUBROUTINE MNC_VAR_WRITE_INT( |
367 |
I myThid, |
I myThid, |
379 |
RETURN |
RETURN |
380 |
END |
END |
381 |
|
|
382 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
383 |
|
|
384 |
SUBROUTINE MNC_VAR_APPEND_DBL( |
SUBROUTINE MNC_VAR_APPEND_DBL( |
385 |
I myThid, |
I myThid, |
398 |
RETURN |
RETURN |
399 |
END |
END |
400 |
|
|
401 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
402 |
|
|
403 |
SUBROUTINE MNC_VAR_APPEND_REAL( |
SUBROUTINE MNC_VAR_APPEND_REAL( |
404 |
I myThid, |
I myThid, |
417 |
RETURN |
RETURN |
418 |
END |
END |
419 |
|
|
420 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
421 |
|
|
422 |
SUBROUTINE MNC_VAR_APPEND_INT( |
SUBROUTINE MNC_VAR_APPEND_INT( |
423 |
I myThid, |
I myThid, |
436 |
RETURN |
RETURN |
437 |
END |
END |
438 |
|
|
439 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
440 |
|
|
441 |
SUBROUTINE MNC_VAR_WRITE_ANY( |
SUBROUTINE MNC_VAR_WRITE_ANY( |
442 |
I myThid, |
I myThid, |
532 |
RETURN |
RETURN |
533 |
END |
END |
534 |
|
|
535 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
536 |
|
|