Changeset 10425 for NEMO/trunk/src/OCE/LDF/ldftra.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LDF/ldftra.F90
r10068 r10425 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.