Changeset 12269 for NEMO/branches

Timestamp:

2019-12-18T11:34:35+01:00 (4 years ago)

Author:

mathiot

Message:

remove useless lbc_lnk in eosbn2 (rab2d and insitu2d) as suggested in comments of #1702 (no change in results in SETTE configurations)

File:

• NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/eosbn2.F90 (modified) (6 diffs)

NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/eosbn2.F90

@@ -499 +499 @@
       CASE( np_teos10, np_eos80 )                !==  polynomial TEOS-10 / EOS-80 ==!
          !
-         DO jj = 1, jpjm1
-            DO ji = 1, fs_jpim1   ! vector opt.
+         DO jj = 1, jpj
+            DO ji = 1, jpi   ! vector opt.
                !
                zh  = pdep(ji,jj) * r1_Z0                                  ! depth
@@ -534 +534 @@
          END DO
          !
-         CALL lbc_lnk( 'eosbn2', prd, 'T', 1. )                    ! Lateral boundary conditions
-         !
       CASE( np_seos )                !==  simplified EOS  ==!
          !
-         DO jj = 1, jpjm1
-            DO ji = 1, fs_jpim1   ! vector opt.
+         DO jj = 1, jpj
+            DO ji = 1, jpi   ! vector opt.
                !
                zt    = pts  (ji,jj,jp_tem)  - 10._wp
@@ -553 +551 @@
             END DO
          END DO
-         !
-         CALL lbc_lnk( 'eosbn2', prd, 'T', 1. )                    ! Lateral boundary conditions
          !
       END SELECT
@@ -705 +701 @@
       CASE( np_teos10, np_eos80 )                !==  polynomial TEOS-10 / EOS-80 ==!
          !
-         DO jj = 1, jpjm1
-            DO ji = 1, fs_jpim1   ! vector opt.
+         DO jj = 1, jpj
+            DO ji = 1, jpi   ! vector opt.
                !
                zh  = pdep(ji,jj) * r1_Z0                                  ! depth
@@ -757 +753 @@
             END DO
          END DO
-         !                            ! Lateral boundary conditions
-         CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                    
          !
       CASE( np_seos )                  !==  simplified EOS  ==!
          !
-         DO jj = 1, jpjm1
-            DO ji = 1, fs_jpim1   ! vector opt.
+         DO jj = 1, jpj
+            DO ji = 1, jpi   ! vector opt.
                !
                zt    = pts  (ji,jj,jp_tem) - 10._wp   ! pot. temperature anomaly (t-T0)
@@ -777 +771 @@
             END DO
          END DO
-         !                            ! Lateral boundary conditions
-         CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                    
          !
       CASE DEFAULT