--- MITgcm/pkg/rbcs/rbcs_init_fixed.F	2005/12/19 19:14:34	1.2
+++ MITgcm/pkg/rbcs/rbcs_init_fixed.F	2007/10/09 00:09:25	1.3
@@ -1,3 +1,6 @@
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/rbcs/rbcs_init_fixed.F,v 1.3 2007/10/09 00:09:25 jmc Exp $
+C $Name:  $
+
 #include "CPP_OPTIONS.h"
 #include "PACKAGES_CONFIG.h"
 
@@ -79,14 +82,14 @@
 #endif
 
 C read in mask for relaxing
-      do irbc=1,maskLEN 
+      do irbc=1,maskLEN
        IF ( relaxMaskFile(irbc).NE. ' ' ) THEN
         _BEGIN_MASTER( myThid )
          CALL READ_FLD_XYZ_RS(relaxMaskFile(irbc),' ',
      &                RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid)
         _END_MASTER(myThid)
         _EXCH_XYZ_R8(RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid )
-       CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 
+       CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc),
      &          'Boundary Relaxing' ,1, myThid )
        ENDIF
       enddo