Changeset 10412


Ignore:
Timestamp:
2018-12-18T18:12:14+01:00 (20 months ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: zpshde: no more lbc_lnk in the loops, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA/zpshde.F90

    r10170 r10412  
    144144            END DO 
    145145         END DO 
    146          CALL lbc_lnk_multi( 'zpshde', pgtu(:,:,jn), 'U', -1. , pgtv(:,:,jn), 'V', -1. )   ! Lateral boundary cond. 
    147          ! 
    148146      END DO 
     147      ! 
     148      CALL lbc_lnk_multi( 'zpshde', pgtu(:,:,:), 'U', -1. , pgtv(:,:,:), 'V', -1. )   ! Lateral boundary cond. 
    149149      !                 
    150150      IF( PRESENT( prd ) ) THEN    !==  horizontal derivative of density anomalies (rd)  ==!    (optional part) 
     
    305305            END DO 
    306306         END DO 
    307          CALL lbc_lnk_multi( 'zpshde', pgtu(:,:,jn), 'U', -1. , pgtv(:,:,jn), 'V', -1. )   ! Lateral boundary cond. 
    308          ! 
    309307      END DO 
     308      ! 
     309      CALL lbc_lnk_multi( 'zpshde', pgtu(:,:,:), 'U', -1. , pgtv(:,:,:), 'V', -1. )   ! Lateral boundary cond. 
    310310 
    311311      ! horizontal derivative of density anomalies (rd) 
Note: See TracChangeset for help on using the changeset viewer.