Changeset 1238
- Timestamp:
- 2008-12-30T16:53:26+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/mppini.F90
r1152 r1238 495 495 !! 496 496 !! History : 497 !! 9.0 ! 04-03 (G. Madec) MPP-IOIPSL 497 !! 9.0 ! 04-03 (G. Madec ) MPP-IOIPSL 498 !! " " ! 08-12 (A. Coward) addition in case of jpni*jpnj < jpnij 498 499 !!---------------------------------------------------------------------- 499 500 !! Local declarations … … 501 502 INTEGER, DIMENSION(2) :: & 502 503 iglo, iloc, iabsf, iabsl, ihals, ihale, idid 503 INTEGER :: &504 inbondi, inbondj 505 ! !----------------------------------------------------------------------506 507 ! The domain is splitted only horizontally along i- or/and j- direction508 ! So we need at the most only 1D arrays with 2 elements504 !!---------------------------------------------------------------------- 505 506 ! The domain is split only horizontally along i- or/and j- direction 507 ! So we need at the most only 1D arrays with 2 elements. 508 ! Set idompar values equivalent to the jpdom_local_noextra definition 509 ! used in IOM. This works even if jpnij .ne. jpni*jpnj. 509 510 iglo(1) = jpiglo 510 511 iglo(2) = jpjglo … … 514 515 iabsf(2) = njmppt(narea) 515 516 iabsl(:) = iabsf(:) + iloc(:) - 1 516 ihals(1) = jpreci517 ihals(2) = jprecj518 ihale(1) = jpreci519 ihale(2) = jprecj517 ihals(1) = nldi - 1 518 ihals(2) = nldj - 1 519 ihale(1) = nlci - nlei 520 ihale(2) = nlcj - nlej 520 521 idid(1) = 1 521 522 idid(2) = 2 522 523 inbondj = -1 ! general case524 IF( narea > jpni ) inbondj = 0 ! first row of processor525 IF( narea > (jpnj-1)*jpni ) inbondj = 1 ! last row of processor526 IF( jpnj == 1 ) inbondj = 2 ! one processor only in j-direction527 IF( inbondj == -1 .OR. inbondj == 2 ) ihals(2) = 0528 IF( inbondj == 1 .OR. inbondj == 2 ) ihale(2) = 0529 530 inbondi = 0 !531 IF( MOD( narea, jpni ) == 1 ) inbondi = -1 !532 IF( MOD( narea, jpni ) == 0 ) inbondi = 1 !533 IF( jpni == 1 ) inbondi = 2 ! one processor only in i-direction534 IF( inbondi == -1 .OR. inbondi == 2 ) ihals(1) = 0535 IF( inbondi == 1 .OR. inbondi == 2 ) ihale(1) = 0536 537 523 538 524 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.