/[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.10 by edhill, Wed Feb 4 05:45:09 2004 UTC revision 1.11 by edhill, Fri Mar 19 03:28:37 2004 UTC
# Line 76  C     In FORTRAN, the first variable cyc Line 76  C     In FORTRAN, the first variable cyc
76        CALL MNC_INIT(myThid)        CALL MNC_INIT(myThid)
77    
78        print*, ' Calling MNC_FILE_CREATE() ...'        print*, ' Calling MNC_FILE_CREATE() ...'
79        CALL MNC_FILE_CREATE(myThid, fname)        CALL MNC_FILE_CREATE(fname, myThid)
80    
81        print*, ' Calling MNC_DIM_INIT() ...'        print*, ' Calling MNC_DIM_INIT() ...'
82        DO i = 1,ndim        DO i = 1,ndim
83          CALL MNC_DIM_INIT(myThid,fname, dnames(i),dims(i))          CALL MNC_DIM_INIT(fname, dnames(i),dims(i), myThid)
84          ii = ILNBLNK(dnames(i))          ii = ILNBLNK(dnames(i))
85          print*, '   ... created dimension: ', dnames(i)(1:ii)          print*, '   ... created dimension: ', dnames(i)(1:ii)
86        ENDDO        ENDDO
87    
88        print*, ' Calling MNC_GRID_INIT() ...'        print*, ' Calling MNC_GRID_INIT() ...'
89        gname1(1:10) = 'xyzt      '        gname1(1:10) = 'xyzt      '
90        CALL MNC_GRID_INIT(myThid,fname, gname1, ndim, dnames)        CALL MNC_GRID_INIT(fname, gname1, ndim, dnames, myThid)
91        gname2(1:10) = 't         '        gname2(1:10) = 't         '
92        CALL MNC_GRID_INIT(myThid,fname, gname2, 1, dnames(4))        CALL MNC_GRID_INIT(fname, gname2, 1, dnames(4), myThid)
93    
94        print*, ' Calling MNC_VAR_INIT_DBL() ...'        print*, ' Calling MNC_VAR_INIT_DBL() ...'
95        vname1(1:4) = 'time'        vname1(1:4) = 'time'
96        units(1:19) = 'days since 1970-1-1'        units(1:19) = 'days since 1970-1-1'
97        CALL MNC_VAR_INIT_DBL(myThid,fname, gname2, vname1 )        CALL MNC_VAR_INIT_DBL(fname, gname2, vname1, myThid)
98        vname2(1:4) = 'temp'        vname2(1:4) = 'temp'
99        units(1:19) = 'deg C              '        units(1:19) = 'deg C              '
100        CALL MNC_VAR_INIT_DBL(myThid,fname, gname1, vname2 )        CALL MNC_VAR_INIT_DBL(fname, gname1, vname2, myThid)
101    
102        print*, ' Calling MNC_VAR_ADD_ATTR_STR() ...'        print*, ' Calling MNC_VAR_ADD_ATTR_STR() ...'
103        atname(1:9) = 'grid_type'        atname(1:9) = 'grid_type'
104        CALL MNC_VAR_ADD_ATTR_INT(myThid,fname,vname1, atname, 1, 1)        CALL MNC_VAR_ADD_ATTR_INT(fname,vname1, atname, 1, 1, myThid)
105        atname(1:11) = 'valid_range'        atname(1:11) = 'valid_range'
106        tvar(1) = -23.5        tvar(1) = -23.5
107        tvar(2) = 176.75        tvar(2) = 176.75
108        CALL MNC_VAR_ADD_ATTR_DBL(myThid,fname,vname2, atname, 2, tvar)        CALL MNC_VAR_ADD_ATTR_DBL(fname,vname2, atname, 2, tvar, myThid)
109    
110        print*, ' Calling MNC_VAR_WRITE_DBL() ...'        print*, ' Calling MNC_VAR_WRITE_DBL() ...'
111        CALL MNC_VAR_WRITE_DBL(myThid, fname, vname1, var)        CALL MNC_VAR_WRITE_DBL(fname, vname1, var, myThid)
112        print*, ' Calling MNC_VAR_WRITE_DBL() ...'        print*, ' Calling MNC_VAR_WRITE_DBL() ...'
113        CALL MNC_VAR_WRITE_DBL(myThid, fname, vname2, var)        CALL MNC_VAR_WRITE_DBL(fname, vname2, var, myThid)
114    
115        CALL MNC_DUMP()        CALL MNC_DUMP(myThid)
116    
117        print*, ' Calling MNC_FILE_CLOSE() ...'        print*, ' Calling MNC_FILE_CLOSE() ...'
118        CALL MNC_FILE_CLOSE(myThid, fname)        CALL MNC_FILE_CLOSE(fname, myThid)
119    
120        CALL MNC_DUMP()        CALL MNC_DUMP(myThid)
121    
122        print*, '=========================================='        print*, '=========================================='
123    
124        print*, ' Calling MNC_FILE_READALL() ...'        print*, ' Calling MNC_FILE_READALL() ...'
125        CALL MNC_FILE_READALL(myThid, fname)        CALL MNC_FILE_READALL(fname, myThid)
126    
127        CALL MNC_DUMP()        CALL MNC_DUMP(myThid)
128    
129        print*, '=== Ending Program:  mnc_test_001 ==='        print*, '=== Ending Program:  mnc_test_001 ==='
130    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22