Changeset 610 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2007-02-21T10:22:21+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/lib_mpp.F90
r570 r610 635 635 636 636 !! * Local variables 637 INTEGER :: ji, j k, jl! dummy loop indices637 INTEGER :: ji, jj, jk, jl ! dummy loop indices 638 638 INTEGER :: imigr, iihom, ijhom, iloc, ijt, iju ! temporary integers 639 639 INTEGER :: ml_req1, ml_req2, ml_err ! for key_mpi_isend … … 645 645 646 646 IF( PRESENT( cd_mpp ) ) THEN 647 ! only fill extra allows with 1. 648 ptab( 1:nlci, nlcj+1:jpj, :) = 1.e0 649 ptab(nlci+1:jpi , : , :) = 1.e0 647 DO jj = nlcj+1, jpj ! only fill extra allows last line 648 ptab(1:nlci, jj, :) = ptab(1:nlci, nlcj, :) 649 END DO 650 DO ji = nlci+1, jpi ! only fill extra allows last column 651 ptab(ji , : , :) = ptab(nlci , : , :) 652 END DO 650 653 ELSE 651 654 … … 1095 1098 ! ------------------------------ 1096 1099 IF (PRESENT(cd_mpp)) THEN 1097 ! only fill extra allows with 1. 1098 pt2d( 1:nlci, nlcj+1:jpj) = 1.e0 1099 pt2d(nlci+1:jpi , : ) = 1.e0 1100 1100 DO jj = nlcj+1, jpj ! only fill extra allows last line 1101 pt2d(1:nlci, jj) = pt2d(1:nlci, nlcj) 1102 END DO 1103 DO ji = nlci+1, jpi ! only fill extra allows last column 1104 pt2d(ji , : ) = pt2d(nlci , : ) 1105 END DO 1101 1106 ELSE 1102 1107
Note: See TracChangeset
for help on using the changeset viewer.