/[MITgcm]/MITgcm/pkg/mnc/mnc_test_002.T
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_test_002.T

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by edhill, Thu Feb 5 00:13:47 2004 UTC revision 1.5 by edhill, Fri Mar 19 03:28:37 2004 UTC
# Line 13  C     Functions Line 13  C     Functions
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    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22