Changeset 9098 for branches/2017/dev_merge_2017/NEMOGCM/NEMO
- Timestamp:
- 2017-12-15T18:38:45+01:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90
r7753 r9098 273 273 ! =========================== ! 274 274 ! ! lateral boundary cond.: T-, U-, V-, F-pts, sgn 275 CALL lbc_lnk( gcost, 'T', -1. ) ; CALL lbc_lnk( gsint, 'T', -1. ) 276 CALL lbc_lnk( gcosu, 'U', -1. ) ; CALL lbc_lnk( gsinu, 'U', -1. ) 277 CALL lbc_lnk( gcosv, 'V', -1. ) ; CALL lbc_lnk( gsinv, 'V', -1. ) 278 CALL lbc_lnk( gcosf, 'F', -1. ) ; CALL lbc_lnk( gsinf, 'F', -1. ) 275 CALL lbc_lnk_multi( gcost, 'T', -1., gsint, 'T', -1., gcosu, 'U', -1., gsinu, 'U', -1., & 276 & gcosv, 'V', -1., gsinv, 'V', -1., gcosf, 'F', -1., gsinf, 'F', -1. ) 279 277 ! 280 278 END SUBROUTINE angle -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90
r9076 r9098 411 411 END DO 412 412 END DO 413 CALL lbc_lnk( zwnd_i(:,:) , 'T', -1. ) 414 CALL lbc_lnk( zwnd_j(:,:) , 'T', -1. ) 413 CALL lbc_lnk_multi( zwnd_i, 'T', -1., zwnd_j, 'T', -1. ) 415 414 ! ... scalar wind ( = | U10m - U_oce | ) at T-point (masked) 416 415 wndm(:,:) = SQRT( zwnd_i(:,:) * zwnd_i(:,:) & … … 490 489 END DO 491 490 END DO 492 CALL lbc_lnk( utau(:,:), 'U', -1. ) 493 CALL lbc_lnk( vtau(:,:), 'V', -1. ) 494 491 CALL lbc_lnk_multi( utau, 'U', -1., vtau, 'V', -1. ) 495 492 496 493 ! Turbulent fluxes over ocean … … 794 791 END DO 795 792 END DO 796 CALL lbc_lnk( utau_ice, 'I', -1. ) 797 CALL lbc_lnk( vtau_ice, 'I', -1. ) 793 CALL lbc_lnk_multi( utau_ice, 'I', -1., vtau_ice, 'I', -1. ) 798 794 ! 799 795 CASE( 'C' ) ! C-grid ice dynamics : U & V-points (same as ocean) … … 806 802 END DO 807 803 END DO 808 CALL lbc_lnk( utau_ice, 'U', -1. ) 809 CALL lbc_lnk( vtau_ice, 'V', -1. ) 804 CALL lbc_lnk_multi( utau_ice, 'U', -1., vtau_ice, 'V', -1. ) 810 805 ! 811 806 END SELECT -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r9034 r9098 1170 1170 END DO 1171 1171 END DO 1172 CALL lbc_lnk ( frcv(jpr_otx1)%z3(:,:,1), 'U', -1. ) ; CALL lbc_lnk(frcv(jpr_oty1)%z3(:,:,1), 'V', -1. )1172 CALL lbc_lnk_multi( frcv(jpr_otx1)%z3(:,:,1), 'U', -1., frcv(jpr_oty1)%z3(:,:,1), 'V', -1. ) 1173 1173 ENDIF 1174 1174 llnewtx = .TRUE. … … 1589 1589 END SELECT 1590 1590 IF( srcv(jpr_itx1)%clgrid /= 'I' ) THEN 1591 CALL lbc_lnk ( p_taui, 'I', -1. ) ; CALL lbc_lnk(p_tauj, 'I', -1. )1591 CALL lbc_lnk_multi( p_taui, 'I', -1., p_tauj, 'I', -1. ) 1592 1592 ENDIF 1593 1593 ! … … 1622 1622 END SELECT 1623 1623 IF( srcv(jpr_itx1)%clgrid /= 'F' ) THEN 1624 CALL lbc_lnk ( p_taui, 'F', -1. ) ; CALL lbc_lnk(p_tauj, 'F', -1. )1624 CALL lbc_lnk_multi( p_taui, 'F', -1., p_tauj, 'F', -1. ) 1625 1625 ENDIF 1626 1626 ! … … 1653 1653 END SELECT 1654 1654 IF( srcv(jpr_itx1)%clgrid /= 'U' ) THEN 1655 CALL lbc_lnk ( p_taui, 'U', -1. ) ; CALL lbc_lnk(p_tauj, 'V', -1. )1655 CALL lbc_lnk_multi( p_taui, 'U', -1., p_tauj, 'V', -1. ) 1656 1656 ENDIF 1657 1657 END SELECT … … 2443 2443 END DO 2444 2444 END SELECT 2445 CALL lbc_lnk ( zitx1, 'T', -1. ) ; CALL lbc_lnk(zity1, 'T', -1. )2445 CALL lbc_lnk_multi( zitx1, 'T', -1., zity1, 'T', -1. ) 2446 2446 CASE( 'mixed oce-ice' ) 2447 2447 SELECT CASE ( cp_ice_msh ) … … 2479 2479 END SELECT 2480 2480 END SELECT 2481 CALL lbc_lnk ( zotx1, ssnd(jps_ocx1)%clgrid, -1. ) ; CALL lbc_lnk(zoty1, ssnd(jps_ocy1)%clgrid, -1. )2481 CALL lbc_lnk_multi( zotx1, ssnd(jps_ocx1)%clgrid, -1., zoty1, ssnd(jps_ocy1)%clgrid, -1. ) 2482 2482 ! 2483 2483 ENDIF … … 2576 2576 END DO 2577 2577 END SELECT 2578 CALL lbc_lnk ( zitx1, 'T', -1. ) ; CALL lbc_lnk(zity1, 'T', -1. )2578 CALL lbc_lnk_multi( zitx1, 'T', -1., zity1, 'T', -1. ) 2579 2579 CASE( 'mixed oce-ice' ) 2580 2580 SELECT CASE ( cp_ice_msh ) … … 2612 2612 END SELECT 2613 2613 END SELECT 2614 CALL lbc_lnk ( zotx1, ssnd(jps_ocxw)%clgrid, -1. ) ; CALL lbc_lnk(zoty1, ssnd(jps_ocyw)%clgrid, -1. )2614 CALL lbc_lnk_multi( zotx1, ssnd(jps_ocxw)%clgrid, -1., zoty1, ssnd(jps_ocyw)%clgrid, -1. ) 2615 2615 ! 2616 2616 ! -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r9019 r9098 227 227 ENDDO 228 228 229 CALL lbc_lnk ( fr_iu , 'U', 1. ) 230 CALL lbc_lnk ( fr_iv , 'V', 1. ) 229 CALL lbc_lnk_multi( fr_iu , 'U', 1., fr_iv , 'V', 1. ) 231 230 232 231 ! set the snow+ice mass … … 607 606 fmmflx(:,:) = ztmp1(:,:) !!Joakim edit 608 607 609 CALL lbc_lnk( emp , 'T', 1. ) 610 CALL lbc_lnk( sfx , 'T', 1. ) 608 CALL lbc_lnk_multi( emp , 'T', 1., sfx , 'T', 1. ) 611 609 612 610 ! Solar penetrative radiation and non solar surface heat flux … … 669 667 ENDDO 670 668 671 CALL lbc_lnk ( fr_iu , 'U', 1. ) 672 CALL lbc_lnk ( fr_iv , 'V', 1. ) 669 CALL lbc_lnk_multi( fr_iu , 'U', 1., fr_iv , 'V', 1. ) 673 670 674 671 ! set the snow+ice mass -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90
r9019 r9098 158 158 159 159 ! lbclnk 160 CALL lbc_lnk( risf_tsc(:,:,jp_tem),'T',1.) 161 CALL lbc_lnk( risf_tsc(:,:,jp_sal),'T',1.) 162 CALL lbc_lnk( fwfisf (:,:) ,'T',1.) 163 CALL lbc_lnk( qisf (:,:) ,'T',1.) 164 160 CALL lbc_lnk_multi( risf_tsc(:,:,jp_tem), 'T', 1., risf_tsc(:,:,jp_sal), 'T', 1., fwfisf,'T', 1., qisf, 'T', 1.) 165 161 ! output 166 162 IF( iom_use('iceshelf_cea') ) CALL iom_put( 'iceshelf_cea', -fwfisf(:,:) ) ! isf mass flux … … 697 693 END DO 698 694 END DO 699 CALL lbc_lnk(pgt(:,:),'T',1.) 700 CALL lbc_lnk(pgs(:,:),'T',1.) 695 CALL lbc_lnk_multi( pgt, 'T', 1., pgs, 'T', 1.) 701 696 END SELECT 702 697 ! -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r9033 r9098 183 183 ENDIF 184 184 185 CALL lbc_lnk( usd(:,:,:), 'U', -1. ) 186 CALL lbc_lnk( vsd(:,:,:), 'V', -1. ) 187 185 CALL lbc_lnk_multi( usd, 'U', -1., vsd, 'V', -1. ) 188 186 189 187 !
Note: See TracChangeset
for help on using the changeset viewer.