/[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.5 by edhill, Thu Jan 8 07:24:47 2004 UTC revision 1.6 by edhill, Thu Jan 8 07:34:01 2004 UTC
# Line 95  C     In FORTRAN, the first variable cyc Line 95  C     In FORTRAN, the first variable cyc
95        units(1:19) = 'days since 1970-1-1'        units(1:19) = 'days since 1970-1-1'
96        CALL MNC_VAR_INIT_DBL(myThid, fname, gname2, vname1, units )        CALL MNC_VAR_INIT_DBL(myThid, fname, gname2, vname1, units )
97        vname2(1:4) = 'temp'        vname2(1:4) = 'temp'
98        units(1:19) = 'm/s                '        units(1:19) = 'deg C              '
99        CALL MNC_VAR_INIT_DBL(myThid, fname, gname1, vname2, units )        CALL MNC_VAR_INIT_DBL(myThid, fname, gname1, vname2, units )
100    
101        print*, ' Calling MNC_VAR_ADD_ATTR_STR() ...'        print*, ' Calling MNC_VAR_ADD_ATTR_STR() ...'
102        atname(1:9) = 'long_name'        atname(1:9) = 'grid_type'
103        atval(1:11) = 'hours since '        CALL MNC_VAR_ADD_ATTR_INT(myThid,fname,vname1, atname, 1, 1)
       CALL MNC_VAR_ADD_ATTR_STR(myThid,fname,vname1, atname, atval)  
104        atname(1:11) = 'valid_range'        atname(1:11) = 'valid_range'
105        tvar(1) = -23.5        tvar(1) = -23.5
106        tvar(2) = 176.75        tvar(2) = 176.75
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22