- Timestamp:
- 2019-12-18T11:34:35+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/eosbn2.F90
r12236 r12269 499 499 CASE( np_teos10, np_eos80 ) !== polynomial TEOS-10 / EOS-80 ==! 500 500 ! 501 DO jj = 1, jpj m1502 DO ji = 1, fs_jpim1! vector opt.501 DO jj = 1, jpj 502 DO ji = 1, jpi ! vector opt. 503 503 ! 504 504 zh = pdep(ji,jj) * r1_Z0 ! depth … … 534 534 END DO 535 535 ! 536 CALL lbc_lnk( 'eosbn2', prd, 'T', 1. ) ! Lateral boundary conditions537 !538 536 CASE( np_seos ) !== simplified EOS ==! 539 537 ! 540 DO jj = 1, jpj m1541 DO ji = 1, fs_jpim1! vector opt.538 DO jj = 1, jpj 539 DO ji = 1, jpi ! vector opt. 542 540 ! 543 541 zt = pts (ji,jj,jp_tem) - 10._wp … … 553 551 END DO 554 552 END DO 555 !556 CALL lbc_lnk( 'eosbn2', prd, 'T', 1. ) ! Lateral boundary conditions557 553 ! 558 554 END SELECT … … 705 701 CASE( np_teos10, np_eos80 ) !== polynomial TEOS-10 / EOS-80 ==! 706 702 ! 707 DO jj = 1, jpj m1708 DO ji = 1, fs_jpim1! vector opt.703 DO jj = 1, jpj 704 DO ji = 1, jpi ! vector opt. 709 705 ! 710 706 zh = pdep(ji,jj) * r1_Z0 ! depth … … 757 753 END DO 758 754 END DO 759 ! ! Lateral boundary conditions760 CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )761 755 ! 762 756 CASE( np_seos ) !== simplified EOS ==! 763 757 ! 764 DO jj = 1, jpj m1765 DO ji = 1, fs_jpim1! vector opt.758 DO jj = 1, jpj 759 DO ji = 1, jpi ! vector opt. 766 760 ! 767 761 zt = pts (ji,jj,jp_tem) - 10._wp ! pot. temperature anomaly (t-T0) … … 777 771 END DO 778 772 END DO 779 ! ! Lateral boundary conditions780 CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )781 773 ! 782 774 CASE DEFAULT
Note: See TracChangeset
for help on using the changeset viewer.