Changeset 14229 for NEMO/trunk/src/OCE/DIA/diaptr.F90
- Timestamp:
- 2020-12-20T13:45:55+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DIA/diaptr.F90
r14215 r14229 578 578 REAL(wp), DIMENSION(A1Dj(nn_hls),nbasin), INTENT(in) :: pva ! 579 579 INTEGER :: jj 580 #if defined key_mpp_mpi580 #if ! defined key_mpi_off 581 581 INTEGER, DIMENSION(1) :: ish1d 582 582 INTEGER, DIMENSION(2) :: ish2d … … 588 588 END DO 589 589 590 #if defined key_mpp_mpi590 #if ! defined key_mpi_off 591 591 IF( ntile == 0 .OR. ntile == nijtile ) THEN 592 592 ish1d(1) = jpj*nbasin … … 614 614 REAL(wp), DIMENSION(A1Dj(nn_hls),jpk,nbasin), INTENT(in) :: pva ! 615 615 INTEGER :: jj, jk 616 #if defined key_mpp_mpi616 #if ! defined key_mpi_off 617 617 INTEGER, DIMENSION(1) :: ish1d 618 618 INTEGER, DIMENSION(3) :: ish3d … … 626 626 END DO 627 627 628 #if defined key_mpp_mpi628 #if ! defined key_mpi_off 629 629 IF( ntile == 0 .OR. ntile == nijtile ) THEN 630 630 ish1d(1) = jpj*jpk*nbasin
Note: See TracChangeset
for help on using the changeset viewer.