pkg/mnc/mnc_test_002.T

C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_test_002.T,v 1.3 2004/01/31 04:13:09 edhill Exp $
C $Name:  $

C     Simple test program for MNC

      PROGRAM mnc_test_002

      implicit none
#include "MNC_OPTIONS.h"
#include "EEPARAMS.h"

C     Functions
      integer ILNBLNK

C     Local Variables
      integer i

      print*, '=== Starting Program:  mnc_test_002 ==='

      CALL MNC_INIT()
      CALL MNC_CW_INIT( 0,
     &     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 )

      CALL MNC_CW_DUMP()

      print*, '=== Ending Program:    mnc_test_002 ==='

      END

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_test_002.T,v 1.3 2004/01/31 04:13:09 edhill Exp $
2	C $Name: $
3
4	C Simple test program for MNC
5
6	PROGRAM mnc_test_002
7
8	implicit none
9	#include "MNC_OPTIONS.h"
10	#include "EEPARAMS.h"
11
12	C Functions
13	integer ILNBLNK
14
15	C Local Variables
16	integer i
17
18	print*, '=== Starting Program: mnc_test_002 ==='
19
20	CALL MNC_INIT()
21	CALL MNC_CW_INIT( 0,
22	& 20,16, 4,4, 1,1, 1,1, 13 )
23
24	CALL MNC_CW_ADD_VNAME(0, 'v_vel', 'V_xy_Hn__C__t', 4,5 )
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()
35
36	print*, '=== Ending Program: mnc_test_002 ==='
37
38	END
39
40	CEH3 ;;; Local Variables: ***
41	CEH3 ;;; mode:fortran ***
42	CEH3 ;;; End: ***