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

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

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

revision 1.1 by edhill, Mon Jan 5 21:38:27 2004 UTC revision 1.2 by edhill, Tue Jan 6 23:19:27 2004 UTC
# Line 6  C     Simple test program for MNC Line 6  C     Simple test program for MNC
6        PROGRAM mnc_test_001        PROGRAM mnc_test_001
7    
8        implicit none        implicit none
9    #include "MNC_OPTIONS.h"
10  #include "EEPARAMS.h"  #include "EEPARAMS.h"
11    
12  C     Functions  C     Functions
13        integer ILNBLNK        integer ILNBLNK
14    
15  C     Local Variables  C     Local Variables
16        integer i, n, ind, fid        integer MAX_STR, MAX_NAMES
17          PARAMETER ( MAX_STR = 100 )
18          PARAMETER ( MAX_NAMES = 10 )
19          integer myThid, i, n, ind, fid
20        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
21          character*(MAX_STR) blank, fname, gname
22          character*(MAX_STR) names(MAX_NAMES)
23    
24                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    
60        END        END
61    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22