--- MITgcm/model/src/load_grid_spacing.F	2010/12/22 23:31:51	1.5
+++ MITgcm/model/src/load_grid_spacing.F	2010/12/27 14:07:59	1.6
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/load_grid_spacing.F,v 1.5 2010/12/22 23:31:51 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/load_grid_spacing.F,v 1.6 2010/12/27 14:07:59 jmc Exp $
 C $Name:  $
 
 c #include "PACKAGES_CONFIG.h"
@@ -80,8 +80,8 @@
 C--   hybrid sigma vertical coordinate coefficient
       IF ( hybSigmFile .NE. ' ' ) THEN
         iLen = ILNBLNK(hybSigmFile)
-        CALL READ_GLVEC_RL( hybSigmFile,' ',aHybSigmF,Nr+1, 1,myThid )
-        CALL READ_GLVEC_RL( hybSigmFile,' ',bHybSigmF,Nr+1, 2,myThid )
+        CALL READ_GLVEC_RS( hybSigmFile,' ',aHybSigmF,Nr+1, 1,myThid )
+        CALL READ_GLVEC_RS( hybSigmFile,' ',bHybSigmF,Nr+1, 2,myThid )
         WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:',
      &    ' a&b_HybSigmF loaded from file: ', hybSigmFile(1:iLen)
         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,