Changeset 619

Timestamp:

2007-02-21T18:23:09+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_024:SM:use inner part of the domain instead of the overlapping bands

File:

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

trunk/NEMO/OPA_SRC/lib_mpp.F90

@@ -646 +646 @@
       IF( PRESENT( cd_mpp ) ) THEN
          DO jj = nlcj+1, jpj   ! only fill extra allows last line
-            ptab(1:nlci, jj, :) = ptab(1:nlci, nlcj, :)
+            ptab(1:nlci, jj, :) = ptab(1:nlci, nlej, :)
          END DO
          DO ji = nlci+1, jpi   ! only fill extra allows last column
-            ptab(ji    , : , :) = ptab(nlci  , :   , :)
+            ptab(ji    , : , :) = ptab(nlei  , :   , :)
          END DO
       ELSE      
@@ -1099 +1099 @@
       IF (PRESENT(cd_mpp)) THEN
          DO jj = nlcj+1, jpj   ! only fill extra allows last line
-            pt2d(1:nlci, jj) = pt2d(1:nlci, nlcj)
+            pt2d(1:nlci, jj) = pt2d(1:nlci, nlej)
          END DO
          DO ji = nlci+1, jpi   ! only fill extra allows last column
-            pt2d(ji    , : ) = pt2d(nlci  , :   )
+            pt2d(ji    , : ) = pt2d(nlei  , :   )
          END DO     
       ELSE