pkg/mnc/mnc_test_002.T

C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_test_002.T,v 1.1 2004/01/27 05:47:32 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_DUMP()

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

      END

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	edhill	1.2	C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_test_002.T,v 1.1 2004/01/27 05:47:32 edhill Exp $
2	edhill	1.1	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	edhill	1.2
24			CALL MNC_CW_DUMP()
25	edhill	1.1
26			print*, '=== Ending Program: mnc_test_002 ==='
27
28			END
29
30			CEH3 ;;; Local Variables: ***
31			CEH3 ;;; mode:fortran ***
32			CEH3 ;;; End: ***