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/OCE/DYN/sshwzv.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/OCE/DYN/sshwzv.F90

    r10068 r10170  
    110110      IF ( .NOT.ln_dynspg_ts ) THEN 
    111111         IF( ln_bdy ) THEN 
    112             CALL lbc_lnk( ssha, 'T', 1. )    ! Not sure that's necessary 
     112            CALL lbc_lnk( 'sshwzv', ssha, 'T', 1. )    ! Not sure that's necessary 
    113113            CALL bdy_ssh( ssha )             ! Duplicate sea level across open boundaries 
    114114         ENDIF 
     
    174174            END DO 
    175175         END DO 
    176          CALL lbc_lnk(zhdiv, 'T', 1.)  ! - ML - Perhaps not necessary: not used for horizontal "connexions" 
     176         CALL lbc_lnk('sshwzv', zhdiv, 'T', 1.)  ! - ML - Perhaps not necessary: not used for horizontal "connexions" 
    177177         !                             ! Is it problematic to have a wrong vertical velocity in boundary cells? 
    178178         !                             ! Same question holds for hdivn. Perhaps just for security 
Note: See TracChangeset for help on using the changeset viewer.