Index: trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90
===================================================================
--- trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90	(revision 661)
+++ trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90	(revision 683)
@@ -40,5 +40,5 @@
    !!----------------------------------------------------------------------
    !!  OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_exp.F90,v 1.9 2007/06/05 10:38:27 opalod Exp $ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -238,6 +238,6 @@
       IF( TRIM(cdrw) == 'READ' ) THEN
          IF( iom_varid( numror, 'sshn' ) > 0 ) THEN
-            CALL iom_get( numror, jpdom_local, 'sshb'  , sshb(:,:)   )
-            CALL iom_get( numror, jpdom_local, 'sshn'  , sshn(:,:)   )
+            CALL iom_get( numror, jpdom_autoglo, 'sshb'  , sshb(:,:)   )
+            CALL iom_get( numror, jpdom_autoglo, 'sshn'  , sshn(:,:)   )
             IF( neuler == 0 ) sshb(:,:) = sshn(:,:)
          ELSE
Index: trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
===================================================================
--- trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90	(revision 661)
+++ trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90	(revision 683)
@@ -59,5 +59,5 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_flt.F90,v 1.14 2007/06/05 10:38:27 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    !!----------------------------------------------------------------------
@@ -453,8 +453,8 @@
 ! Caution : extra-hallow
 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj)
-           CALL iom_get( numror, jpdom_local, 'gcx' , gcx (1:jpi,1:jpj) )
-           CALL iom_get( numror, jpdom_local, 'gcxb', gcxb(1:jpi,1:jpj) )
-           CALL iom_get( numror, jpdom_local, 'sshb', sshb(:,:)         )
-           CALL iom_get( numror, jpdom_local, 'sshn', sshn(:,:)         )
+           CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj) )
+           CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj) )
+           CALL iom_get( numror, jpdom_autoglo, 'sshb', sshb(:,:)         )
+           CALL iom_get( numror, jpdom_autoglo, 'sshn', sshn(:,:)         )
            IF( neuler == 0 ) THEN
               sshb(:,:) = sshn(:,:)
Index: trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90
===================================================================
--- trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90	(revision 661)
+++ trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90	(revision 683)
@@ -56,5 +56,5 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_rl.F90,v 1.11 2007/06/05 10:38:27 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    !!----------------------------------------------------------------------
@@ -517,9 +517,9 @@
      ! Caution : extra-hallow
      ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj)
-           CALL iom_get( numror, jpdom_local, 'gcx' , gcx (1:jpi,1:jpj) )
-           CALL iom_get( numror, jpdom_local, 'gcxb', gcxb(1:jpi,1:jpj) )
-           CALL iom_get( numror, jpdom_local, 'bsfb', bsfb(:,:)         )
-           CALL iom_get( numror, jpdom_local, 'bsfn', bsfn(:,:)         )
-           CALL iom_get( numror, jpdom_local, 'bsfd', bsfd(:,:)         )
+           CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj) )
+           CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj) )
+           CALL iom_get( numror, jpdom_autoglo, 'bsfb', bsfb(:,:)         )
+           CALL iom_get( numror, jpdom_autoglo, 'bsfn', bsfn(:,:)         )
+           CALL iom_get( numror, jpdom_autoglo, 'bsfd', bsfd(:,:)         )
            IF( neuler == 0 ) THEN
               gcxb(:,:) = gcx (:,:)
Index: trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
===================================================================
--- trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90	(revision 661)
+++ trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90	(revision 683)
@@ -51,5 +51,5 @@
    !!----------------------------------------------------------------------
    !!  OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_ts.F90,v 1.16 2007/06/05 10:38:27 opalod Exp $ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -627,6 +627,6 @@
       IF( TRIM(cdrw) == 'READ' ) THEN
          IF( iom_varid( numror, 'sshn' ) > 0 ) THEN
-            CALL iom_get( numror, jpdom_local, 'sshb'  , sshb(:,:)   )
-            CALL iom_get( numror, jpdom_local, 'sshn'  , sshn(:,:)   )
+            CALL iom_get( numror, jpdom_autoglo, 'sshb'  , sshb(:,:)   )
+            CALL iom_get( numror, jpdom_autoglo, 'sshn'  , sshn(:,:)   )
             IF( neuler == 0 ) sshb(:,:) = sshn(:,:)
          ELSE
@@ -637,8 +637,8 @@
          ENDIF
          IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN
-            CALL iom_get( numror, jpdom_local, 'sshb_b', sshb_b(:,:) )   ! free surface issued
-            CALL iom_get( numror, jpdom_local, 'sshn_b', sshn_b(:,:) )   ! from time-splitting loop
-            CALL iom_get( numror, jpdom_local, 'un_b'  , un_b  (:,:) )   ! horizontal transports issued
-            CALL iom_get( numror, jpdom_local, 'vn_b'  , vn_b  (:,:) )   ! from barotropic loop
+            CALL iom_get( numror, jpdom_autoglo, 'sshb_b', sshb_b(:,:) )   ! free surface issued
+            CALL iom_get( numror, jpdom_autoglo, 'sshn_b', sshn_b(:,:) )   ! from time-splitting loop
+            CALL iom_get( numror, jpdom_autoglo, 'un_b'  , un_b  (:,:) )   ! horizontal transports issued
+            CALL iom_get( numror, jpdom_autoglo, 'vn_b'  , vn_b  (:,:) )   ! from barotropic loop
             IF( neuler == 0 ) sshb_b(:,:) = sshn_b(:,:)
          ELSE
