- 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/BDY/bdyini.F90
r9657 r9814 1133 1133 END DO 1134 1134 END DO 1135 CALL lbc_lnk_multi( 1135 CALL lbc_lnk_multi("bdyini",bdyumask, 'U', 1. , bdyvmask, 'V', 1. ) ! Lateral boundary cond. 1136 1136 1137 1137 ! bdy masks are now set to zero on boundary points: … … 1168 1168 1169 1169 ! Lateral boundary conditions 1170 CALL lbc_lnk( 1171 CALL lbc_lnk_multi( 1170 CALL lbc_lnk("bdyini",zfmask, 'F', 1. ) 1171 CALL lbc_lnk_multi("bdyini",bdyumask, 'U', 1. , bdyvmask, 'V', 1., bdytmask, 'T', 1. ) 1172 1172 DO ib_bdy = 1, nb_bdy ! Indices and directions of rim velocity components 1173 1173
Note: See TracChangeset
for help on using the changeset viewer.