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/dynhpg.F90 – NEMO

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

    r10068 r10425  
    490490           END DO 
    491491        END DO 
    492         CALL lbc_lnk_multi( zcpx, 'U', 1., zcpy, 'V', 1. ) 
     492        CALL lbc_lnk_multi( 'dynhpg', zcpx, 'U', 1., zcpy, 'V', 1. ) 
    493493      END IF 
    494494 
     
    723723           END DO 
    724724        END DO 
    725         CALL lbc_lnk_multi( zcpx, 'U', 1., zcpy, 'V', 1. ) 
     725        CALL lbc_lnk_multi( 'dynhpg', zcpx, 'U', 1., zcpy, 'V', 1. ) 
    726726      END IF 
    727727 
     
    883883         END DO 
    884884      END DO 
    885       CALL lbc_lnk_multi( rho_k, 'W', 1., rho_i, 'U', 1., rho_j, 'V', 1. ) 
     885      CALL lbc_lnk_multi( 'dynhpg', rho_k, 'W', 1., rho_i, 'U', 1., rho_j, 'V', 1. ) 
    886886 
    887887      ! --------------- 
     
    10161016            END DO 
    10171017         END DO 
    1018          CALL lbc_lnk_multi( zcpx, 'U', 1., zcpy, 'V', 1. ) 
     1018         CALL lbc_lnk_multi( 'dynhpg', zcpx, 'U', 1., zcpy, 'V', 1. ) 
    10191019      ENDIF 
    10201020 
     
    11021102      END DO 
    11031103 
    1104       CALL lbc_lnk_multi (zsshu_n, 'U', 1., zsshv_n, 'V', 1. ) 
     1104      CALL lbc_lnk_multi ('dynhpg', zsshu_n, 'U', 1., zsshv_n, 'V', 1. ) 
    11051105 
    11061106      DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.