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 10170 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/NST/agrif_oce_sponge.F90 – NEMO

Ignore:
Timestamp:
2018-10-03T16:49:50+02:00 (5 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2a: add report calls of lbc_lnk, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/NST/agrif_oce_sponge.F90

    r10068 r10170  
    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.