- Timestamp:
- 2018-10-03T16:49:50+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LDF
- Files:
-
- 4 edited
-
ldfc1d_c2d.F90 (modified) (2 diffs)
-
ldfdyn.F90 (modified) (2 diffs)
-
ldfslp.F90 (modified) (6 diffs)
-
ldftra.F90 (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LDF/ldfc1d_c2d.F90
r10069 r10170 87 87 END DO 88 88 END DO 89 CALL lbc_lnk( pah2, 'F', 1. ) ! Lateral boundary conditions89 CALL lbc_lnk( 'ldfc1d_c2d', pah2, 'F', 1. ) ! Lateral boundary conditions 90 90 ! 91 91 CASE( 'TRA' ) ! U- and V-points (zdep1 & 2 are an approximation in zps-coord.) … … 101 101 END DO 102 102 ! Lateral boundary conditions 103 CALL lbc_lnk_multi( pah1, 'U', 1. , pah2, 'V', 1. )103 CALL lbc_lnk_multi( 'ldfc1d_c2d', pah1, 'U', 1. , pah2, 'V', 1. ) 104 104 ! 105 105 CASE DEFAULT ! error -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LDF/ldfdyn.F90
r10068 r10170 399 399 ENDIF 400 400 ! 401 CALL lbc_lnk_multi( ahmt, 'T', 1., ahmf, 'F', 1. )401 CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1., ahmf, 'F', 1. ) 402 402 ! 403 403 ! … … 477 477 ENDIF 478 478 ! 479 CALL lbc_lnk_multi( ahmt, 'T', 1. , ahmf, 'F', 1. )479 CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1. , ahmf, 'F', 1. ) 480 480 ! 481 481 END SELECT -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LDF/ldfslp.F90
r10068 r10170 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 -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LDF/ldftra.F90
r10068 r10170 707 707 END DO 708 708 END DO 709 CALL lbc_lnk( zaeiw(:,:), 'W', 1. ) ! lateral boundary condition709 CALL lbc_lnk( 'ldftra', zaeiw(:,:), 'W', 1. ) ! lateral boundary condition 710 710 ! 711 711 DO jj = 2, jpjm1 !== aei at u- and v-points ==! … … 715 715 END DO 716 716 END DO 717 CALL lbc_lnk_multi( paeiu(:,:,1), 'U', 1. , paeiv(:,:,1), 'V', 1. ) ! lateral boundary condition717 CALL lbc_lnk_multi( 'ldftra', paeiu(:,:,1), 'U', 1. , paeiv(:,:,1), 'V', 1. ) ! lateral boundary condition 718 718 719 719 DO jk = 2, jpkm1 !== deeper values equal the surface one ==! … … 821 821 !!gm to be redesigned.... 822 822 ! !== eiv stream function: output ==! 823 CALL lbc_lnk_multi( psi_uw, 'U', -1. , psi_vw, 'V', -1. )823 CALL lbc_lnk_multi( 'ldftra', psi_uw, 'U', -1. , psi_vw, 'V', -1. ) 824 824 ! 825 825 !!gm CALL iom_put( "psi_eiv_uw", psi_uw ) ! output … … 848 848 END DO 849 849 END DO 850 CALL lbc_lnk( zw3d, 'T', 1. ) ! lateral boundary condition850 CALL lbc_lnk( 'ldftra', zw3d, 'T', 1. ) ! lateral boundary condition 851 851 CALL iom_put( "woce_eiv", zw3d ) 852 852 ! … … 865 865 END DO 866 866 END DO 867 CALL lbc_lnk( zw2d, 'U', -1. )868 CALL lbc_lnk( zw3d, 'U', -1. )867 CALL lbc_lnk( 'ldftra', zw2d, 'U', -1. ) 868 CALL lbc_lnk( 'ldftra', zw3d, 'U', -1. ) 869 869 CALL iom_put( "ueiv_heattr" , zztmp * zw2d ) ! heat transport in i-direction 870 870 CALL iom_put( "ueiv_heattr3d", zztmp * zw3d ) ! heat transport in i-direction … … 881 881 END DO 882 882 END DO 883 CALL lbc_lnk( zw2d, 'V', -1. )883 CALL lbc_lnk( 'ldftra', zw2d, 'V', -1. ) 884 884 CALL iom_put( "veiv_heattr", zztmp * zw2d ) ! heat transport in j-direction 885 885 CALL iom_put( "veiv_heattr", zztmp * zw3d ) ! heat transport in j-direction … … 900 900 END DO 901 901 END DO 902 CALL lbc_lnk( zw2d, 'U', -1. )903 CALL lbc_lnk( zw3d, 'U', -1. )902 CALL lbc_lnk( 'ldftra', zw2d, 'U', -1. ) 903 CALL lbc_lnk( 'ldftra', zw3d, 'U', -1. ) 904 904 CALL iom_put( "ueiv_salttr", zztmp * zw2d ) ! salt transport in i-direction 905 905 CALL iom_put( "ueiv_salttr3d", zztmp * zw3d ) ! salt transport in i-direction … … 916 916 END DO 917 917 END DO 918 CALL lbc_lnk( zw2d, 'V', -1. )918 CALL lbc_lnk( 'ldftra', zw2d, 'V', -1. ) 919 919 CALL iom_put( "veiv_salttr", zztmp * zw2d ) ! salt transport in j-direction 920 920 CALL iom_put( "veiv_salttr", zztmp * zw3d ) ! salt transport in j-direction
Note: See TracChangeset
for help on using the changeset viewer.
