Changeset 2486 for trunk/NEMO/NST_SRC/agrif_opa_interp.F90
- Timestamp:
- 2010-12-19T16:07:25+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/NST_SRC/agrif_opa_interp.F90
r1605 r2486 29 29 PRIVATE 30 30 31 PUBLIC Agrif_tra, Agrif_dyn, interpu, interpv31 PUBLIC Agrif_tra, Agrif_dyn, Agrif_ssh, interpu, interpv 32 32 33 33 # include "domzgr_substitute.h90" … … 282 282 END DO 283 283 284 sshn(2,:)=sshn(3,:)285 sshb(2,:)=sshb(3,:)286 287 284 ENDIF 288 285 … … 363 360 END DO 364 361 365 sshn(nlci-1,:)=sshn(nlci-2,:)366 sshb(nlci-1,:)=sshb(nlci-2,:)367 362 ENDIF 368 363 … … 438 433 END DO 439 434 440 sshn(:,2)=sshn(:,3)441 sshb(:,2)=sshb(:,3)442 435 ENDIF 443 436 … … 514 507 END DO 515 508 516 sshn(:,nlcj-1)=sshn(:,nlcj-2)517 sshb(:,nlcj-1)=sshb(:,nlcj-2)518 509 ENDIF 519 510 520 511 END SUBROUTINE Agrif_dyn 512 513 514 SUBROUTINE Agrif_ssh( kt ) 515 !!---------------------------------------------------------------------- 516 !! *** ROUTINE Agrif_ssh *** 517 !!---------------------------------------------------------------------- 518 INTEGER, INTENT(in) :: kt 519 !! 520 !!---------------------------------------------------------------------- 521 522 IF( Agrif_Root() ) RETURN 523 524 IF((nbondi == -1).OR.(nbondi == 2)) THEN 525 ssha(2,:)=ssha(3,:) 526 sshn(2,:)=sshn(3,:) 527 ENDIF 528 529 IF((nbondi == 1).OR.(nbondi == 2)) THEN 530 ssha(nlci-1,:)=ssha(nlci-2,:) 531 sshn(nlci-1,:)=sshn(nlci-2,:) 532 ENDIF 533 534 IF((nbondj == -1).OR.(nbondj == 2)) THEN 535 ssha(:,2)=sshn(:,3) 536 sshn(:,2)=sshb(:,3) 537 ENDIF 538 539 IF((nbondj == 1).OR.(nbondj == 2)) THEN 540 ssha(:,nlcj-1)=ssha(:,nlcj-2) 541 ssha(:,nlcj-1)=sshn(:,nlcj-2) 542 ENDIF 543 544 END SUBROUTINE Agrif_ssh 521 545 522 546
Note: See TracChangeset
for help on using the changeset viewer.