- 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/OCE/BDY/bdyini.F90
r13571 r13630 638 638 END DO 639 639 END DO 640 #if defined key_mpi3 641 CALL lbc_lnk_nc_multi( 'bdyini', zfmask, 'F', 1.0_wp ) 642 #else 640 643 CALL lbc_lnk( 'bdyini', zfmask, 'F', 1.0_wp ) 644 #endif 641 645 642 646 ! Read global 2D mask at T-points: bdytmask … … 654 658 END DO 655 659 END DO 660 #if defined key_mpi3 661 CALL lbc_lnk_nc_multi( 'bdyini', bdyumask, 'U', 1.0_wp , bdyvmask, 'V', 1.0_wp ) ! Lateral boundary cond. 662 #else 656 663 CALL lbc_lnk_multi( 'bdyini', bdyumask, 'U', 1.0_wp , bdyvmask, 'V', 1.0_wp ) ! Lateral boundary cond. 664 #endif 657 665 658 666 ! bdy masks are now set to zero on rim 0 points: … … 695 703 END DO 696 704 END DO 705 #if defined key_mpi3 706 CALL lbc_lnk_nc_multi( 'bdyini', zfmask, 'F', 1.0_wp ) 707 #else 697 708 CALL lbc_lnk( 'bdyini', zfmask, 'F', 1.0_wp ) 709 #endif 698 710 699 711 ! bdy masks are now set to zero on rim1 points: … … 871 883 ENDIF 872 884 SELECT CASE( igrd ) 885 #if defined key_mpi3 886 CASE( 1 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'T', 1.0_wp ) 887 CASE( 2 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'U', 1.0_wp ) 888 CASE( 3 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'V', 1.0_wp ) 889 #else 873 890 CASE( 1 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 874 891 CASE( 2 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 875 892 CASE( 3 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 893 #endif 876 894 END SELECT 877 895 DO ib = ibeg, iend … … 919 937 ENDIF 920 938 SELECT CASE( igrd ) 939 #if defined key_mpi3 940 CASE( 1 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'T', 1.0_wp ) 941 CASE( 2 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'U', 1.0_wp ) 942 CASE( 3 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'V', 1.0_wp ) 943 #else 921 944 CASE( 1 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 922 945 CASE( 2 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 923 946 CASE( 3 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 947 #endif 924 948 END SELECT 925 949 DO ib = ibeg, iend … … 1007 1031 END DO 1008 1032 SELECT CASE( igrd ) 1033 #if defined key_mpi3 1034 CASE( 1 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'T', 1.0_wp ) 1035 CASE( 2 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'U', 1.0_wp ) 1036 CASE( 3 ) ; CALL lbc_lnk_nc_multi( 'bdyini', ztmp, 'V', 1.0_wp ) 1037 #else 1009 1038 CASE( 1 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'T', 1.0_wp ) 1010 1039 CASE( 2 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'U', 1.0_wp ) 1011 1040 CASE( 3 ) ; CALL lbc_lnk( 'bdyini', ztmp, 'V', 1.0_wp ) 1041 #endif 1012 1042 END SELECT 1013 1043 DO ib = ibeg, iend
Note: See TracChangeset
for help on using the changeset viewer.