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 10425 for NEMO/trunk/src/OCE/DYN/sshwzv.F90 – NEMO

Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (6 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/OCE/DYN/sshwzv.F90

    r10364 r10425  
    112112      IF ( .NOT.ln_dynspg_ts ) THEN 
    113113         IF( ln_bdy ) THEN 
    114             CALL lbc_lnk( ssha, 'T', 1. )    ! Not sure that's necessary 
     114            CALL lbc_lnk( 'sshwzv', ssha, 'T', 1. )    ! Not sure that's necessary 
    115115            CALL bdy_ssh( ssha )             ! Duplicate sea level across open boundaries 
    116116         ENDIF 
     
    176176            END DO 
    177177         END DO 
    178          CALL lbc_lnk(zhdiv, 'T', 1.)  ! - ML - Perhaps not necessary: not used for horizontal "connexions" 
     178         CALL lbc_lnk('sshwzv', zhdiv, 'T', 1.)  ! - ML - Perhaps not necessary: not used for horizontal "connexions" 
    179179         !                             ! Is it problematic to have a wrong vertical velocity in boundary cells? 
    180180         !                             ! Same question holds for hdivn. Perhaps just for security 
Note: See TracChangeset for help on using the changeset viewer.