/[MITgcm]/MITgcm/pkg/mnc/mnc_var.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_var.F

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 295  C     Strip trailing spaces Line 295  C     Strip trailing spaces
295    
296  C     Set the attribute  C     Set the attribute
297        CALL MNC_FILE_REDEF(myThid, fname)        CALL MNC_FILE_REDEF(myThid, fname)
       print *, 'atype = ', atype  
298        IF (atype .EQ. 1) THEN        IF (atype .EQ. 1) THEN
299          err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs)          err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs)
300        ELSEIF (atype .EQ. 2) THEN        ELSEIF (atype .EQ. 2) THEN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22