| 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 |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch