--- MITgcm/pkg/rw/read_fld_xyz_rl.F	2007/11/13 19:41:05	1.4
+++ MITgcm/pkg/rw/read_fld_xyz_rl.F	2009/09/01 19:28:24	1.5
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/rw/read_fld_xyz_rl.F,v 1.4 2007/11/13 19:41:05 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/rw/read_fld_xyz_rl.F,v 1.5 2009/09/01 19:28:24 jmc Exp $
 C $Name:  $
 
 #include "RW_OPTIONS.h"
@@ -20,6 +20,7 @@
       INTEGER ILNBLNK,IFNBLNK
 C Local
       LOGICAL useCurrentDir
+      _RS dummyRS(1)
       CHARACTER*(2) fType
       INTEGER nNz
       INTEGER iRec
@@ -47,7 +48,7 @@
       CALL MDS_READ_FIELD(
      I                     fullName, readBinaryPrec, useCurrentDir,
      I                     fType, nNz, 1, nNz,
-     O                     field,
+     O                     field, dummyRS,
      I                     iRec, myThid )
 #endif
       RETURN