Changeset 13456


Ignore:
Timestamp:
2020-09-10T17:42:42+02:00 (5 months ago)
Author:
francesca
Message:

fix ticket #2520 in r4.0-HEAD

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/traadv_cen.F90

    r11993 r13456  
    127127            DO jk = 1, jpkm1                       ! Horizontal advective fluxes 
    128128               DO jj = 2, jpjm1 
    129                   DO ji = 1, fs_jpim1   ! vector opt. 
     129                  DO ji = 2, fs_jpim1   ! vector opt. 
    130130                     zC2t_u = ptn(ji,jj,jk,jn) + ptn(ji+1,jj  ,jk,jn)   ! C2 interpolation of T at u- & v-points (x2) 
    131131                     zC2t_v = ptn(ji,jj,jk,jn) + ptn(ji  ,jj+1,jk,jn) 
     
    139139               END DO 
    140140            END DO          
     141            CALL lbc_lnk_multi( 'traadv_cen', zwx, 'U', -1. , zwy, 'V', -1. ) 
    141142            ! 
    142143         CASE DEFAULT 
    143             CALL ctl_stop( 'traadv_fct: wrong value for nn_fct' ) 
     144            CALL ctl_stop( 'traadv_cen: wrong value for nn_cen' ) 
    144145         END SELECT 
    145146         ! 
Note: See TracChangeset for help on using the changeset viewer.