- Timestamp:
- 2018-06-20T15:41:08+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/DYN/dynhpg.F90
r9598 r9814 490 490 END DO 491 491 END DO 492 CALL lbc_lnk_multi( 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( 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( 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( 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.