Changeset 12269


Ignore:
Timestamp:
2019-12-18T11:34:35+01:00 (10 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/eosbn2.F90

    r12236 r12269  
    499499      CASE( np_teos10, np_eos80 )                !==  polynomial TEOS-10 / EOS-80 ==! 
    500500         ! 
    501          DO jj = 1, jpjm1 
    502             DO ji = 1, fs_jpim1   ! vector opt. 
     501         DO jj = 1, jpj 
     502            DO ji = 1, jpi   ! vector opt. 
    503503               ! 
    504504               zh  = pdep(ji,jj) * r1_Z0                                  ! depth 
     
    534534         END DO 
    535535         ! 
    536          CALL lbc_lnk( 'eosbn2', prd, 'T', 1. )                    ! Lateral boundary conditions 
    537          ! 
    538536      CASE( np_seos )                !==  simplified EOS  ==! 
    539537         ! 
    540          DO jj = 1, jpjm1 
    541             DO ji = 1, fs_jpim1   ! vector opt. 
     538         DO jj = 1, jpj 
     539            DO ji = 1, jpi   ! vector opt. 
    542540               ! 
    543541               zt    = pts  (ji,jj,jp_tem)  - 10._wp 
     
    553551            END DO 
    554552         END DO 
    555          ! 
    556          CALL lbc_lnk( 'eosbn2', prd, 'T', 1. )                    ! Lateral boundary conditions 
    557553         ! 
    558554      END SELECT 
     
    705701      CASE( np_teos10, np_eos80 )                !==  polynomial TEOS-10 / EOS-80 ==! 
    706702         ! 
    707          DO jj = 1, jpjm1 
    708             DO ji = 1, fs_jpim1   ! vector opt. 
     703         DO jj = 1, jpj 
     704            DO ji = 1, jpi   ! vector opt. 
    709705               ! 
    710706               zh  = pdep(ji,jj) * r1_Z0                                  ! depth 
     
    757753            END DO 
    758754         END DO 
    759          !                            ! Lateral boundary conditions 
    760          CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                     
    761755         ! 
    762756      CASE( np_seos )                  !==  simplified EOS  ==! 
    763757         ! 
    764          DO jj = 1, jpjm1 
    765             DO ji = 1, fs_jpim1   ! vector opt. 
     758         DO jj = 1, jpj 
     759            DO ji = 1, jpi   ! vector opt. 
    766760               ! 
    767761               zt    = pts  (ji,jj,jp_tem) - 10._wp   ! pot. temperature anomaly (t-T0) 
     
    777771            END DO 
    778772         END DO 
    779          !                            ! Lateral boundary conditions 
    780          CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                     
    781773         ! 
    782774      CASE DEFAULT 
Note: See TracChangeset for help on using the changeset viewer.