Changeset 619 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2007-02-21T18:23:09+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/lib_mpp.F90
r610 r619 646 646 IF( PRESENT( cd_mpp ) ) THEN 647 647 DO jj = nlcj+1, jpj ! only fill extra allows last line 648 ptab(1:nlci, jj, :) = ptab(1:nlci, nl cj, :)648 ptab(1:nlci, jj, :) = ptab(1:nlci, nlej, :) 649 649 END DO 650 650 DO ji = nlci+1, jpi ! only fill extra allows last column 651 ptab(ji , : , :) = ptab(nl ci , : , :)651 ptab(ji , : , :) = ptab(nlei , : , :) 652 652 END DO 653 653 ELSE … … 1099 1099 IF (PRESENT(cd_mpp)) THEN 1100 1100 DO jj = nlcj+1, jpj ! only fill extra allows last line 1101 pt2d(1:nlci, jj) = pt2d(1:nlci, nl cj)1101 pt2d(1:nlci, jj) = pt2d(1:nlci, nlej) 1102 1102 END DO 1103 1103 DO ji = nlci+1, jpi ! only fill extra allows last column 1104 pt2d(ji , : ) = pt2d(nl ci , : )1104 pt2d(ji , : ) = pt2d(nlei , : ) 1105 1105 END DO 1106 1106 ELSE
Note: See TracChangeset
for help on using the changeset viewer.