Changeset 10170 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/domvvl.F90
- Timestamp:
- 2018-10-03T16:49:50+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/domvvl.F90
r10074 r10170 385 385 ! ! d - thickness diffusion transport: boundary conditions 386 386 ! (stored for tracer advction and continuity equation) 387 CALL lbc_lnk_multi( un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp)387 CALL lbc_lnk_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 388 388 389 389 ! 4 - Time stepping of baroclinic scale factors … … 396 396 z2dt = 2.0_wp * rdt 397 397 ENDIF 398 CALL lbc_lnk( tilde_e3t_a(:,:,:), 'T', 1._wp )398 CALL lbc_lnk( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 399 399 tilde_e3t_a(:,:,:) = tilde_e3t_b(:,:,:) + z2dt * tmask(:,:,:) * tilde_e3t_a(:,:,:) 400 400 … … 688 688 END DO 689 689 END DO 690 CALL lbc_lnk( pe3_out(:,:,:), 'U', 1._wp )690 CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'U', 1._wp ) 691 691 pe3_out(:,:,:) = pe3_out(:,:,:) + e3u_0(:,:,:) 692 692 ! … … 701 701 END DO 702 702 END DO 703 CALL lbc_lnk( pe3_out(:,:,:), 'V', 1._wp )703 CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'V', 1._wp ) 704 704 pe3_out(:,:,:) = pe3_out(:,:,:) + e3v_0(:,:,:) 705 705 ! … … 715 715 END DO 716 716 END DO 717 CALL lbc_lnk( pe3_out(:,:,:), 'F', 1._wp )717 CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'F', 1._wp ) 718 718 pe3_out(:,:,:) = pe3_out(:,:,:) + e3f_0(:,:,:) 719 719 !
Note: See TracChangeset
for help on using the changeset viewer.