13 |
integer ILNBLNK |
integer ILNBLNK |
14 |
|
|
15 |
C Local Variables |
C Local Variables |
16 |
integer i |
integer i, myThid |
17 |
|
|
18 |
|
myThid = 0 |
19 |
print*, '=== Starting Program: mnc_test_002 ===' |
print*, '=== Starting Program: mnc_test_002 ===' |
20 |
|
|
21 |
CALL MNC_INIT() |
CALL MNC_INIT(myThid) |
22 |
CALL MNC_CW_INIT( 0, |
CALL MNC_CW_INIT(20,16, 4,4, 1,1, 1,1, 13, myThid) |
|
& 20,16, 4,4, 1,1, 1,1, 13 ) |
|
|
|
|
|
CALL MNC_CW_ADD_VNAME(0, 'v_vel', 'V_xy_Hn__C__t', 4,5 ) |
|
|
CALL MNC_CW_ADD_VATTR_TEXT(0, 'v_vel', 1, |
|
|
& 'long_name', 'meridional_velocity') |
|
|
CALL MNC_CW_ADD_VATTR_TEXT(0, 'v_vel', 1, |
|
|
& 'units', 'cm/s') |
|
|
CALL MNC_CW_ADD_VATTR_INT(0, 'v_vel', 1, |
|
|
& 'grid_type', -1 ) |
|
|
CALL MNC_CW_ADD_VATTR_DBL(0, 'v_vel', 1, |
|
|
& 'MITgcm_grid_ver', 0.1D0 ) |
|
23 |
|
|
24 |
CALL MNC_CW_DUMP() |
CALL MNC_CW_ADD_VNAME('v_vel', 'V_xy_Hn__C__t', 4,5, myThid ) |
25 |
|
CALL MNC_CW_ADD_VATTR_TEXT('v_vel', 1, |
26 |
|
& 'long_name', 'meridional_velocity', myThid) |
27 |
|
CALL MNC_CW_ADD_VATTR_TEXT('v_vel', 1, |
28 |
|
& 'units', 'cm/s', myThid) |
29 |
|
CALL MNC_CW_ADD_VATTR_INT('v_vel', 1, |
30 |
|
& 'grid_type', -1, myThid ) |
31 |
|
CALL MNC_CW_ADD_VATTR_DBL('v_vel', 1, |
32 |
|
& 'MITgcm_grid_ver', 0.1D0, myThid ) |
33 |
|
|
34 |
|
CALL MNC_CW_DUMP(myThid) |
35 |
|
|
36 |
print*, '=== Ending Program: mnc_test_002 ===' |
print*, '=== Ending Program: mnc_test_002 ===' |
37 |
|
|