/[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.2 by edhill, Tue Jan 6 23:19:27 2004 UTC revision 1.3 by edhill, Wed Jan 7 07:29:13 2004 UTC
# Line 18  C     Local Variables Line 18  C     Local Variables
18        PARAMETER ( MAX_NAMES = 10 )        PARAMETER ( MAX_NAMES = 10 )
19        integer myThid, i, n, ind, fid        integer myThid, i, n, ind, fid
20        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
21        character*(MAX_STR) blank, fname, gname        character*(MAX_STR) blank, fname, gname, vname, units
22          character*(MAX_STR) atname, atval
23        character*(MAX_STR) names(MAX_NAMES)        character*(MAX_STR) names(MAX_NAMES)
24          REAL*8 fillval
25    
26        print*, '=== Starting Program:  mnc_test_001 ==='        print*, '=== Starting Program:  mnc_test_001 ==='
27        DO i = 1,MAX_STR        DO i = 1,MAX_STR
# Line 30  C     Local Variables Line 32  C     Local Variables
32        ENDDO        ENDDO
33        fname(1:MAX_STR) = blank(1:MAX_STR)        fname(1:MAX_STR) = blank(1:MAX_STR)
34        gname(1:MAX_STR) = blank(1:MAX_STR)        gname(1:MAX_STR) = blank(1:MAX_STR)
35          vname(1:MAX_STR) = blank(1:MAX_STR)
36          units(1:MAX_STR) = blank(1:MAX_STR)
37          atname(1:MAX_STR) = blank(1:MAX_STR)
38          atval(1:MAX_STR) = blank(1:MAX_STR)
39        fname(1:12) = 'test_001.nc '        fname(1:12) = 'test_001.nc '
40    
41        myThid = 1        myThid = 1
# Line 39  C     Local Variables Line 45  C     Local Variables
45        print*, ' Calling MNC_DIM_INIT() ...'        print*, ' Calling MNC_DIM_INIT() ...'
46        CALL MNC_DIM_INIT(myThid, 'X ', 'X ', 11)        CALL MNC_DIM_INIT(myThid, 'X ', 'X ', 11)
47        print*, '   ... created 1 dimension'        print*, '   ... created 1 dimension'
48        CALL MNC_DIM_INIT(myThid, 'Y ', 'Y ', 21)        CALL MNC_DIM_INIT(myThid, 'Y ', 'Y ', 4)
49        print*, '   ... created 2 dimensions'        print*, '   ... created 2 dimensions'
50          CALL MNC_DIM_INIT(myThid, 'Z ', 'Z ', 2)
51          print*, '   ... created 3 dimensions'
52          CALL MNC_DIM_INIT(myThid, 'T ', 'T ', -1)
53          print*, '   ... created 4 dimensions'
54    
55        print*, ' Calling MNC_FILE_CREATE() ...'        print*, ' Calling MNC_FILE_CREATE() ...'
56        CALL MNC_FILE_CREATE(myThid, fname)        CALL MNC_FILE_CREATE(myThid, fname)
57    
58        print*, ' Calling MNC_GRID_INIT() ...'        print*, ' Calling MNC_GRID_INIT() ...'
59        gname(1:8) = 'XY_Grid '        gname(1:8) = 'XY_Grid '
60        n = 2        n = 4
61        names(1)(1:2) = 'X '        names(1)(1:2) = 'X'
62        names(2)(1:2) = 'Y '        names(2)(1:2) = 'Y'
63          names(3)(1:2) = 'Z'
64          names(4)(1:2) = 'T'
65        CALL MNC_GRID_INIT(myThid, fname, gname, n, names)        CALL MNC_GRID_INIT(myThid, fname, gname, n, names)
66    
67          print*, ' Calling MNC_VAR_INIT_DBL() ...'
68          vname(1:11) = 'temperature'
69          units(1:3) = 'm/s'
70          fillval = -9999.0
71          CALL MNC_VAR_INIT_DBL(myThid, fname, gname, vname, fillval)
72    
73          print*, ' Calling MNC_VAR_ADD_ATTR_STR() ...'
74          atname(1:5) = 'units'
75          atval(1:4) = 'cm/s'
76          CALL MNC_VAR_ADD_ATTR_STR(myThid, fname, vname, atname, atval)
77    
78        print*, ' Calling MNC_FILE_CLOSE() ...'        print*, ' Calling MNC_FILE_CLOSE() ...'
79        CALL MNC_FILE_CLOSE(myThid, fname)        CALL MNC_FILE_CLOSE(myThid, fname)
80    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22