21 |
CALL MNC_CW_INIT( 0, |
CALL MNC_CW_INIT( 0, |
22 |
& 20,16, 4,4, 1,1, 1,1, 13 ) |
& 20,16, 4,4, 1,1, 1,1, 13 ) |
23 |
|
|
24 |
|
CALL MNC_CW_ADD_VNAME(0, 'v_vel', 'V_xy_Hn__C__t') |
25 |
|
CALL MNC_CW_ADD_VATTR_TEXT(0, 'v_vel', 1, |
26 |
|
& 'long_name', 'meridional_velocity') |
27 |
|
CALL MNC_CW_ADD_VATTR_TEXT(0, 'v_vel', 1, |
28 |
|
& 'units', 'cm/s') |
29 |
|
CALL MNC_CW_ADD_VATTR_INT(0, 'v_vel', 1, |
30 |
|
& 'grid_type', -1 ) |
31 |
|
CALL MNC_CW_ADD_VATTR_DBL(0, 'v_vel', 1, |
32 |
|
& 'MITgcm_grid_ver', 0.1D0 ) |
33 |
|
|
34 |
CALL MNC_CW_DUMP() |
CALL MNC_CW_DUMP() |
35 |
|
|
36 |
print*, '=== Ending Program: mnc_test_002 ===' |
print*, '=== Ending Program: mnc_test_002 ===' |