Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (2 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif_oce_sponge.F90

    r10068 r10425  
    164164            END DO 
    165165         END DO 
    166          CALL lbc_lnk( fsaht_spu, 'U', 1. )   ! Lateral boundary conditions 
    167          CALL lbc_lnk( fsaht_spv, 'V', 1. ) 
     166         CALL lbc_lnk( 'agrif_oce_sponge', fsaht_spu, 'U', 1. )   ! Lateral boundary conditions 
     167         CALL lbc_lnk( 'agrif_oce_sponge', fsaht_spv, 'V', 1. ) 
    168168          
    169169         spongedoneT = .TRUE. 
     
    181181            END DO 
    182182         END DO 
    183          CALL lbc_lnk( fsahm_spt, 'T', 1. )   ! Lateral boundary conditions 
    184          CALL lbc_lnk( fsahm_spf, 'F', 1. ) 
     183         CALL lbc_lnk( 'agrif_oce_sponge', fsahm_spt, 'T', 1. )   ! Lateral boundary conditions 
     184         CALL lbc_lnk( 'agrif_oce_sponge', fsahm_spf, 'F', 1. ) 
    185185          
    186186         spongedoneU = .TRUE. 
Note: See TracChangeset for help on using the changeset viewer.