New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12268 – NEMO

Changeset 12268


Ignore:
Timestamp:
2019-12-18T11:28:06+01:00 (5 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:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRA/eosbn2.F90

    r12210 r12268  
    500500      CASE( np_teos10, np_eos80 )                !==  polynomial TEOS-10 / EOS-80 ==! 
    501501         ! 
    502          DO jj = 1, jpjm1 
    503             DO ji = 1, fs_jpim1   ! vector opt. 
     502         DO jj = 1, jpj 
     503            DO ji = 1, jpi   ! vector opt. 
    504504               ! 
    505505               zh  = pdep(ji,jj) * r1_Z0                                  ! depth 
    … …  
    535535         END DO 
    536536         ! 
    537          CALL lbc_lnk( 'eosbn2', prd, 'T', 1. )                    ! Lateral boundary conditions 
    538          ! 
    539537      CASE( np_seos )                !==  simplified EOS  ==! 
    540538         ! 
    541          DO jj = 1, jpjm1 
    542             DO ji = 1, fs_jpim1   ! vector opt. 
     539         DO jj = 1, jpj 
     540            DO ji = 1, jpi   ! vector opt. 
    543541               ! 
    544542               zt    = pts  (ji,jj,jp_tem)  - 10._wp 
    … …  
    554552            END DO 
    555553         END DO 
    556          ! 
    557          CALL lbc_lnk( 'eosbn2', prd, 'T', 1. )                    ! Lateral boundary conditions 
    558554         ! 
    559555      END SELECT 
    … …  
    704700      CASE( np_teos10, np_eos80 )                !==  polynomial TEOS-10 / EOS-80 ==! 
    705701         ! 
    706          DO jj = 1, jpjm1 
    707             DO ji = 1, fs_jpim1   ! vector opt. 
     702         DO jj = 1, jpj 
     703            DO ji = 1, jpi   ! vector opt. 
    708704               ! 
    709705               zh  = pdep(ji,jj) * r1_Z0                                  ! depth 
    … …  
    756752            END DO 
    757753         END DO 
    758          !                            ! Lateral boundary conditions 
    759          CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                     
    760754         ! 
    761755      CASE( np_seos )                  !==  simplified EOS  ==! 
    762756         ! 
    763          DO jj = 1, jpjm1 
    764             DO ji = 1, fs_jpim1   ! vector opt. 
     757         DO jj = 1, jpj 
     758            DO ji = 1, jpi   ! vector opt. 
    765759               ! 
    766760               zt    = pts  (ji,jj,jp_tem) - 10._wp   ! pot. temperature anomaly (t-T0) 
    … …  
    776770            END DO 
    777771         END DO 
    778          !                            ! Lateral boundary conditions 
    779          CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                     
    780772         ! 
    781773      CASE DEFAULT 
Note: See TracChangeset for help on using the changeset viewer.