Changeset 2166 for trunk/NEMO/OPA_SRC/OBC/obc_oce.F90

Timestamp:

2010-10-06T15:29:14+02:00 (14 years ago)

Author:

rblod

Message:

Fix various bugs in OBC see ticket #716 #548 #296

File:

• trunk/NEMO/OPA_SRC/OBC/obc_oce.F90 (modified) (8 diffs)

trunk/NEMO/OPA_SRC/OBC/obc_oce.F90

@@ -87 +87 @@
    INTEGER ::   nje1m2, nje0m1    !: do loop index in mpp case for jpjefm1-1,jpjed
 
-   REAL(wp), DIMENSION(jpjed:jpjef) ::   &  !:
+   REAL(wp), DIMENSION(jpj) ::   &  !:
       sshfoe,           & !: now climatology of the east boundary sea surface height
       ubtfoe,vbtfoe       !: now climatology of the east boundary barotropic transport
@@ -97 +97 @@
       !                   ! in the obcdyn.F90 routine
 
-   REAL(wp), DIMENSION(jpjed:jpjef,jpj) ::   sshfoe_b      !: east boundary ssh correction averaged over the barotropic loop
-      !                                                    !  (if Flather's algoritm applied at open boundary)
+   REAL(wp), DIMENSION(jpi,jpj) ::   sshfoe_b      !: east boundary ssh correction averaged over the barotropic loop
+      !                                            !  (if Flather's algoritm applied at open boundary)
 
    !!-------------------------------
@@ -124 +124 @@
    INTEGER ::   njw1m2, njw0m1     !: do loop index in mpp case for jpjwfm2,jpjwd
 
-   REAL(wp), DIMENSION(jpjwd:jpjwf) ::   &  !:
+   REAL(wp), DIMENSION(jpj) ::   &  !:
       sshfow,           & !: now climatology of the west boundary sea surface height
       ubtfow,vbtfow       !: now climatology of the west boundary barotropic transport
@@ -134 +134 @@
       !                   !  in the obcdyn.F90 routine
 
-   REAL(wp), DIMENSION(jpjwd:jpjwf,jpj) ::   sshfow_b    !: west boundary ssh correction averaged over the barotropic loop
-      !                                                  !  (if Flather's algoritm applied at open boundary)
+   REAL(wp), DIMENSION(jpi,jpj) ::   sshfow_b    !: west boundary ssh correction averaged over the barotropic loop
+      !                                          !  (if Flather's algoritm applied at open boundary)
 
    !!-------------------------------
@@ -162 +162 @@
    INTEGER ::   njn0m1, njn1m1     !: do loop index in mpp case for jpnob-1
 
-   REAL(wp), DIMENSION(jpind:jpinf) ::   &  !:
+   REAL(wp), DIMENSION(jpi) ::   &  !:
       sshfon,           & !: now climatology of the north boundary sea surface height
       ubtfon,vbtfon       !: now climatology of the north boundary barotropic transport
@@ -172 +172 @@
       !                   !  in yhe obcdyn.F90 routine
 
-   REAL(wp), DIMENSION(jpind:jpinf,jpj) ::   sshfon_b      !: north boundary ssh correction averaged over the barotropic loop
-      !                                                    !  (if Flather's algoritm applied at open boundary)
+   REAL(wp), DIMENSION(jpi,jpj) ::   sshfon_b      !: north boundary ssh correction averaged over the barotropic loop
+      !                                            !  (if Flather's algoritm applied at open boundary)
 
    !!--------------------------------
@@ -199 +199 @@
    INTEGER ::   njs0p1, njs1p1     !: do loop index in mpp case for jpsob+1
 
-   REAL(wp), DIMENSION(jpisd:jpisf) ::    &   !:
+   REAL(wp), DIMENSION(jpi) ::    &   !:
       sshfos,           & !: now climatology of the south boundary sea surface height
       ubtfos,vbtfos       !: now climatology of the south boundary barotropic transport
@@ -209 +209 @@
       !                   !  in the obcdyn.F90 routine
 
-   REAL(wp), DIMENSION(jpisd:jpisf,jpj) ::   sshfos_b     !: south boundary ssh correction averaged over the barotropic loop
-      !                                                   !  (if Flather's algoritm applied at open boundary)
+   REAL(wp), DIMENSION(jpi,jpj) ::   sshfos_b     !: south boundary ssh correction averaged over the barotropic loop
+      !                                           !  (if Flather's algoritm applied at open boundary)
 
    !!--------------------------------