/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_out.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_out.F

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

revision 1.27 by edhill, Mon Feb 6 21:20:23 2006 UTC revision 1.28 by edhill, Tue Feb 7 15:52:02 2006 UTC
# Line 401  C           Time dimension Line 401  C           Time dimension
401       &             tdiag(ndId),myThid)       &             tdiag(ndId),myThid)
402              CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units',              CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units',
403       &             udiag(ndId),myThid)       &             udiag(ndId),myThid)
404              CALL MNC_CW_ADD_VATTR_DBL(cdiag(ndId),'missing_value',  
405       &             0.0 _d 0,myThid)  C           Per the observations of Baylor, this has been commented out
406    C           until we have code that can write missing_value attributes
407    C           in a way thats compatible with most of the more popular
408    C           netCDF tools including ferret.  Using all-zeros completely
409    C           breaks ferret.
410    
411    C           CALL MNC_CW_ADD_VATTR_DBL(cdiag(ndId),'missing_value',
412    C           &             0.0 _d 0,myThid)
413    
414              IF ( ( (writeBinaryPrec .EQ. precFloat32)              IF ( ( (writeBinaryPrec .EQ. precFloat32)
415       &           .AND. (fflags(listId)(1:1) .NE. 'D')       &           .AND. (fflags(listId)(1:1) .NE. 'D')
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22