- Timestamp:
- 2017-12-15T18:12:43+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90
r9019 r9090 175 175 END DO 176 176 END DO 177 CALL lbc_lnk( sshn , 'T', 1._wp ) 178 CALL lbc_lnk( zsmask1, 'T', 1._wp ) 177 CALL lbc_lnk_multi( sshn, 'T', 1., zsmask1, 'T', 1. ) 179 178 zssh0 = sshn 180 179 zsmask0 = zsmask1 … … 345 344 END DO 346 345 347 CALL lbc_lnk(tsn(:,:,:,1),'T',1._wp) 348 CALL lbc_lnk(tsn(:,:,:,2),'T',1._wp) 349 CALL lbc_lnk(ztmask1, 'T',1._wp) 346 CALL lbc_lnk_multi( tsn(:,:,:,jp_tem), 'T', 1., tsn(:,:,:,jp_sal), 'T', 1., ztmask1, 'T', 1.) 350 347 351 348 ! update
Note: See TracChangeset
for help on using the changeset viewer.