Changeset 10425 for NEMO/trunk/src/OCE/LDF/ldfslp.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LDF/ldfslp.F90
r10068 r10425 232 232 END DO 233 233 END DO 234 CALL lbc_lnk_multi( zwz, 'U', -1., zww, 'V', -1. ) ! lateral boundary conditions234 CALL lbc_lnk_multi( 'ldfslp', zwz, 'U', -1., zww, 'V', -1. ) ! lateral boundary conditions 235 235 ! 236 236 ! !* horizontal Shapiro filter … … 314 314 END DO 315 315 END DO 316 CALL lbc_lnk_multi( zwz, 'T', -1., zww, 'T', -1. ) ! lateral boundary conditions316 CALL lbc_lnk_multi( 'ldfslp', zwz, 'T', -1., zww, 'T', -1. ) ! lateral boundary conditions 317 317 ! 318 318 ! !* horizontal Shapiro filter … … 363 363 ! IV. Lateral boundary conditions 364 364 ! =============================== 365 CALL lbc_lnk_multi( uslp , 'U', -1. , vslp , 'V', -1. , wslpi, 'W', -1., wslpj, 'W', -1. )365 CALL lbc_lnk_multi( 'ldfslp', uslp , 'U', -1. , vslp , 'V', -1. , wslpi, 'W', -1., wslpj, 'W', -1. ) 366 366 367 367 IF(ln_ctl) THEN … … 611 611 wslp2(:,:,1) = 0._wp ! force the surface wslp to zero 612 612 613 CALL lbc_lnk( wslp2, 'W', 1. ) ! lateral boundary confition on wslp2 only ==>>> gm : necessary ? to be checked613 CALL lbc_lnk( 'ldfslp', wslp2, 'W', 1. ) ! lateral boundary confition on wslp2 only ==>>> gm : necessary ? to be checked 614 614 ! 615 615 IF( ln_timing ) CALL timing_stop('ldf_slp_triad') … … 725 725 END DO 726 726 !!gm this lbc_lnk should be useless.... 727 CALL lbc_lnk_multi( uslpml , 'U', -1. , vslpml , 'V', -1. , wslpiml, 'W', -1. , wslpjml, 'W', -1. )727 CALL lbc_lnk_multi( 'ldfslp', uslpml , 'U', -1. , vslpml , 'V', -1. , wslpiml, 'W', -1. , wslpjml, 'W', -1. ) 728 728 ! 729 729 END SUBROUTINE ldf_slp_mxl … … 793 793 ! END DO 794 794 ! END DO 795 ! CALL lbc_lnk_multi( uslp , 'U', -1. ; CALL lbc_lnk(vslp , 'V', -1., wslpi, 'W', -1., wslpj, 'W', -1. )795 ! CALL lbc_lnk_multi( 'ldfslp', uslp , 'U', -1. ; CALL lbc_lnk( 'ldfslp', vslp , 'V', -1., wslpi, 'W', -1., wslpj, 'W', -1. ) 796 796 !!gm ENDIF 797 797 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.