--- MITgcm_contrib/cg2d_bench/plot_field.F	2006/05/12 21:58:06	1.1
+++ MITgcm_contrib/cg2d_bench/plot_field.F	2006/05/12 22:25:34	1.2
@@ -1,3 +1,4 @@
+C	$Id: plot_field.F,v 1.2 2006/05/12 22:25:34 ce107 Exp $	
 C--   File plot_field.F: Routines for "formatted" I/O in the MITgcm UV 
 C--                      implementation.
 C--    Contents
@@ -24,7 +25,7 @@
 #include "CG2D.h"
 
 C     == Routine arguments ==
-      REAL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
+      Real fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       CHARACTER*(*) fldNam
       INTEGER myThid