Changeset 4686
 Timestamp:
 20140624T13:03:50+02:00 (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lbcnfd.F90
r4671 r4686 423 423 pt3dl(ji,ijpj,jk) = psgn * pt3dr(ijt,ijpj2,jk) 424 424 END DO 425 IF(nimpp .eq. 1) THEN 426 pt3dl(1,ijpj,jk) = psgn * pt3dl(3,ijpj2,jk) 427 ENDIF 425 428 END DO 426 429 … … 459 462 pt3dl(ji,ijpj,jk) = psgn * pt3dr(iju,ijpj2,jk) 460 463 END DO 464 IF(nimpp .eq. 1) THEN 465 pt3dl( 1 ,ijpj,jk) = psgn * pt3dl( 2 ,ijpj2,jk) 466 ENDIF 467 IF((nimpp + nlci  1) .eq. jpiglo) THEN 468 pt3dl(nlci,ijpj,jk) = psgn * pt3dl(nlci1,ijpj2,jk) 469 ENDIF 461 470 END DO 462 471 … … 500 509 pt3dl(ji,ijpj ,jk) = psgn * pt3dr(ijt,ijpj3,jk) 501 510 END DO 511 IF(nimpp .eq. 1) THEN 512 pt3dl(1,ijpj,jk) = psgn * pt3dl(3,ijpj3,jk) 513 ENDIF 502 514 END DO 503 515 CASE ( 'F' ) ! Fpoint … … 513 525 pt3dl(ji,ijpj ,jk) = psgn * pt3dr(iju,ijpj3,jk) 514 526 END DO 527 IF(nimpp .eq. 1) THEN 528 pt3dl( 1 ,ijpj,jk) = psgn * pt3dl( 2 ,ijpj3,jk) 529 ENDIF 530 IF((nimpp + nlci  1) .eq. jpiglo) THEN 531 pt3dl(nlci,ijpj,jk) = psgn * pt3dl(nlci1,ijpj3,jk) 532 ENDIF 515 533 END DO 516 534 END SELECT … … 539 557 pt3dl(ji,ijpj,jk) = psgn * pt3dr(iju,ijpj1,jk) 540 558 END DO 559 IF((nimpp + nlci  1) .eq. jpiglo) THEN 560 pt3dl(nlci,ijpj,jk) = psgn * pt3dr(1,ijpj1,jk) 561 ENDIF 541 562 END DO 542 563 … … 576 597 pt3dl(ji,ijpj ,jk) = psgn * pt3dr(iju,ijpj2,jk) 577 598 END DO 599 IF((nimpp + nlci  1) .eq. jpiglo) THEN 600 pt3dl(nlci,ijpj,jk) = psgn * pt3dr(1,ijpj2,jk) 601 ENDIF 578 602 END DO 579 603 … … 664 688 pt2dl(ji,ijpj) = psgn * pt2dr(ijt,ijpjm11) 665 689 END DO 690 IF (nimpp .eq. 1) THEN 691 pt2dl(1,ijpj) = psgn * pt2dl(3,ijpj2) 692 ENDIF 666 693 667 694 IF(nimpp .ge. (jpiglo/2+1)) THEN … … 694 721 END DO 695 722 723 IF (nimpp .eq. 1) THEN 724 pt2dl( 1 ,ijpj ) = psgn * pt2dl( 2 ,ijpj2) 725 pt2dl(1 ,ijpj1) = psgn * pt2dr(jpiglo  nfiimpp(isendto(1), jpnj) + 1, ijpj1) 726 ENDIF 727 IF((nimpp + nlci  1) .eq. jpiglo) THEN 728 pt2dl(nlci,ijpj ) = psgn * pt2dl(nlci1,ijpj2) 729 ENDIF 730 696 731 IF ((nimpp + nlci  1) .ne. jpiglo) THEN 697 732 endloop = nlci … … 728 763 pt2dl(ji,ijpj) = psgn * pt2dr(ijt,ijpjm12) 729 764 END DO 765 IF (nimpp .eq. 1) THEN 766 pt2dl( 1 ,ijpj) = psgn * pt2dl( 3 ,ijpj3) 767 ENDIF 730 768 731 769 CASE ( 'F' ) ! Fpoint … … 740 778 pt2dl(ji,ijpj) = psgn * pt2dr(iju,ijpjm12) 741 779 END DO 780 IF (nimpp .eq. 1) THEN 781 pt2dl( 1 ,ijpj) = psgn * pt2dl( 2 ,ijpj3) 782 pt2dl( 1 ,ijpj1) = psgn * pt2dl( 2 ,ijpj2) 783 ENDIF 784 IF((nimpp + nlci  1) .eq. jpiglo) THEN 785 pt2dl(nlci,ijpj) = psgn * pt2dl(nlci1,ijpj3) 786 pt2dl(nlci,ijpj1) = psgn * pt2dl(nlci1,ijpj2) 787 ENDIF 742 788 743 789 CASE ( 'I' ) ! ice UV point (Ipoint) … … 798 844 pt2dl(ji,ijpj) = psgn * pt2dr(iju,ijpjm1) 799 845 END DO 846 IF((nimpp + nlci  1) .eq. jpiglo) THEN 847 pt2dl(nlci,ijpj) = psgn * pt2dr(1,ijpj1) 848 ENDIF 800 849 801 850 CASE ( 'V' ) ! Vpoint … … 826 875 pt2dl(ji,ijpj) = psgn * pt2dr(iju,ijpjm11) 827 876 END DO 877 IF((nimpp + nlci  1) .eq. jpiglo) THEN 878 pt2dl(nlci,ijpj) = psgn * pt2dr(1,ijpj2) 879 ENDIF 828 880 829 881 IF ((nimpp + nlci  1) .ne. jpiglo) THEN
Note: See TracChangeset
for help on using the changeset viewer.