- Timestamp:
- 2020-10-19T10:48:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/dynvor.F90
r13295 r13630 242 242 ENDIF 243 243 END DO 244 #if defined key_mpi3 245 CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1. ) 246 #else 244 247 CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 248 #endif 245 249 ! 246 250 END SELECT … … 599 603 END DO ! End of slab 600 604 ! 605 #if defined key_mpi3 606 CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1. ) 607 #else 601 608 CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 609 #endif 602 610 603 611 DO jk = 1, jpkm1 ! Horizontal slab … … 720 728 END DO 721 729 ! 730 #if defined key_mpi3 731 CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1. ) 732 #else 722 733 CALL lbc_lnk( 'dynvor', zwz, 'F', 1. ) 734 #endif 723 735 ! 724 736 DO jk = 1, jpkm1 ! Horizontal slab … … 812 824 END_3D 813 825 ! 826 #if defined key_mpi3 827 CALL lbc_lnk_nc_multi( 'dynvor', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 828 #else 814 829 CALL lbc_lnk( 'dynvor', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 830 #endif 815 831 ! 816 832 ENDIF … … 850 866 dj_e1v_2(ji,jj) = ( e1v(ji,jj) - e1v(ji ,jj-1) ) * 0.5_wp 851 867 END_2D 868 #if defined key_mpi3 869 CALL lbc_lnk_nc_multi( 'dynvor', di_e2u_2, 'T', -1. , dj_e1v_2, 'T', -1. ) ! Lateral boundary conditions 870 #else 852 871 CALL lbc_lnk_multi( 'dynvor', di_e2u_2, 'T', -1. , dj_e1v_2, 'T', -1. ) ! Lateral boundary conditions 872 #endif 853 873 ! 854 874 CASE DEFAULT !* F-point metric term : pre-compute di(e2u)/(2*e1e2f) and dj(e1v)/(2*e1e2f) … … 858 878 dj_e1u_2e1e2f(ji,jj) = ( e1u(ji ,jj+1) - e1u(ji,jj) ) * 0.5 * r1_e1e2f(ji,jj) 859 879 END_2D 880 #if defined key_mpi3 881 CALL lbc_lnk_nc_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1. , dj_e1u_2e1e2f, 'F', -1. ) ! Lateral boundary conditions 882 #else 860 883 CALL lbc_lnk_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1. , dj_e1u_2e1e2f, 'F', -1. ) ! Lateral boundary conditions 884 #endif 861 885 END SELECT 862 886 !
Note: See TracChangeset
for help on using the changeset viewer.