Changeset 9814 for NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LDF
- Timestamp:
- 2018-06-20T15:41:08+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LDF
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LDF/ldfc1d_c2d.F90
r9598 r9814 87 87 END DO 88 88 END DO 89 CALL lbc_lnk( 89 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( 103 CALL lbc_lnk_multi("ldfc1d_c2d",pah1, 'U', 1. , pah2, 'V', 1. ) 104 104 ! 105 105 CASE DEFAULT ! error -
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LDF/ldfdyn.F90
r9598 r9814 399 399 ENDIF 400 400 ! 401 CALL lbc_lnk_multi( 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( 479 CALL lbc_lnk_multi("ldfdyn",ahmt, 'T', 1. , ahmf, 'F', 1. ) 480 480 ! 481 481 END SELECT -
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LDF/ldfslp.F90
r9736 r9814 232 232 END DO 233 233 END DO 234 CALL lbc_lnk_multi( 234 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( 316 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( 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( 613 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( 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_r9759_HPC09_ESIWACE/src/OCE/LDF/ldftra.F90
r9737 r9814 707 707 END DO 708 708 END DO 709 CALL lbc_lnk( 709 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( 717 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( 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( 850 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( 868 CALL lbc_lnk( 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( 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( 903 CALL lbc_lnk( 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( 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.