Changeset 683 for trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90

Timestamp:

2007-06-29T18:37:27+02:00 (17 years ago)

Author:

rblod

Message:

nemo_v2_update_021 : SM : use jpdom_autoglo in restarts

File:

• trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90

@@ -56 +56 @@
    !!----------------------------------------------------------------------
    !!   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 +517 @@
      ! 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 (:,:)