 Timestamp:
 20200410T19:55:11+02:00 (8 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/releases/r4.0/r4.0HEAD/src/NST/agrif_oce_interp.F90
r10068 r12737 96 96 i1 = 1 ; i2 = nlci 97 97 j1 = 1 ; j2 = nlcj 98 IF( nbondj == 1 .OR. nbondj == 2) j1 = 2 + nbghostcells99 IF( nbondj == +1 .OR. nbondj == 2) j2 = nlcj  nbghostcells  1100 IF( nbondi == 1 .OR. nbondi == 2 )i1 = 2 + nbghostcells101 IF( nbondi == +1 .OR. nbondi == 2 )i2 = nlci  nbghostcells  198 IF( l_Northedge ) j1 = 2 + nbghostcells 99 IF( l_Southedge ) j2 = nlcj  nbghostcells  1 100 IF( l_Westedge ) i1 = 2 + nbghostcells 101 IF( l_Eastedge ) i2 = nlci  nbghostcells  1 102 102 103 103 !  West  ! 104 IF( nbondi == 1 .OR. nbondi == 2) THEN104 IF( l_Westedge ) THEN 105 105 ibdy1 = 2 106 106 ibdy2 = 1+nbghostcells … … 173 173 174 174 !  East  ! 175 IF( nbondi == 1 .OR. nbondi == 2) THEN175 IF( l_Eastedge ) THEN 176 176 ibdy1 = nlci1nbghostcells 177 177 ibdy2 = nlci2 … … 246 246 247 247 !  South  ! 248 IF ( nbondj == 1 .OR. nbondj == 2) THEN248 IF ( l_Southedge ) THEN 249 249 jbdy1 = 2 250 250 jbdy2 = 1+nbghostcells … … 318 318 319 319 !  North  ! 320 IF( nbondj == 1 .OR. nbondj == 2) THEN320 IF( l_Northedge ) THEN 321 321 jbdy1 = nlcj1nbghostcells 322 322 jbdy2 = nlcj2 … … 405 405 IF( Agrif_Root() ) RETURN 406 406 ! 407 IF( (nbondi == 1).OR.(nbondi == 2)) THEN407 IF( l_Westedge ) THEN 408 408 DO jj=1,jpj 409 409 va_e(2:nbghostcells+1,jj) = vbdy_w(1:nbghostcells,jj) * hvr_e(2:nbghostcells+1,jj) … … 416 416 ENDIF 417 417 ! 418 IF( (nbondi == 1).OR.(nbondi == 2)) THEN418 IF( l_Eastedge ) THEN 419 419 DO jj=1,jpj 420 420 va_e(nlcinbghostcells:nlci1,jj) = vbdy_e(1:nbghostcells,jj) * hvr_e(nlcinbghostcells:nlci1,jj) … … 427 427 ENDIF 428 428 ! 429 IF ((nbondj == 1).OR.(nbondj == 2)) THEN429 IF ( l_Southedge ) THEN 430 430 DO ji=1,jpi 431 431 ua_e(ji,2:nbghostcells+1) = ubdy_s(ji,1:nbghostcells) * hur_e(ji,2:nbghostcells+1) … … 438 438 ENDIF 439 439 ! 440 IF ((nbondj == 1).OR.(nbondj == 2)) THEN440 IF ( l_Northedge ) THEN 441 441 DO ji=1,jpi 442 442 ua_e(ji,nlcjnbghostcells:nlcj1) = ubdy_n(ji,1:nbghostcells) * hur_e(ji,nlcjnbghostcells:nlcj1) … … 516 516 ! 517 517 !  West  ! 518 IF( (nbondi == 1).OR.(nbondi == 2)) THEN518 IF( l_Westedge ) THEN 519 519 indx = 1+nbghostcells 520 520 DO jj = 1, jpj … … 526 526 ! 527 527 !  East  ! 528 IF( (nbondi == 1).OR.(nbondi == 2)) THEN528 IF( l_Eastedge ) THEN 529 529 indx = nlcinbghostcells 530 530 DO jj = 1, jpj … … 536 536 ! 537 537 !  South  ! 538 IF ((nbondj == 1).OR.(nbondj == 2)) THEN538 IF ( l_Southedge ) THEN 539 539 indy = 1+nbghostcells 540 540 DO jj = 2, indy … … 546 546 ! 547 547 !  North  ! 548 IF ((nbondj == 1).OR.(nbondj == 2)) THEN548 IF ( l_Northedge ) THEN 549 549 indy = nlcjnbghostcells 550 550 DO jj = indy, nlcj1 … … 571 571 ! 572 572 !  West  ! 573 IF( (nbondi == 1).OR.(nbondi == 2)) THEN573 IF( l_Westedge ) THEN 574 574 indx = 1+nbghostcells 575 575 DO jj = 1, jpj … … 581 581 ! 582 582 !  East  ! 583 IF( (nbondi == 1).OR.(nbondi == 2)) THEN583 IF( l_Eastedge ) THEN 584 584 indx = nlcinbghostcells 585 585 DO jj = 1, jpj … … 591 591 ! 592 592 !  South  ! 593 IF( (nbondj == 1).OR.(nbondj == 2)) THEN593 IF( l_Southedge ) THEN 594 594 indy = 1+nbghostcells 595 595 DO jj = 2, indy … … 601 601 ! 602 602 !  North  ! 603 IF( (nbondj == 1).OR.(nbondj == 2)) THEN603 IF( l_Northedge ) THEN 604 604 indy = nlcjnbghostcells 605 605 DO jj = indy, nlcj1 … … 722 722 ! 723 723 ! Remove CORNERS 724 IF( (nbondj == 1).OR.(nbondj == 2)) jmin = 2 + nbghostcells725 IF( (nbondj == +1).OR.(nbondj == 2)) jmax = nlcj  nbghostcells  1726 IF( (nbondi == 1).OR.(nbondi == 2))imin = 2 + nbghostcells727 IF( (nbondi == +1).OR.(nbondi == 2))imax = nlci  nbghostcells  1724 IF( l_Southedge ) jmin = 2 + nbghostcells 725 IF( l_Northedge ) jmax = nlcj  nbghostcells  1 726 IF( l_Westedge ) imin = 2 + nbghostcells 727 IF( l_Eastedge ) imax = nlci  nbghostcells  1 728 728 ! 729 729 IF( eastern_side ) THEN
Note: See TracChangeset
for help on using the changeset viewer.