Changeset 10425 for NEMO/trunk/src/OCE/DYN/dynhpg.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/dynhpg.F90
r10068 r10425 490 490 END DO 491 491 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. ) 493 493 END IF 494 494 … … 723 723 END DO 724 724 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. ) 726 726 END IF 727 727 … … 883 883 END DO 884 884 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. ) 886 886 887 887 ! --------------- … … 1016 1016 END DO 1017 1017 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. ) 1019 1019 ENDIF 1020 1020 … … 1102 1102 END DO 1103 1103 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. ) 1105 1105 1106 1106 DO jj = 2, jpjm1
Note: See TracChangeset
for help on using the changeset viewer.