416 |
|
|
417 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
418 |
CBOP 0 |
CBOP 0 |
419 |
|
C !ROUTINE: MNC_CW_APPEND_VNAME |
420 |
|
|
421 |
|
C !INTERFACE: |
422 |
|
SUBROUTINE MNC_CW_APPEND_VNAME( |
423 |
|
I vname, |
424 |
|
I gname, |
425 |
|
I bi_dim, bj_dim, |
426 |
|
I myThid ) |
427 |
|
|
428 |
|
C !DESCRIPTION: |
429 |
|
C If it is not yet defined within the MNC CW layer, append a |
430 |
|
C variable type. Calls MNC\_CW\_ADD\_VNAME(). |
431 |
|
|
432 |
|
C !USES: |
433 |
|
implicit none |
434 |
|
#include "mnc_common.h" |
435 |
|
|
436 |
|
C !INPUT PARAMETERS: |
437 |
|
integer myThid, bi_dim, bj_dim |
438 |
|
character*(*) vname, gname |
439 |
|
CEOP |
440 |
|
|
441 |
|
C !LOCAL VARIABLES: |
442 |
|
integer indv |
443 |
|
|
444 |
|
C Check whether vname is defined |
445 |
|
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
446 |
|
IF (indv .LT. 1) THEN |
447 |
|
CALL MNC_CW_ADD_VNAME(vname, gname, bi_dim, bj_dim, myThid) |
448 |
|
ENDIF |
449 |
|
|
450 |
|
|
451 |
|
RETURN |
452 |
|
END |
453 |
|
|
454 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
455 |
|
CBOP 0 |
456 |
C !ROUTINE: MNC_CW_ADD_VNAME |
C !ROUTINE: MNC_CW_ADD_VNAME |
457 |
|
|
458 |
C !INTERFACE: |
C !INTERFACE: |
462 |
I bi_dim, bj_dim, |
I bi_dim, bj_dim, |
463 |
I myThid ) |
I myThid ) |
464 |
|
|
465 |
C !DESCRIPTION: Add a variable type to the MNC CW layer. The |
C !DESCRIPTION: |
466 |
C variable type is an association between a variable type name and |
C Add a variable type to the MNC CW layer. The variable type is an |
467 |
C the following items: |
C association between a variable type name and the following items: |
468 |
C \begin{center} |
C \begin{center} |
469 |
C \begin{tabular}[h]{|ll|}\hline |
C \begin{tabular}[h]{|ll|}\hline |
470 |
C \textbf{Item} & \textbf{Purpose} \\\hline |
C \textbf{Item} & \textbf{Purpose} \\\hline |
765 |
I myThid ) |
I myThid ) |
766 |
|
|
767 |
C !DESCRIPTION: |
C !DESCRIPTION: |
768 |
|
C Open a NetCDF file, appending to the file if it already exists |
769 |
|
C and, if not, creating a new file. |
770 |
|
|
771 |
C !USES: |
C !USES: |
772 |
implicit none |
implicit none |