--- MITgcm/pkg/mdsio/mdsio_write_field.F	2009/06/28 01:06:39	1.14
+++ MITgcm/pkg/mdsio/mdsio_write_field.F	2009/08/02 20:42:43	1.15
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mdsio/mdsio_write_field.F,v 1.14 2009/06/28 01:06:39 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mdsio/mdsio_write_field.F,v 1.15 2009/08/02 20:42:43 jmc Exp $
 C $Name:  $
 
 #include "MDSIO_OPTIONS.h"
@@ -127,6 +127,11 @@
 #ifdef ALLOW_EXCH2
       INTEGER tN
 #endif /* ALLOW_EXCH2 */
+      _RL dummyRL(1)
+      CHARACTER*8 blank8c
+
+      DATA dummyRL(1) / 0. _d 0 /
+      DATA blank8c / '        ' /
 
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 C Set dimensions:
@@ -508,8 +513,8 @@
            map2gl(2) = jGjLoc
            CALL MDS_WRITE_META(
      I              metaFName, dataFName, the_run_name, ' ',
-     I              filePrec, nDims,dimList,map2gl, 0,  ' ',
-     I              0, UNSET_RL, irecord, myIter, myThid )
+     I              filePrec, nDims, dimList, map2gl, 0, blank8c,
+     I              0, dummyRL, irecord, myIter, myThid )
           ENDIF
 
 C End of bi,bj loops
@@ -554,8 +559,8 @@
          map2gl(2) = 1
          CALL MDS_WRITE_META(
      I              metaFName, dataFName, the_run_name, ' ',
-     I              filePrec, nDims,dimList,map2gl, 0,  ' ',
-     I              0, UNSET_RL, irecord, myIter, myThid )
+     I              filePrec, nDims, dimList, map2gl, 0, blank8c,
+     I              0, dummyRL, irecord, myIter, myThid )
 c    I              metaFName, dataFName, the_run_name, titleLine,
 c    I              filePrec, nDims, dimList, map2gl, nFlds,  fldList,
 c    I              nTimRec, timList, irecord, myIter, myThid )