pkg/mnc/mnc_test_001.T

C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_test_001.T,v 1.1 2004/01/05 21:38:27 edhill Exp $
C $Name:  $

C     Simple test program for MNC

      PROGRAM mnc_test_001

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

C     Functions
      integer ILNBLNK

C     Local Variables
      integer MAX_STR, MAX_NAMES
      PARAMETER ( MAX_STR = 100 )
      PARAMETER ( MAX_NAMES = 10 )
      integer myThid, i, n, ind, fid
      character*(MAX_LEN_MBUF) msgbuf
      character*(MAX_STR) blank, fname, gname
      character*(MAX_STR) names(MAX_NAMES)

      print*, '=== Starting Program:  mnc_test_001 ==='
      DO i = 1,MAX_STR
        blank(i:i) = ' '
      ENDDO
      DO i = 1,MAX_NAMES
        names(i)(1:MAX_STR) = blank(1:MAX_STR)
      ENDDO
      fname(1:MAX_STR) = blank(1:MAX_STR)
      gname(1:MAX_STR) = blank(1:MAX_STR)
      fname(1:12) = 'test_001.nc '

      myThid = 1
      print*, ' Calling MNC_INIT() ...'
      CALL MNC_INIT(myThid)

      print*, ' Calling MNC_DIM_INIT() ...'
      CALL MNC_DIM_INIT(myThid, 'X ', 'X ', 11)
      print*, '   ... created 1 dimension'
      CALL MNC_DIM_INIT(myThid, 'Y ', 'Y ', 21)
      print*, '   ... created 2 dimensions'

      print*, ' Calling MNC_FILE_CREATE() ...'
      CALL MNC_FILE_CREATE(myThid, fname)

      print*, ' Calling MNC_GRID_INIT() ...'
      gname(1:8) = 'XY_Grid '
      n = 2
      names(1)(1:2) = 'X '
      names(2)(1:2) = 'Y '
      CALL MNC_GRID_INIT(myThid, fname, gname, n, names)

      print*, ' Calling MNC_FILE_CLOSE() ...'
      CALL MNC_FILE_CLOSE(myThid, fname)

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

      END

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	edhill	1.2	C $Header: /u/u3/gcmpack/MITgcm/pkg/mnc/mnc_test_001.T,v 1.1 2004/01/05 21:38:27 edhill Exp $
2	edhill	1.1	C $Name: $
3
4			C Simple test program for MNC
5
6			PROGRAM mnc_test_001
7
8			implicit none
9	edhill	1.2	#include "MNC_OPTIONS.h"
10	edhill	1.1	#include "EEPARAMS.h"
11
12			C Functions
13			integer ILNBLNK
14
15			C Local Variables
16	edhill	1.2	integer MAX_STR, MAX_NAMES
17			PARAMETER ( MAX_STR = 100 )
18			PARAMETER ( MAX_NAMES = 10 )
19			integer myThid, i, n, ind, fid
20	edhill	1.1	character*(MAX_LEN_MBUF) msgbuf
21	edhill	1.2	character*(MAX_STR) blank, fname, gname
22			character*(MAX_STR) names(MAX_NAMES)
23	edhill	1.1
24	edhill	1.2	print*, '=== Starting Program: mnc_test_001 ==='
25			DO i = 1,MAX_STR
26			blank(i:i) = ' '
27			ENDDO
28			DO i = 1,MAX_NAMES
29			names(i)(1:MAX_STR) = blank(1:MAX_STR)
30			ENDDO
31			fname(1:MAX_STR) = blank(1:MAX_STR)
32			gname(1:MAX_STR) = blank(1:MAX_STR)
33			fname(1:12) = 'test_001.nc '
34
35			myThid = 1
36			print*, ' Calling MNC_INIT() ...'
37			CALL MNC_INIT(myThid)
38
39			print*, ' Calling MNC_DIM_INIT() ...'
40			CALL MNC_DIM_INIT(myThid, 'X ', 'X ', 11)
41			print*, ' ... created 1 dimension'
42			CALL MNC_DIM_INIT(myThid, 'Y ', 'Y ', 21)
43			print*, ' ... created 2 dimensions'
44
45			print*, ' Calling MNC_FILE_CREATE() ...'
46			CALL MNC_FILE_CREATE(myThid, fname)
47
48			print*, ' Calling MNC_GRID_INIT() ...'
49			gname(1:8) = 'XY_Grid '
50			n = 2
51			names(1)(1:2) = 'X '
52			names(2)(1:2) = 'Y '
53			CALL MNC_GRID_INIT(myThid, fname, gname, n, names)
54
55			print*, ' Calling MNC_FILE_CLOSE() ...'
56			CALL MNC_FILE_CLOSE(myThid, fname)
57
58			print*, '=== Ending Program: mnc_test_001 ==='
59	edhill	1.1
60			END
61
62			CEH3 ;;; Local Variables: ***
63			CEH3 ;;; mode:fortran ***
64			CEH3 ;;; End: ***