Changeset 13630
- Timestamp:
- 2020-10-19T10:48:19+02:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src
- Files:
-
- 102 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ABL/ablmod.F90
r13295 r13630 529 529 ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 530 530 ! 531 #if defined key_mpi3 532 CALL lbc_lnk_nc_multi( 'ablmod', u_abl(:,:,:,nt_a ), 'T', -1._wp, v_abl(:,:,:,nt_a) , 'T', -1._wp ) 533 CALL lbc_lnk_nc_multi( 'ablmod', tq_abl(:,:,:,nt_a,jp_ta), 'T', 1._wp , tq_abl(:,:,:,nt_a,jp_qa), 'T', 1._wp , kfillmode = jpfillnothing ) ! ++++ this should not be needed... 534 #else 531 535 CALL lbc_lnk_multi( 'ablmod', u_abl(:,:,:,nt_a ), 'T', -1._wp, v_abl(:,:,:,nt_a) , 'T', -1._wp ) 532 536 CALL lbc_lnk_multi( 'ablmod', tq_abl(:,:,:,nt_a,jp_ta), 'T', 1._wp , tq_abl(:,:,:,nt_a,jp_qa), 'T', 1._wp , kfillmode = jpfillnothing ) ! ++++ this should not be needed... 537 #endif 533 538 ! 534 539 #if defined key_iomput … … 594 599 END_2D 595 600 ! 601 #if defined key_mpi3 602 CALL lbc_lnk_nc_multi( 'ablmod', zwnd_i(:,:) , 'T', -1.0_wp, zwnd_j(:,:) , 'T', -1.0_wp ) 603 #else 596 604 CALL lbc_lnk_multi( 'ablmod', zwnd_i(:,:) , 'T', -1.0_wp, zwnd_j(:,:) , 'T', -1.0_wp ) 605 #endif 597 606 ! 598 607 ! ... scalar wind ( = | U10m - U_oce | ) at T-point (masked) … … 619 628 END_2D 620 629 ! 630 #if defined key_mpi3 631 CALL lbc_lnk_nc_multi( 'ablmod', ptaui(:,:), 'U', -1.0_wp, ptauj(:,:), 'V', -1.0_wp ) 632 #else 621 633 CALL lbc_lnk_multi( 'ablmod', ptaui(:,:), 'U', -1.0_wp, ptauj(:,:), 'V', -1.0_wp ) 634 #endif 622 635 623 636 CALL iom_put( "taum_oce", ptaum ) … … 639 652 & * ( 0.5_wp * ( v_abl(ji,jj+1,2,nt_a) + v_abl(ji,jj,2,nt_a) ) - pssv_ice(ji,jj) ) 640 653 END_2D 654 #if defined key_mpi3 655 CALL lbc_lnk_nc_multi( 'ablmod', ptaui_ice, 'U', -1.0_wp, ptauj_ice, 'V', -1.0_wp ) 656 #else 641 657 CALL lbc_lnk_multi( 'ablmod', ptaui_ice, 'U', -1.0_wp, ptauj_ice, 'V', -1.0_wp ) 658 #endif 642 659 ! 643 660 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab2d_1=ptaui_ice , clinfo1=' abl_stp: putaui : ' & … … 658 675 & * ( zztmp2 - pssv_ice(ji,jj) ) 659 676 END_2D 677 #if defined key_mpi3 678 CALL lbc_lnk_nc_multi( 'ablmod', ptaui_ice, 'U', -1.0_wp, ptauj_ice,'V', -1.0_wp ) 679 #else 660 680 CALL lbc_lnk_multi( 'ablmod', ptaui_ice, 'U', -1.0_wp, ptauj_ice,'V', -1.0_wp ) 681 #endif 661 682 ! 662 683 IF(sn_cfctl%l_prtctl) THEN … … 865 886 ! Optional : could add pblh smoothing if pblh is noisy horizontally ... 866 887 IF(ln_smth_pblh) THEN 888 #if defined key_mpi3 889 CALL lbc_lnk_nc_multi( 'ablmod', pblh, 'T', 1.0_wp) !, kfillmode = jpfillnothing) 890 #else 867 891 CALL lbc_lnk( 'ablmod', pblh, 'T', 1.0_wp) !, kfillmode = jpfillnothing) 892 #endif 868 893 CALL smooth_pblh( pblh, msk_abl ) 894 #if defined key_mpi3 895 CALL lbc_lnk_nc_multi( 'ablmod', pblh, 'T', 1.0_wp) !, kfillmode = jpfillnothing) 896 #else 869 897 CALL lbc_lnk( 'ablmod', pblh, 'T', 1.0_wp) !, kfillmode = jpfillnothing) 898 #endif 870 899 ENDIF 871 900 ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icecor.F90
r13571 r13630 113 113 ENDIF 114 114 END_2D 115 #if defined key_mpi3 116 CALL lbc_lnk_nc_multi( 'icecor', u_ice, 'U', -1.0_wp, v_ice, 'V', -1.0_wp ) 117 #else 115 118 CALL lbc_lnk_multi( 'icecor', u_ice, 'U', -1.0_wp, v_ice, 'V', -1.0_wp ) 119 #endif 116 120 ENDIF 117 121 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icedyn.F90
r13571 r13630 161 161 & + e1v(ji,jj) * v_ice(ji,jj) - e1v(ji,jj-1) * v_ice(ji,jj-1) ) * r1_e1e2t(ji,jj) 162 162 END_2D 163 #if defined key_mpi3 164 CALL lbc_lnk_nc_multi( 'icedyn', zdivu_i, 'T', 1.0_wp ) 165 #else 163 166 CALL lbc_lnk( 'icedyn', zdivu_i, 'T', 1.0_wp ) 167 #endif 164 168 ! output 165 169 CALL iom_put( 'icediv' , zdivu_i ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icedyn_adv_pra.F90
r13571 r13630 158 158 END_3D 159 159 END DO 160 #if defined key_mpi3 161 CALL lbc_lnk_nc_multi( 'icedyn_adv_pra', zei_max, 'T', 1. ) 162 CALL lbc_lnk_nc_multi( 'icedyn_adv_pra', zes_max, 'T', 1. ) 163 #else 160 164 CALL lbc_lnk( 'icedyn_adv_pra', zei_max, 'T', 1. ) 161 165 CALL lbc_lnk( 'icedyn_adv_pra', zes_max, 'T', 1. ) 166 #endif 162 167 ! 163 168 ! … … 311 316 & - ( zudy(ji,jj) - zudy(ji-1,jj) + zvdx(ji,jj) - zvdx(ji,jj-1) ) * r1_e1e2t(ji,jj) * zdt 312 317 END_2D 318 #if defined key_mpi3 319 CALL lbc_lnk_nc_multi( 'icedyn_adv_pra', pato_i, 'T', 1.0_wp ) 320 #else 313 321 CALL lbc_lnk( 'icedyn_adv_pra', pato_i, 'T', 1.0_wp ) 322 #endif 314 323 ! 315 324 ! --- Ensure non-negative fields --- ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icedyn_adv_umx.F90
r13571 r13630 162 162 END_3D 163 163 END DO 164 #if defined key_mpi3 165 CALL lbc_lnk_nc_multi( 'icedyn_adv_pra', zei_max, 'T', 1. ) 166 CALL lbc_lnk_nc_multi( 'icedyn_adv_pra', zes_max, 'T', 1. ) 167 #else 164 168 CALL lbc_lnk( 'icedyn_adv_pra', zei_max, 'T', 1. ) 165 169 CALL lbc_lnk( 'icedyn_adv_pra', zes_max, 'T', 1. ) 170 #endif 166 171 ! 167 172 ! … … 384 389 & - ( zudy(ji,jj) - zudy(ji-1,jj) + zvdx(ji,jj) - zvdx(ji,jj-1) ) * r1_e1e2t(ji,jj) * zdt 385 390 END_2D 391 #if defined key_mpi3 392 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pato_i, 'T', 1.0_wp ) 393 #else 386 394 CALL lbc_lnk( 'icedyn_adv_umx', pato_i, 'T', 1.0_wp ) 395 #endif 387 396 ! 388 397 ! … … 518 527 END_2D 519 528 END DO 529 #if defined key_mpi3 530 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zt_ups, 'T', 1.0_wp ) 531 #else 520 532 CALL lbc_lnk( 'icedyn_adv_umx', zt_ups, 'T', 1.0_wp ) 533 #endif 521 534 ! 522 535 IF ( np_limiter == 1 ) THEN … … 601 614 END_2D 602 615 END DO 616 #if defined key_mpi3 617 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 618 #else 603 619 CALL lbc_lnk( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 620 #endif 604 621 ! 605 622 DO jl = 1, jpl !-- flux in y-direction … … 625 642 END_2D 626 643 END DO 644 #if defined key_mpi3 645 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 646 #else 627 647 CALL lbc_lnk( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 648 #endif 628 649 ! 629 650 DO jl = 1, jpl !-- flux in x-direction … … 647 668 END_2D 648 669 END DO 670 #if defined key_mpi3 671 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pt_ups, 'T', 1.0_wp ) 672 #else 649 673 CALL lbc_lnk( 'icedyn_adv_umx', pt_ups, 'T', 1.0_wp ) 674 #endif 650 675 651 676 END SUBROUTINE upstream … … 709 734 END_2D 710 735 END DO 736 #if defined key_mpi3 737 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 738 #else 711 739 CALL lbc_lnk( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 740 #endif 712 741 713 742 DO jl = 1, jpl !-- flux in y-direction … … 735 764 END_2D 736 765 END DO 766 #if defined key_mpi3 767 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 768 #else 737 769 CALL lbc_lnk( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 770 #endif 738 771 ! 739 772 DO jl = 1, jpl !-- flux in x-direction … … 793 826 END_2D 794 827 END DO 828 #if defined key_mpi3 829 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 830 #else 795 831 CALL lbc_lnk( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 832 #endif 796 833 ! 797 834 ! !-- ultimate interpolation of pt at v-point --! … … 820 857 END_2D 821 858 END DO 859 #if defined key_mpi3 860 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 861 #else 822 862 CALL lbc_lnk( 'icedyn_adv_umx', zpt, 'T', 1.0_wp ) 863 #endif 823 864 ! 824 865 ! !-- ultimate interpolation of pt at u-point --! … … 873 914 END DO 874 915 END DO 916 #if defined key_mpi3 917 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', ztu2, 'T', 1.0_wp ) 918 #else 875 919 CALL lbc_lnk( 'icedyn_adv_umx', ztu2, 'T', 1.0_wp ) 920 #endif 876 921 ! 877 922 ! !-- BiLaplacian in i-direction --! … … 887 932 END DO 888 933 END DO 934 #if defined key_mpi3 935 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', ztu4, 'T', 1.0_wp ) 936 #else 889 937 CALL lbc_lnk( 'icedyn_adv_umx', ztu4, 'T', 1.0_wp ) 938 #endif 890 939 ! 891 940 ! … … 1013 1062 END_2D 1014 1063 END DO 1064 #if defined key_mpi3 1065 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', ztv2, 'T', 1.0_wp ) 1066 #else 1015 1067 CALL lbc_lnk( 'icedyn_adv_umx', ztv2, 'T', 1.0_wp ) 1068 #endif 1016 1069 ! 1017 1070 ! !-- BiLaplacian in j-direction --! … … 1024 1077 END_2D 1025 1078 END DO 1079 #if defined key_mpi3 1080 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', ztv4, 'T', 1.0_wp ) 1081 #else 1026 1082 CALL lbc_lnk( 'icedyn_adv_umx', ztv4, 'T', 1.0_wp ) 1083 #endif 1027 1084 ! 1028 1085 ! … … 1163 1220 END_2D 1164 1221 END DO 1222 #if defined key_mpi3 1223 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zti_ups, 'T', 1.0_wp, ztj_ups, 'T', 1.0_wp ) 1224 #else 1165 1225 CALL lbc_lnk_multi( 'icedyn_adv_umx', zti_ups, 'T', 1.0_wp, ztj_ups, 'T', 1.0_wp ) 1226 #endif 1166 1227 1167 1228 DO jl = 1, jpl … … 1185 1246 END_2D 1186 1247 END DO 1248 #if defined key_mpi3 1249 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pfu_ho, 'U', -1.0_wp, pfv_ho, 'V', -1.0_wp ) ! lateral boundary cond. 1250 #else 1187 1251 CALL lbc_lnk_multi( 'icedyn_adv_umx', pfu_ho, 'U', -1.0_wp, pfv_ho, 'V', -1.0_wp ) ! lateral boundary cond. 1252 #endif 1188 1253 1189 1254 ENDIF … … 1242 1307 END_2D 1243 1308 END DO 1309 #if defined key_mpi3 1310 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zbetup, 'T', 1.0_wp, zbetdo, 'T', 1.0_wp ) ! lateral boundary cond. (unchanged sign) 1311 #else 1244 1312 CALL lbc_lnk_multi( 'icedyn_adv_umx', zbetup, 'T', 1.0_wp, zbetdo, 'T', 1.0_wp ) ! lateral boundary cond. (unchanged sign) 1313 #endif 1245 1314 1246 1315 … … 1297 1366 END_2D 1298 1367 END DO 1368 #if defined key_mpi3 1369 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zslpx, 'U', -1.0_wp) ! lateral boundary cond. 1370 #else 1299 1371 CALL lbc_lnk( 'icedyn_adv_umx', zslpx, 'U', -1.0_wp) ! lateral boundary cond. 1372 #endif 1300 1373 1301 1374 DO jl = 1, jpl … … 1361 1434 END_2D 1362 1435 END DO 1436 #if defined key_mpi3 1437 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pfu_ho, 'U', -1.0_wp) ! lateral boundary cond. 1438 #else 1363 1439 CALL lbc_lnk( 'icedyn_adv_umx', pfu_ho, 'U', -1.0_wp) ! lateral boundary cond. 1440 #endif 1364 1441 ! 1365 1442 END SUBROUTINE limiter_x … … 1388 1465 END_2D 1389 1466 END DO 1467 #if defined key_mpi3 1468 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', zslpy, 'V', -1.0_wp) ! lateral boundary cond. 1469 #else 1390 1470 CALL lbc_lnk( 'icedyn_adv_umx', zslpy, 'V', -1.0_wp) ! lateral boundary cond. 1471 #endif 1391 1472 1392 1473 DO jl = 1, jpl … … 1453 1534 END_2D 1454 1535 END DO 1536 #if defined key_mpi3 1537 CALL lbc_lnk_nc_multi( 'icedyn_adv_umx', pfv_ho, 'V', -1.0_wp) ! lateral boundary cond. 1538 #else 1455 1539 CALL lbc_lnk( 'icedyn_adv_umx', pfv_ho, 'V', -1.0_wp) ! lateral boundary cond. 1540 #endif 1456 1541 ! 1457 1542 END SUBROUTINE limiter_y -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icedyn_rdgrft.F90
r13571 r13630 801 801 strength(ji,jj) = zworka(ji,jj) 802 802 END_2D 803 #if defined key_mpi3 804 CALL lbc_lnk_nc_multi( 'icedyn_rdgrft', strength, 'T', 1.0_wp ) 805 #else 803 806 CALL lbc_lnk( 'icedyn_rdgrft', strength, 'T', 1.0_wp ) 807 #endif 804 808 ! 805 809 CASE( 2 ) !--- Temporal smoothing … … 820 824 ENDIF 821 825 END_2D 826 #if defined key_mpi3 827 CALL lbc_lnk_nc_multi( 'icedyn_rdgrft', strength, 'T', 1.0_wp ) 828 #else 822 829 CALL lbc_lnk( 'icedyn_rdgrft', strength, 'T', 1.0_wp ) 830 #endif 823 831 ! 824 832 END SELECT -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icedyn_rhg_evp.F90
r13571 r13630 322 322 323 323 END_2D 324 #if defined key_mpi3325 CALL lbc_lnk_nc_multi( 'icedyn_rhg_evp', zmf, 'T', 1.0_wp, zdt_m, 'T', 1.0_wp )326 #else327 324 CALL lbc_lnk_multi( 'icedyn_rhg_evp', zmf, 'T', 1.0_wp, zdt_m, 'T', 1.0_wp ) 328 #endif329 325 ! 330 326 ! !== Landfast ice parameterization ==! … … 408 404 409 405 END_2D 406 #if defined key_mpi3 407 CALL lbc_lnk_nc_multi( 'icedyn_rhg_evp', zdelta, 'T', 1.0_wp ) 408 #else 410 409 CALL lbc_lnk( 'icedyn_rhg_evp', zdelta, 'T', 1.0_wp ) 411 410 #endif 412 411 ! P/delta at T points 413 412 DO_2D( 1, 1, 1, 1 ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icesbc.F90
r13571 r13630 86 86 vtau_ice(ji,jj) = vtau_ice(ji,jj) * xcplmask(ji,jj,0) + zvtau_ice(ji,jj) * ( 1. - xcplmask(ji,jj,0) ) 87 87 END_2D 88 #if defined key_mpi3 89 CALL lbc_lnk_nc_multi( 'icesbc', utau_ice, 'U', -1.0_wp, vtau_ice, 'V', -1.0_wp ) 90 #else 88 91 CALL lbc_lnk_multi( 'icesbc', utau_ice, 'U', -1.0_wp, vtau_ice, 'V', -1.0_wp ) 92 #endif 89 93 ENDIF 90 94 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icethd.F90
r13571 r13630 132 132 END_2D 133 133 ENDIF 134 #if defined key_mpi3 135 CALL lbc_lnk_nc_multi( 'icethd', zfric, 'T', 1.0_wp ) 136 #else 134 137 CALL lbc_lnk( 'icethd', zfric, 'T', 1.0_wp ) 138 #endif 135 139 ! 136 140 !--------------------------------------------------------------------! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icethd_do.F90
r13571 r13630 191 191 END_2D 192 192 ! 193 #if defined key_mpi3 194 CALL lbc_lnk_nc_multi( 'icethd_do', zvrel, 'T', 1.0_wp, ht_i_new, 'T', 1.0_wp ) 195 #else 193 196 CALL lbc_lnk_multi( 'icethd_do', zvrel, 'T', 1.0_wp, ht_i_new, 'T', 1.0_wp ) 197 #endif 194 198 195 199 ENDIF -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/iceupdate.F90
r13571 r13630 342 342 tmod_io(ji,jj) = zrhoco * SQRT( zmodt ) ! rhoco * |U_ice-U_oce| at T-point 343 343 END_2D 344 #if defined key_mpi3 345 CALL lbc_lnk_nc_multi( 'iceupdate', taum, 'T', 1.0_wp, tmod_io, 'T', 1.0_wp ) 346 #else 344 347 CALL lbc_lnk_multi( 'iceupdate', taum, 'T', 1.0_wp, tmod_io, 'T', 1.0_wp ) 348 #endif 345 349 ! 346 350 utau_oce(:,:) = utau(:,:) !* save the air-ocean stresses at ice time-step … … 371 375 vtau(ji,jj) = ( 1._wp - zat_v ) * vtau_oce(ji,jj) + zat_v * zvtau_ice 372 376 END_2D 377 #if defined key_mpi3 378 CALL lbc_lnk_nc_multi( 'iceupdate', utau, 'U', -1.0_wp, vtau, 'V', -1.0_wp ) ! lateral boundary condition 379 #else 373 380 CALL lbc_lnk_multi( 'iceupdate', utau, 'U', -1.0_wp, vtau, 'V', -1.0_wp ) ! lateral boundary condition 381 #endif 374 382 ! 375 383 IF( ln_timing ) CALL timing_stop('ice_update_tau') -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icewri.F90
r13571 r13630 137 137 z2d(ji,jj) = 0.5_wp * SQRT( z2da * z2da + z2db * z2db ) 138 138 END_2D 139 #if defined key_mpi3 140 CALL lbc_lnk_nc_multi( 'icewri', z2d, 'T', 1.0_wp ) 141 #else 139 142 CALL lbc_lnk( 'icewri', z2d, 'T', 1.0_wp ) 143 #endif 140 144 CALL iom_put( 'icevel', z2d ) 141 145 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/NST/agrif_oce_sponge.F90
r13571 r13630 290 290 291 291 IF( .NOT. spongedoneT .AND. .NOT. spongedoneU ) THEN 292 #if defined key_mpi3 293 CALL lbc_lnk_nc_multi( 'agrif_Sponge', fspu, 'U', 1._wp, fspv, 'V', 1._wp, fspt, 'T', 1._wp, fspf, 'F', 1._wp ) 294 #else 292 295 CALL lbc_lnk_multi( 'agrif_Sponge', fspu, 'U', 1._wp, fspv, 'V', 1._wp, fspt, 'T', 1._wp, fspf, 'F', 1._wp ) 296 #endif 293 297 spongedoneT = .TRUE. 294 298 spongedoneU = .TRUE. 295 299 ENDIF 296 300 IF( .NOT. spongedoneT ) THEN 301 #if defined key_mpi3 302 CALL lbc_lnk_nc_multi( 'agrif_Sponge', fspu, 'U', 1._wp, fspv, 'V', 1._wp ) 303 #else 297 304 CALL lbc_lnk_multi( 'agrif_Sponge', fspu, 'U', 1._wp, fspv, 'V', 1._wp ) 305 #endif 298 306 spongedoneT = .TRUE. 299 307 ENDIF 300 308 IF( .NOT. spongedoneT .AND. .NOT. spongedoneU ) THEN 309 #if defined key_mpi3 310 CALL lbc_lnk_nc_multi( 'agrif_Sponge', fspt, 'T', 1._wp, fspf, 'F', 1._wp ) 311 #else 301 312 CALL lbc_lnk_multi( 'agrif_Sponge', fspt, 'T', 1._wp, fspf, 'F', 1._wp ) 313 #endif 302 314 spongedoneU = .TRUE. 303 315 ENDIF … … 323 335 ztabrampu(:,:) = REAL( mbku_parent(:,:), wp ) 324 336 ztabrampv(:,:) = REAL( mbkv_parent(:,:), wp ) 337 #if defined key_mpi3 338 CALL lbc_lnk_nc_multi( 'Agrif_Sponge', ztabramp, 'T', 1._wp, ztabrampu, 'U', 1._wp, ztabrampv, 'V', 1._wp ) 339 #else 325 340 CALL lbc_lnk_multi( 'Agrif_Sponge', ztabramp, 'T', 1._wp, ztabrampu, 'U', 1._wp, ztabrampv, 'V', 1._wp ) 341 #endif 326 342 mbkt_parent(:,:) = NINT( ztabramp (:,:) ) 327 343 mbku_parent(:,:) = NINT( ztabrampu(:,:) ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/NST/agrif_user.F90
r13571 r13630 99 99 100 100 101 #if defined key_mpi3 102 CALL lbc_lnk_nc_multi( 'agrif_istate', uu(:,:,: ,Kbb), 'U', -1.0_wp , vv(:,:,:,Kbb), 'V', -1.0_wp ) 103 CALL lbc_lnk_nc_multi( 'agrif_istate', ts(:,:,:,:,Kbb), 'T', 1.0_wp ) 104 #else 101 105 CALL lbc_lnk_multi( 'agrif_istate', uu(:,:,: ,Kbb), 'U', -1.0_wp , vv(:,:,:,Kbb), 'V', -1.0_wp ) 102 106 CALL lbc_lnk( 'agrif_istate', ts(:,:,:,:,Kbb), 'T', 1.0_wp ) 107 #endif 103 108 104 109 END SUBROUTINE Agrif_Istate … … 273 278 ENDIF 274 279 ! 280 #if defined key_mpi3 281 CALL lbc_lnk_nc_multi( 'Agrif_Init_Domain', hu0_parent, 'U', 1.0_wp, hv0_parent, 'V', 1.0_wp ) 282 #else 275 283 CALL lbc_lnk_multi( 'Agrif_Init_Domain', hu0_parent, 'U', 1.0_wp, hv0_parent, 'V', 1.0_wp ) 284 #endif 276 285 DO_2D( 0, 0, 0, 0 ) 277 286 zk(ji,jj) = REAL( mbku_parent(ji,jj), wp ) 278 287 END_2D 288 #if defined key_mpi3 289 CALL lbc_lnk_nc_multi( 'Agrif_InitValues_cont', zk, 'U', 1.0_wp ) 290 #else 279 291 CALL lbc_lnk( 'Agrif_InitValues_cont', zk, 'U', 1.0_wp ) 292 #endif 280 293 mbku_parent(:,:) = MAX( NINT( zk(:,:) ), 1 ) 281 294 DO_2D( 0, 0, 0, 0 ) 282 295 zk(ji,jj) = REAL( mbkv_parent(ji,jj), wp ) 283 296 END_2D 297 #if defined key_mpi3 298 CALL lbc_lnk_nc_multi( 'Agrif_InitValues_cont', zk, 'V', 1.0_wp ) 299 #else 284 300 CALL lbc_lnk( 'Agrif_InitValues_cont', zk, 'V', 1.0_wp ) 301 #endif 285 302 mbkv_parent(:,:) = MAX( NINT( zk(:,:) ), 1 ) 286 303 287 304 IF ( ln_init_chfrpar ) THEN 288 305 CALL Agrif_Init_Variable(sshini_id, procname=agrif_initssh) 306 #if defined key_mpi3 307 CALL lbc_lnk_nc_multi( 'Agrif_Init_Domain', ssh(:,:,Kbb), 'T', 1. ) 308 #else 289 309 CALL lbc_lnk( 'Agrif_Init_Domain', ssh(:,:,Kbb), 'T', 1. ) 310 #endif 290 311 DO jk = 1, jpk 291 312 e3t(:,:,jk,Kbb) = e3t_0(:,:,jk) * ( ht_0(:,:) + ssh(:,:,Kbb) ) & -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ASM/asminc.F90
r13295 r13630 421 421 & / e3t(ji,jj,jk,Kmm) 422 422 END_2D 423 #if defined key_mpi3 424 CALL lbc_lnk_nc_multi( 'asminc', zhdiv, 'T', 1.0_wp ) ! lateral boundary cond. (no sign change) 425 #else 423 426 CALL lbc_lnk( 'asminc', zhdiv, 'T', 1.0_wp ) ! lateral boundary cond. (no sign change) 427 #endif 424 428 ! 425 429 DO_2D( 0, 0, 0, 0 ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/BDY/bdydyn2d.F90
r13226 r13630 102 102 END DO 103 103 IF( ANY(llsend2) .OR. ANY(llrecv2) ) THEN ! if need to send/recv in at least one direction 104 #if defined key_mpi3 105 CALL lbc_lnk_nc_multi( 'bdydyn2d', pua2d, 'U', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend2, lrecv=llrecv2 ) 106 #else 104 107 CALL lbc_lnk( 'bdydyn2d', pua2d, 'U', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend2, lrecv=llrecv2 ) 108 #endif 105 109 END IF 106 110 IF( ANY(llsend3) .OR. ANY(llrecv3) ) THEN ! if need to send/recv in at least one direction 111 #if defined key_mpi3 112 CALL lbc_lnk_nc_multi( 'bdydyn2d', pva2d, 'V', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend3, lrecv=llrecv3 ) 113 #else 107 114 CALL lbc_lnk( 'bdydyn2d', pva2d, 'V', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend3, lrecv=llrecv3 ) 115 #endif 108 116 END IF 109 117 ! … … 324 332 IF( nn_hls > 1 .AND. ir == 1 ) CYCLE ! at least 2 halos will be corrected -> no need to correct rim 1 before rim 0 325 333 IF( ANY(llsend1) .OR. ANY(llrecv1) ) THEN ! if need to send/recv in at least one direction 334 #if defined key_mpi3 335 CALL lbc_lnk_nc_multi( 'bdydyn2d', zssh(:,:,1), 'T', 1.0_wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 336 #else 326 337 CALL lbc_lnk( 'bdydyn2d', zssh(:,:,1), 'T', 1.0_wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 338 #endif 327 339 END IF 328 340 END DO -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/BDY/bdydyn3d.F90
r13226 r13630 99 99 ! 100 100 IF( ANY(llsend2) .OR. ANY(llrecv2) ) THEN ! if need to send/recv in at least one direction 101 #if defined key_mpi3 102 CALL lbc_lnk_nc_multi( 'bdydyn2d', puu(:,:,:,Kaa), 'U', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend2, lrecv=llrecv2 ) 103 #else 101 104 CALL lbc_lnk( 'bdydyn2d', puu(:,:,:,Kaa), 'U', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend2, lrecv=llrecv2 ) 105 #endif 102 106 END IF 103 107 IF( ANY(llsend3) .OR. ANY(llrecv3) ) THEN ! if need to send/recv in at least one direction 108 #if defined key_mpi3 109 CALL lbc_lnk_nc_multi( 'bdydyn2d', pvv(:,:,:,Kaa), 'V', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend3, lrecv=llrecv3 ) 110 #else 104 111 CALL lbc_lnk( 'bdydyn2d', pvv(:,:,:,Kaa), 'V', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend3, lrecv=llrecv3 ) 112 #endif 105 113 END IF 106 114 END DO ! ir -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/BDY/bdyice.F90
r13571 r13630 94 94 IF( ANY(llsend1) .OR. ANY(llrecv1) ) THEN ! if need to send/recv in at least one direction 95 95 ! exchange 3d arrays 96 #if defined key_mpi3 97 CALL lbc_lnk_nc_multi('bdyice', a_i , 'T', 1._wp, h_i , 'T', 1._wp, h_s , 'T', 1._wp, oa_i, 'T', 1._wp & 98 & , s_i , 'T', 1._wp, t_su, 'T', 1._wp, v_i , 'T', 1._wp, v_s , 'T', 1._wp, sv_i, 'T', 1._wp & 99 & , a_ip, 'T', 1._wp, v_ip, 'T', 1._wp, v_il, 'T', 1._wp & 100 & , kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 101 ! exchange 4d arrays : third dimension = 1 and then third dimension = jpk 102 CALL lbc_lnk_nc_multi('bdyice', t_s , 'T', 1._wp, e_s , 'T', 1._wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 103 CALL lbc_lnk_nc_multi('bdyice', t_i , 'T', 1._wp, e_i , 'T', 1._wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 104 #else 96 105 CALL lbc_lnk_multi('bdyice', a_i , 'T', 1._wp, h_i , 'T', 1._wp, h_s , 'T', 1._wp, oa_i, 'T', 1._wp & 97 106 & , s_i , 'T', 1._wp, t_su, 'T', 1._wp, v_i , 'T', 1._wp, v_s , 'T', 1._wp, sv_i, 'T', 1._wp & … … 101 110 CALL lbc_lnk_multi('bdyice', t_s , 'T', 1._wp, e_s , 'T', 1._wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 102 111 CALL lbc_lnk_multi('bdyice', t_i , 'T', 1._wp, e_i , 'T', 1._wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 112 #endif 103 113 END IF 104 114 END DO ! ir … … 438 448 END DO 439 449 IF( ANY(llsend2) .OR. ANY(llrecv2) ) THEN ! if need to send/recv in at least one direction 450 #if defined key_mpi3 451 CALL lbc_lnk_nc_multi( 'bdyice', u_ice, 'U', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend2, lrecv=llrecv2 ) 452 #else 440 453 CALL lbc_lnk( 'bdyice', u_ice, 'U', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend2, lrecv=llrecv2 ) 454 #endif 441 455 END IF 442 456 CASE ( 'V' ) … … 452 466 END DO 453 467 IF( ANY(llsend3) .OR. ANY(llrecv3) ) THEN ! if need to send/recv in at least one direction 468 #if defined key_mpi3 469 CALL lbc_lnk_nc_multi( 'bdyice', v_ice, 'V', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend3, lrecv=llrecv3 ) 470 #else 454 471 CALL lbc_lnk( 'bdyice', v_ice, 'V', -1.0_wp, kfillmode=jpfillnothing ,lsend=llsend3, lrecv=llrecv3 ) 472 #endif 455 473 END IF 456 474 END SELECT -
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 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/BDY/bdytra.F90
r13571 r13630 100 100 END DO 101 101 IF( ANY(llsend1) .OR. ANY(llrecv1) ) THEN ! if need to send/recv in at least one direction 102 #if defined key_mpi3 103 CALL lbc_lnk_nc_multi( 'bdytra', pts(:,:,:,jn,Kaa), 'T', 1.0_wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 104 #else 102 105 CALL lbc_lnk( 'bdytra', pts(:,:,:,jn,Kaa), 'T', 1.0_wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 106 #endif 103 107 ENDIF 104 108 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/CRS/crsfld.F90
r13571 r13630 156 156 & + vv(ji,jj ,jk,Kmm)**2 * e1v(ji,jj ) * e3v(ji,jj ,jk,Kmm) ) 157 157 END_3D 158 #if defined key_mpi3 159 CALL lbc_lnk_nc_multi( 'crsfld', z3d, 'T', 1.0_wp ) 160 #else 158 161 CALL lbc_lnk( 'crsfld', z3d, 'T', 1.0_wp ) 162 #endif 159 163 ! 160 164 CALL crs_dom_ope( z3d, 'VOL', 'T', tmask, zt_crs, p_e12=e1e2t, p_e3=ze3t, psgn=1.0_wp ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DIA/diaar5.F90
r13571 r13630 325 325 z2d(ji,jj) = z2d(ji,jj) + puflx(ji,jj,jk) 326 326 END_3D 327 #if defined key_mpi3 328 CALL lbc_lnk_nc_multi( 'diaar5', z2d, 'U', -1.0_wp ) 329 #else 327 330 CALL lbc_lnk( 'diaar5', z2d, 'U', -1.0_wp ) 331 #endif 328 332 IF( cptr == 'adv' ) THEN 329 333 IF( ktra == jp_tem ) CALL iom_put( 'uadv_heattr' , rho0_rcp * z2d ) ! advective heat transport in i-direction … … 339 343 z2d(ji,jj) = z2d(ji,jj) + pvflx(ji,jj,jk) 340 344 END_3D 345 #if defined key_mpi3 346 CALL lbc_lnk_nc_multi( 'diaar5', z2d, 'V', -1.0_wp ) 347 #else 341 348 CALL lbc_lnk( 'diaar5', z2d, 'V', -1.0_wp ) 349 #endif 342 350 IF( cptr == 'adv' ) THEN 343 351 IF( ktra == jp_tem ) CALL iom_put( 'vadv_heattr' , rho0_rcp * z2d ) ! advective heat transport in j-direction -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DIA/diaptr.F90
r13571 r13630 588 588 p_fval(ji,jj) = p_fval(ji,jj-1) + pva(ji,jj) * tmask_i(ji,jj) 589 589 END_2D 590 #if defined key_mpi3 591 CALL lbc_lnk_nc_multi( 'diaptr', p_fval, 'U', -1.0_wp ) 592 #else 590 593 CALL lbc_lnk( 'diaptr', p_fval, 'U', -1.0_wp ) 594 #endif 591 595 END DO 592 596 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DOM/dommsk.F90
r13571 r13630 162 162 & * tmask(ji,jj+1,jk) * tmask(ji+1,jj+1,jk) 163 163 END_3D 164 #if defined key_mpi3 165 CALL lbc_lnk_nc_multi( 'dommsk', umask, 'U', 1.0_wp, vmask, 'V', 1.0_wp, fmask, 'F', 1.0_wp ) ! Lateral boundary conditions 166 #else 164 167 CALL lbc_lnk_multi( 'dommsk', umask, 'U', 1.0_wp, vmask, 'V', 1.0_wp, fmask, 'F', 1.0_wp ) ! Lateral boundary conditions 168 #endif 165 169 166 170 ! Ocean/land mask at wu-, wv- and w points (computed from tmask) … … 219 223 END DO 220 224 ! 225 #if defined key_mpi3 226 CALL lbc_lnk_nc_multi( 'dommsk', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 227 #else 221 228 CALL lbc_lnk( 'dommsk', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 229 #endif 222 230 ! 223 231 ! CAUTION : The fmask may be further modified in dyn_vor_init ( dynvor.F90 ) depending on ln_vorlat -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DOM/domqco.F90
r13295 r13630 163 163 ! 164 164 IF( .NOT.PRESENT( pr3f ) ) THEN !- lbc on ratio at u-, v-points only 165 #if defined key_mpi3 166 CALL lbc_lnk_nc_multi( 'dom_qco_r3c', pr3u, 'U', 1._wp, pr3v, 'V', 1._wp ) 167 #else 165 168 CALL lbc_lnk_multi( 'dom_qco_r3c', pr3u, 'U', 1._wp, pr3v, 'V', 1._wp ) 169 #endif 166 170 ! 167 171 ! … … 182 186 ENDIF 183 187 ! ! lbc on ratio at u-,v-,f-points 188 #if defined key_mpi3 189 CALL lbc_lnk_nc_multi( 'dom_qco_r3c', pr3u, 'U', 1._wp, pr3v, 'V', 1._wp, pr3f, 'F', 1._wp ) 190 #else 184 191 CALL lbc_lnk_multi( 'dom_qco_r3c', pr3u, 'U', 1._wp, pr3v, 'V', 1._wp, pr3f, 'F', 1._wp ) 192 #endif 185 193 ! 186 194 ENDIF -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DOM/domvvl.F90
r13571 r13630 439 439 ! ! d - thickness diffusion transport: boundary conditions 440 440 ! (stored for tracer advction and continuity equation) 441 #if defined key_mpi3 442 CALL lbc_lnk_nc_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 443 #else 441 444 CALL lbc_lnk_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 442 445 #endif 443 446 ! 4 - Time stepping of baroclinic scale factors 444 447 ! --------------------------------------------- 448 #if defined key_mpi3 449 CALL lbc_lnk_nc_multi( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 450 #else 445 451 CALL lbc_lnk( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 452 #endif 446 453 tilde_e3t_a(:,:,:) = tilde_e3t_b(:,:,:) + rDt * tmask(:,:,:) * tilde_e3t_a(:,:,:) 447 454 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DOM/domwri.F90
r13295 r13630 229 229 END DO 230 230 END DO 231 #if defined key_mpi3 232 CALL lbc_lnk_nc_multi( 'domwri', zx1, 'T', 1.0_wp ) 233 #else 231 234 CALL lbc_lnk( 'domwri', zx1, 'T', 1.0_wp ) 235 #endif 232 236 ! 233 237 IF( PRESENT( px1 ) ) px1 = zx1 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DOM/domzgr.F90
r13295 r13630 125 125 zmsk(:,mj0(jpjglo-nn_hls):mj1(jpjglo-nn_hls) ) = 0._wp ! last line of inner global domain at 0 126 126 ENDIF 127 #if defined key_mpi3 128 CALL lbc_lnk_nc_multi( 'usrdef_zgr', zmsk, 'T', 1. ) ! set halos 129 #else 127 130 CALL lbc_lnk( 'usrdef_zgr', zmsk, 'T', 1. ) ! set halos 131 #endif 128 132 k_top(:,:) = k_top(:,:) * NINT( zmsk(:,:) ) 129 133 ! … … 340 344 END_2D 341 345 ! converte into REAL to use lbc_lnk ; impose a min value of 1 as a zero can be set in lbclnk 346 #if defined key_mpi3 347 zk(:,:) = REAL( miku(:,:), wp ) ; CALL lbc_lnk_nc_multi( 'domzgr', zk, 'U', 1.0_wp ) ; miku(:,:) = MAX( NINT( zk(:,:) ), 1 ) 348 zk(:,:) = REAL( mikv(:,:), wp ) ; CALL lbc_lnk_nc_multi( 'domzgr', zk, 'V', 1.0_wp ) ; mikv(:,:) = MAX( NINT( zk(:,:) ), 1 ) 349 zk(:,:) = REAL( mikf(:,:), wp ) ; CALL lbc_lnk_nc_multi( 'domzgr', zk, 'F', 1.0_wp ) ; mikf(:,:) = MAX( NINT( zk(:,:) ), 1 ) 350 ! 351 zk(:,:) = REAL( mbku(:,:), wp ) ; CALL lbc_lnk_nc_multi( 'domzgr', zk, 'U', 1.0_wp ) ; mbku(:,:) = MAX( NINT( zk(:,:) ), 1 ) 352 zk(:,:) = REAL( mbkv(:,:), wp ) ; CALL lbc_lnk_nc_multi( 'domzgr', zk, 'V', 1.0_wp ) ; mbkv(:,:) = MAX( NINT( zk(:,:) ), 1 ) 353 #else 342 354 zk(:,:) = REAL( miku(:,:), wp ) ; CALL lbc_lnk( 'domzgr', zk, 'U', 1.0_wp ) ; miku(:,:) = MAX( NINT( zk(:,:) ), 1 ) 343 355 zk(:,:) = REAL( mikv(:,:), wp ) ; CALL lbc_lnk( 'domzgr', zk, 'V', 1.0_wp ) ; mikv(:,:) = MAX( NINT( zk(:,:) ), 1 ) … … 346 358 zk(:,:) = REAL( mbku(:,:), wp ) ; CALL lbc_lnk( 'domzgr', zk, 'U', 1.0_wp ) ; mbku(:,:) = MAX( NINT( zk(:,:) ), 1 ) 347 359 zk(:,:) = REAL( mbkv(:,:), wp ) ; CALL lbc_lnk( 'domzgr', zk, 'V', 1.0_wp ) ; mbkv(:,:) = MAX( NINT( zk(:,:) ), 1 ) 360 #endif 348 361 ! 349 362 END SUBROUTINE zgr_top_bot -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/divhor.F90
r13571 r13630 94 94 IF( ln_isf ) CALL isf_hdiv( kt, Kmm, hdiv ) !== ice shelf ==! (update hdiv field) 95 95 ! 96 #if defined key_mpi3 97 CALL lbc_lnk_nc_multi( 'divhor', hdiv, 'T', 1.0_wp ) ! (no sign change) 98 #else 96 99 CALL lbc_lnk( 'divhor', hdiv, 'T', 1.0_wp ) ! (no sign change) 100 #endif 97 101 ! 98 102 IF( ln_timing ) CALL timing_stop('div_hor') -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynhpg.F90
r13295 r13630 448 448 END IF 449 449 END_2D 450 #if defined key_mpi3 451 CALL lbc_lnk_nc_multi( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 452 #else 450 453 CALL lbc_lnk_multi( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 454 #endif 451 455 END IF 452 456 … … 679 683 END IF 680 684 END_2D 685 #if defined key_mpi3 686 CALL lbc_lnk_nc_multi( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 687 #else 681 688 CALL lbc_lnk_multi( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 689 #endif 682 690 END IF 683 691 … … 825 833 826 834 END_3D 835 #if defined key_mpi3 836 CALL lbc_lnk_nc_multi( 'dynhpg', rho_k, 'W', 1.0_wp, rho_i, 'U', 1.0_wp, rho_j, 'V', 1.0_wp ) 837 #else 827 838 CALL lbc_lnk_multi( 'dynhpg', rho_k, 'W', 1.0_wp, rho_i, 'U', 1.0_wp, rho_j, 'V', 1.0_wp ) 839 #endif 828 840 829 841 ! --------------- … … 952 964 ENDIF 953 965 END_2D 966 #if defined key_mpi3 967 CALL lbc_lnk_nc_multi( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 968 #else 954 969 CALL lbc_lnk_multi( 'dynhpg', zcpx, 'U', 1.0_wp, zcpy, 'V', 1.0_wp ) 970 #endif 955 971 ENDIF 956 972 … … 1022 1038 END_2D 1023 1039 1040 #if defined key_mpi3 1041 CALL lbc_lnk_nc_multi ('dynhpg', zsshu_n, 'U', 1.0_wp, zsshv_n, 'V', 1.0_wp ) 1042 #else 1024 1043 CALL lbc_lnk_multi ('dynhpg', zsshu_n, 'U', 1.0_wp, zsshv_n, 'V', 1.0_wp ) 1044 #endif 1025 1045 1026 1046 DO_2D( 0, 0, 0, 0 ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynkeg.F90
r13571 r13630 121 121 zhke(ji,jj,jk) = r1_48 * ( zv + zu ) 122 122 END_3D 123 #if defined key_mpi3 124 CALL lbc_lnk_nc_multi( 'dynkeg', zhke, 'T', 1.0_wp ) 125 #else 123 126 CALL lbc_lnk( 'dynkeg', zhke, 'T', 1.0_wp ) 127 #endif 124 128 ! 125 129 END SELECT -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynldf_iso.F90
r13571 r13630 135 135 END_3D 136 136 ! Lateral boundary conditions on the slopes 137 #if defined key_mpi3 138 CALL lbc_lnk_nc_multi( 'dynldf_iso', uslp , 'U', -1.0_wp, vslp , 'V', -1.0_wp, wslpi, 'W', -1.0_wp, wslpj, 'W', -1.0_wp ) 139 #else 137 140 CALL lbc_lnk_multi( 'dynldf_iso', uslp , 'U', -1.0_wp, vslp , 'V', -1.0_wp, wslpi, 'W', -1.0_wp, wslpj, 'W', -1.0_wp ) 141 #endif 138 142 ! 139 143 ENDIF -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynspg_ts.F90
r13571 r13630 520 520 END_2D 521 521 ! 522 #if defined key_mpi3 523 CALL lbc_lnk_nc_multi( 'dynspg_ts', ssha_e, 'T', 1._wp, zhU, 'U', -1._wp, zhV, 'V', -1._wp ) 524 #else 522 525 CALL lbc_lnk_multi( 'dynspg_ts', ssha_e, 'T', 1._wp, zhU, 'U', -1._wp, zhV, 'V', -1._wp ) 526 #endif 523 527 ! 524 528 ! Duplicate sea level across open boundaries (this is only cosmetic if linssh=T) … … 659 663 ! 660 664 IF( .NOT.ln_linssh ) THEN !* Update ocean depth (variable volume case only) 665 #if defined key_mpi3 666 CALL lbc_lnk_nc_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp & 667 & , hu_e , 'U', 1._wp, hv_e , 'V', 1._wp & 668 & , hur_e, 'U', 1._wp, hvr_e, 'V', 1._wp ) 669 #else 661 670 CALL lbc_lnk_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp & 662 671 & , hu_e , 'U', 1._wp, hv_e , 'V', 1._wp & 663 672 & , hur_e, 'U', 1._wp, hvr_e, 'V', 1._wp ) 673 #endif 664 674 ELSE 675 #if defined key_mpi3 676 CALL lbc_lnk_nc_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp ) 677 #else 665 678 CALL lbc_lnk_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp ) 679 #endif 666 680 ENDIF 667 681 ! ! open boundaries … … 751 765 & + e1e2t(ji,jj+1) * pssh(ji,jj+1,Kaa) ) 752 766 END_2D 767 #if defined key_mpi3 768 CALL lbc_lnk_nc_multi( 'dynspg_ts', zsshu_a, 'U', 1._wp, zsshv_a, 'V', 1._wp ) ! Boundary conditions 769 #else 753 770 CALL lbc_lnk_multi( 'dynspg_ts', zsshu_a, 'U', 1._wp, zsshv_a, 'V', 1._wp ) ! Boundary conditions 771 #endif 754 772 ! 755 773 DO jk=1,jpkm1 … … 1114 1132 END_2D 1115 1133 END SELECT 1134 #if defined key_mpi3 1135 CALL lbc_lnk_nc_multi( 'dynspg_ts', zwz, 'F', 1._wp ) 1136 #else 1116 1137 CALL lbc_lnk( 'dynspg_ts', zwz, 'F', 1._wp ) 1138 #endif 1117 1139 ! 1118 1140 ftne(1,:) = 0._wp ; ftnw(1,:) = 0._wp ; ftse(1,:) = 0._wp ; ftsw(1,:) = 0._wp … … 1176 1198 END DO 1177 1199 END DO 1200 #if defined key_mpi3 1201 CALL lbc_lnk_nc_multi( 'dynspg_ts', zhf, 'F', 1._wp ) 1202 #else 1178 1203 CALL lbc_lnk( 'dynspg_ts', zhf, 'F', 1._wp ) 1204 #endif 1179 1205 ! JC: TBC. hf should be greater than 0 1180 1206 DO_2D( 1, 1, 1, 1 ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynvor.F90
r13571 r13630 242 242 END DO 243 243 244 #if defined key_mpi3 245 CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1.0_wp ) 246 #else 244 247 CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 248 #endif 245 249 246 250 CASE ( np_CRV ) !* Coriolis + relative vorticity … … 257 261 END DO 258 262 263 #if defined key_mpi3 264 CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1.0_wp ) 265 #else 259 266 CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp ) 267 #endif 260 268 261 269 END SELECT … … 823 831 END_3D 824 832 ! 833 #if defined key_mpi3 834 CALL lbc_lnk_nc_multi( 'dynvor', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 835 #else 825 836 CALL lbc_lnk( 'dynvor', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 837 #endif 826 838 ! 827 839 ENDIF … … 861 873 dj_e1v_2(ji,jj) = ( e1v(ji,jj) - e1v(ji ,jj-1) ) * 0.5_wp 862 874 END_2D 875 #if defined key_mpi3 876 CALL lbc_lnk_nc_multi( 'dynvor', di_e2u_2, 'T', -1.0_wp , dj_e1v_2, 'T', -1.0_wp ) ! Lateral boundary conditions 877 #else 863 878 CALL lbc_lnk_multi( 'dynvor', di_e2u_2, 'T', -1.0_wp , dj_e1v_2, 'T', -1.0_wp ) ! Lateral boundary conditions 879 #endif 864 880 ! 865 881 CASE DEFAULT !* F-point metric term : pre-compute di(e2u)/(2*e1e2f) and dj(e1v)/(2*e1e2f) … … 869 885 dj_e1u_2e1e2f(ji,jj) = ( e1u(ji ,jj+1) - e1u(ji,jj) ) * 0.5 * r1_e1e2f(ji,jj) 870 886 END_2D 887 #if defined key_mpi3 888 CALL lbc_lnk_nc_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1.0_wp , dj_e1u_2e1e2f, 'F', -1.0_wp ) ! Lateral boundary conditions 889 #else 871 890 CALL lbc_lnk_multi( 'dynvor', di_e2v_2e1e2f, 'F', -1.0_wp , dj_e1u_2e1e2f, 'F', -1.0_wp ) ! Lateral boundary conditions 891 #endif 872 892 END SELECT 873 893 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/sshwzv.F90
r13571 r13630 119 119 IF ( .NOT.ln_dynspg_ts ) THEN 120 120 IF( ln_bdy ) THEN 121 #if defined key_mpi3 122 CALL lbc_lnk_nc_multi( 'sshwzv', pssh(:,:,Kaa), 'T', 1.0_wp ) ! Not sure that's necessary 123 #else 121 124 CALL lbc_lnk( 'sshwzv', pssh(:,:,Kaa), 'T', 1.0_wp ) ! Not sure that's necessary 125 #endif 122 126 CALL bdy_ssh( pssh(:,:,Kaa) ) ! Duplicate sea level across open boundaries 123 127 ENDIF … … 182 186 END_2D 183 187 END DO 188 #if defined key_mpi3 189 CALL lbc_lnk_nc_multi('sshwzv', zhdiv, 'T', 1.0_wp) ! - ML - Perhaps not necessary: not used for horizontal "connexions" 190 #else 184 191 CALL lbc_lnk('sshwzv', zhdiv, 'T', 1.0_wp) ! - ML - Perhaps not necessary: not used for horizontal "connexions" 192 #endif 185 193 ! ! Is it problematic to have a wrong vertical velocity in boundary cells? 186 194 ! ! Same question holds for hdiv. Perhaps just for security … … 388 396 END_3D 389 397 ENDIF 398 #if defined key_mpi3 399 CALL lbc_lnk_nc_multi( 'sshwzv', Cu_adv, 'T', 1.0_wp ) 400 #else 390 401 CALL lbc_lnk( 'sshwzv', Cu_adv, 'T', 1.0_wp ) 402 #endif 391 403 ! 392 404 CALL iom_put("Courant",Cu_adv) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/wet_dry.F90
r13571 r13630 241 241 ENDIF 242 242 END_2D 243 #if defined key_mpi3 244 CALL lbc_lnk_nc_multi( 'wet_dry', zwdlmtu, 'U', 1.0_wp, zwdlmtv, 'V', 1.0_wp ) 245 #else 243 246 CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1.0_wp, zwdlmtv, 'V', 1.0_wp ) 247 #endif 244 248 ! 245 249 CALL mpp_max('wet_dry', jflag) !max over the global domain … … 257 261 ! 258 262 !!gm TO BE SUPPRESSED ? these lbc_lnk are useless since zwdlmtu and zwdlmtv are defined everywhere ! 263 #if defined key_mpi3 264 CALL lbc_lnk_nc_multi( 'wet_dry', puu(:,:,:,Kmm) , 'U', -1.0_wp, pvv(:,:,:,Kmm) , 'V', -1.0_wp ) 265 CALL lbc_lnk_nc_multi( 'wet_dry', uu_b(:,:,Kmm), 'U', -1.0_wp, vv_b(:,:,Kmm), 'V', -1.0_wp ) 266 #else 259 267 CALL lbc_lnk_multi( 'wet_dry', puu(:,:,:,Kmm) , 'U', -1.0_wp, pvv(:,:,:,Kmm) , 'V', -1.0_wp ) 260 268 CALL lbc_lnk_multi( 'wet_dry', uu_b(:,:,Kmm), 'U', -1.0_wp, vv_b(:,:,Kmm), 'V', -1.0_wp ) 269 #endif 261 270 !!gm 262 271 ! … … 366 375 END_2D 367 376 ! 377 #if defined key_mpi3 378 CALL lbc_lnk_nc_multi( 'wet_dry', zwdlmtu, 'U', 1.0_wp, zwdlmtv, 'V', 1.0_wp ) 379 #else 368 380 CALL lbc_lnk_multi( 'wet_dry', zwdlmtu, 'U', 1.0_wp, zwdlmtv, 'V', 1.0_wp ) 381 #endif 369 382 ! 370 383 CALL mpp_max('wet_dry', jflag) !max over the global domain … … 378 391 ! 379 392 !!gm THIS lbc_lnk is useless since it is already done at the end of the jk1-loop 393 #if defined key_mpi3 394 CALL lbc_lnk_nc_multi( 'wet_dry', zflxu, 'U', -1.0_wp, zflxv, 'V', -1.0_wp ) 395 #else 380 396 CALL lbc_lnk_multi( 'wet_dry', zflxu, 'U', -1.0_wp, zflxv, 'V', -1.0_wp ) 397 #endif 381 398 !!gm end 382 399 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ICB/icbclv.F90
r13295 r13630 173 173 ! 174 174 DO jn = 1, nclasses 175 #if defined key_mpi3 176 CALL lbc_lnk_nc_multi( 'icbclv', berg_grid%stored_ice(:,:,jn), 'T', 1._wp ) 177 #else 175 178 CALL lbc_lnk( 'icbclv', berg_grid%stored_ice(:,:,jn), 'T', 1._wp ) 179 #endif 176 180 END DO 181 #if defined key_mpi3 182 CALL lbc_lnk_nc_multi( 'icbclv', berg_grid%stored_heat, 'T', 1._wp ) 183 #else 177 184 CALL lbc_lnk( 'icbclv', berg_grid%stored_heat, 'T', 1._wp ) 185 #endif 178 186 ! 179 187 IF( nn_verbose_level > 0 .AND. icntmax > 1 ) WRITE(numicb,*) 'icb_clv: icnt=', icnt,' on', narea -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ICB/icbini.F90
r13295 r13630 127 127 src_calving (ji,jj) = nicbpack * mjg(jj) + mig(ji) 128 128 END_2D 129 #if defined key_mpi3 130 CALL lbc_lnk_nc_multi( 'icbini', src_calving_hflx, 'T', 1._wp ) 131 CALL lbc_lnk_nc_multi( 'icbini', src_calving , 'T', 1._wp ) 132 #else 129 133 CALL lbc_lnk( 'icbini', src_calving_hflx, 'T', 1._wp ) 130 134 CALL lbc_lnk( 'icbini', src_calving , 'T', 1._wp ) 135 #endif 131 136 132 137 ! work out interior of processor from exchange array -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/IOM/iom.F90
r13571 r13630 1380 1380 !some final adjustments 1381 1381 ! C1D case : always call lbc_lnk to replicate the central value over the whole 3X3 domain 1382 #if defined key_mpi3 1383 IF( lk_c1d .AND. PRESENT(pv_r2d) ) CALL lbc_lnk_nc_multi( 'iom', pv_r2d,'Z',1.0_wp ) 1384 IF( lk_c1d .AND. PRESENT(pv_r3d) ) CALL lbc_lnk_nc_multi( 'iom', pv_r3d,'Z',1.0_wp ) 1385 #else 1382 1386 IF( lk_c1d .AND. PRESENT(pv_r2d) ) CALL lbc_lnk( 'iom', pv_r2d,'Z',1.0_wp ) 1383 1387 IF( lk_c1d .AND. PRESENT(pv_r3d) ) CALL lbc_lnk( 'iom', pv_r3d,'Z',1.0_wp ) 1388 #endif 1384 1389 1385 1390 !--- Apply scale_factor and offset … … 2256 2261 ! 2257 2262 z_fld(:,:) = 1._wp 2263 #if defined key_mpi3 2264 CALL lbc_lnk_nc_multi( 'iom', z_fld, cdgrd, -1.0_wp ) ! Working array for location of northfold 2265 #else 2258 2266 CALL lbc_lnk( 'iom', z_fld, cdgrd, -1.0_wp ) ! Working array for location of northfold 2267 #endif 2259 2268 ! 2260 2269 ! Cell vertices that can be defined -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ISF/isfcav.F90
r13226 r13630 136 136 ! 137 137 ! lbclnk on melt 138 #if defined key_mpi3 139 CALL lbc_lnk_nc_multi( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp) 140 #else 138 141 CALL lbc_lnk_multi( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp) 142 #endif 139 143 ! 140 144 ! output fluxes -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ISF/isfcpl.F90
r13295 r13630 212 212 zssmask0(:,:) = zssmask_b(:,:) 213 213 ! 214 #if defined key_mpi3 215 CALL lbc_lnk_nc_multi( 'iscplrst', zssh, 'T', 1.0_wp, zssmask0, 'T', 1.0_wp ) 216 #else 214 217 CALL lbc_lnk_multi( 'iscplrst', zssh, 'T', 1.0_wp, zssmask0, 'T', 1.0_wp ) 218 #endif 215 219 ! 216 220 END DO … … 367 371 ztmask0(:,:,:) = ztmask1(:,:,:) 368 372 ! 373 #if defined key_mpi3 374 CALL lbc_lnk_nc_multi( 'iscplrst', zts0(:,:,:,jp_tem), 'T', 1.0_wp, zts0(:,:,:,jp_sal), 'T', 1.0_wp, ztmask0, 'T', 1.0_wp) 375 #else 369 376 CALL lbc_lnk_multi( 'iscplrst', zts0(:,:,:,jp_tem), 'T', 1.0_wp, zts0(:,:,:,jp_sal), 'T', 1.0_wp, ztmask0, 'T', 1.0_wp) 377 #endif 370 378 ! 371 379 END DO ! nn_drown … … 458 466 END_2D 459 467 ! 468 #if defined key_mpi3 469 CALL lbc_lnk_nc_multi( 'iscpl', risfcpl_vol, 'T', 1.0_wp ) 470 #else 460 471 CALL lbc_lnk( 'iscpl', risfcpl_vol, 'T', 1.0_wp ) 472 #endif 461 473 ! 462 474 ! 3.0: set total correction (div, tr(:,:,:,:,Krhs), ssh) … … 693 705 ! 694 706 ! add lbclnk 707 #if defined key_mpi3 708 CALL lbc_lnk_nc_multi( 'iscplrst', risfcpl_cons_tsc(:,:,:,jp_tem), 'T', 1.0_wp, risfcpl_cons_tsc(:,:,:,jp_sal), 'T', 1.0_wp, & 709 & risfcpl_cons_vol(:,:,:) , 'T', 1.0_wp) 710 #else 695 711 CALL lbc_lnk_multi( 'iscplrst', risfcpl_cons_tsc(:,:,:,jp_tem), 'T', 1.0_wp, risfcpl_cons_tsc(:,:,:,jp_sal), 'T', 1.0_wp, & 696 712 & risfcpl_cons_vol(:,:,:) , 'T', 1.0_wp) 713 #endif 697 714 ! 698 715 ! ssh correction (for dynspg_ts) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ISF/isfpar.F90
r13226 r13630 82 82 ! 83 83 ! lbclnk on melt and heat fluxes 84 #if defined key_mpi3 85 CALL lbc_lnk_nc_multi( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp) 86 #else 84 87 CALL lbc_lnk_multi( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp) 88 #endif 85 89 ! 86 90 ! output fluxes -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/LBC/halo_mng.F90
r13286 r13630 92 92 zpta = pta(offset+1 : offset+jpi, offset+1 : offset+jpj) 93 93 END IF 94 #if defined key_mpi3 95 CALL lbc_lnk_nc_multi( 'halo_mng_resize_2D', zpta, cdna, psgn, pfillval=fillval) 96 #else 94 97 CALL lbc_lnk( 'halo_mng_resize_2D', zpta, cdna, psgn, pfillval=fillval) 98 #endif 95 99 DEALLOCATE(pta) 96 100 pta => zpta … … 122 126 zpta = pta(offset+1 : offset+jpi, offset+1 : offset+jpj, :) 123 127 END IF 128 #if defined key_mpi3 129 CALL lbc_lnk_nc_multi( 'halo_mng_resize_3D', zpta, cdna, psgn, pfillval=fillval) 130 #else 124 131 CALL lbc_lnk( 'halo_mng_resize_3D', zpta, cdna, psgn, pfillval=fillval) 132 #endif 125 133 DEALLOCATE(pta) 126 134 pta => zpta … … 153 161 zpta = pta(offset+1 : offset+jpi, offset+1 : offset+jpj, :, :) 154 162 END IF 163 #if defined key_mpi3 164 CALL lbc_lnk_nc_multi( 'halo_mng_resize_4D', zpta(:,:,:,fjpt), cdna, psgn, pfillval=fillval) 165 #else 155 166 CALL lbc_lnk( 'halo_mng_resize_4D', zpta(:,:,:,fjpt), cdna, psgn, pfillval=fillval) 167 #endif 156 168 DEALLOCATE(pta) 157 169 pta => zpta … … 185 197 zpta = pta(offset+1 : offset+jpi, offset+1 : offset+jpj, :, :, :) 186 198 END IF 199 #if defined key_mpi3 200 CALL lbc_lnk_nc_multi( 'halo_mng_resize_5D', zpta(:,:,:,:,fjpt), cdna, psgn, pfillval=fillval) 201 #else 187 202 CALL lbc_lnk( 'halo_mng_resize_5D', zpta(:,:,:,:,fjpt), cdna, psgn, pfillval=fillval) 203 #endif 188 204 DEALLOCATE(pta) 189 205 pta => zpta -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/LBC/lbc_lnk_nc_generic.h90
r13561 r13630 36 36 37 37 SUBROUTINE ROUTINE_MULTI_NC( cdname & 38 & , pt1, cdna1, psgn1, pt2 , cdna2 , psgn2 , pt3 , cdna3 , psgn3 , pt4, cdna4, psgn4 & 39 & , pt5, cdna5, psgn5, pt6 , cdna6 , psgn6 , pt7 , cdna7 , psgn7 , pt8, cdna8, psgn8 & 40 & , pt9, cdna9, psgn9, pt10, cdna10, psgn10, pt11, cdna11, psgn11 & 38 & , pt1 , cdna1 , psgn1 , pt2 , cdna2 , psgn2 , pt3 , cdna3 , psgn3 , pt4 , cdna4 , psgn4 & 39 & , pt5 , cdna5 , psgn5 , pt6 , cdna6 , psgn6 , pt7 , cdna7 , psgn7 , pt8 , cdna8 , psgn8 & 40 & , pt9 , cdna9 , psgn9 , pt10, cdna10, psgn10, pt11, cdna11, psgn11, pt12, cdna12, psgn12 & 41 & , pt13, cdna13, psgn13, pt14, cdna14, psgn14, pt15, cdna15, psgn15, pt16, cdna16, psgn16 & 41 42 & , kfillmode, pfillval, lsend, lrecv, ncsten ) 42 43 !!--------------------------------------------------------------------- 43 44 CHARACTER(len=*) , INTENT(in ) :: cdname ! name of the calling subroutine 44 45 ARRAY_TYPE(:,:,:,:) , TARGET, INTENT(inout) :: pt1 ! arrays on which the lbc is applied 45 ARRAY_TYPE(:,:,:,:), OPTIONAL, TARGET, INTENT(inout) :: pt2 , pt3 , pt4 , pt5 , pt6 , pt7 , pt8 , pt9 , pt10 , pt11 46 ARRAY_TYPE(:,:,:,:), OPTIONAL, TARGET, INTENT(inout) :: pt2 , pt3 , pt4 , pt5 , pt6 , pt7 , pt8 , pt9 , & 47 & pt10 , pt11 , pt12 , pt13 , pt14 , pt15 , pt16 46 48 CHARACTER(len=1) , INTENT(in ) :: cdna1 ! nature of pt2D. array grid-points 47 CHARACTER(len=1) , OPTIONAL , INTENT(in ) :: cdna2, cdna3, cdna4, cdna5, cdna6, cdna7, cdna8, cdna9, cdna10, cdna11 49 CHARACTER(len=1) , OPTIONAL , INTENT(in ) :: cdna2, cdna3, cdna4, cdna5, cdna6, cdna7, cdna8, cdna9, & 50 & cdna10, cdna11, cdna12, cdna13, cdna14, cdna15, cdna16 48 51 REAL(wp) , INTENT(in ) :: psgn1 ! sign used across the north fold 49 REAL(wp) , OPTIONAL , INTENT(in ) :: psgn2, psgn3, psgn4, psgn5, psgn6, psgn7, psgn8, psgn9, psgn10, psgn11 52 REAL(wp) , OPTIONAL , INTENT(in ) :: psgn2, psgn3, psgn4, psgn5, psgn6, psgn7, psgn8, psgn9, & 53 & psgn10, psgn11, psgn12, psgn13, psgn14, psgn15, psgn16 50 54 INTEGER , OPTIONAL , INTENT(in ) :: kfillmode ! filling method for halo over land (default = constant) 51 55 REAL(wp) , OPTIONAL , INTENT(in ) :: pfillval ! background value (used at closed boundaries) … … 75 79 IF( PRESENT(psgn10) ) CALL ROUTINE_NC_LOAD( pt10, cdna10, psgn10, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) 76 80 IF( PRESENT(psgn11) ) CALL ROUTINE_NC_LOAD( pt11, cdna11, psgn11, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) 81 IF( PRESENT(psgn11) ) CALL ROUTINE_NC_LOAD( pt12, cdna12, psgn12, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) 82 IF( PRESENT(psgn11) ) CALL ROUTINE_NC_LOAD( pt13, cdna13, psgn13, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) 83 IF( PRESENT(psgn11) ) CALL ROUTINE_NC_LOAD( pt14, cdna14, psgn14, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) 84 IF( PRESENT(psgn11) ) CALL ROUTINE_NC_LOAD( pt15, cdna15, psgn15, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) 85 IF( PRESENT(psgn11) ) CALL ROUTINE_NC_LOAD( pt16, cdna16, psgn16, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) 77 86 ! 78 87 CALL lbc_lnk_nc ( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, lsend, lrecv, ncsten ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/LDF/ldfc1d_c2d.F90
r13571 r13630 85 85 pah2(ji,jj,jk) = pahs2(ji,jj) * ( zratio + zc * ( 1._wp + TANH( - ( zdep2 - zh ) * zw) ) ) 86 86 END_3D 87 #if defined key_mpi3 88 CALL lbc_lnk_nc_multi( 'ldfc1d_c2d', pah2, 'F', 1.0_wp ) ! Lateral boundary conditions 89 #else 87 90 CALL lbc_lnk( 'ldfc1d_c2d', pah2, 'F', 1.0_wp ) ! Lateral boundary conditions 91 #endif 88 92 ! 89 93 CASE( 'TRA' ) ! U- and V-points (zdep1 & 2 are an approximation in zps-coord.) … … 95 99 END_3D 96 100 ! Lateral boundary conditions 101 #if defined key_mpi3 102 CALL lbc_lnk_nc_multi( 'ldfc1d_c2d', pah1, 'U', 1.0_wp , pah2, 'V', 1.0_wp ) 103 #else 97 104 CALL lbc_lnk_multi( 'ldfc1d_c2d', pah1, 'U', 1.0_wp , pah2, 'V', 1.0_wp ) 105 #endif 98 106 ! 99 107 CASE DEFAULT ! error -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/LDF/ldfdyn.F90
r13571 r13630 398 398 ENDIF 399 399 ! 400 #if defined key_mpi3 401 CALL lbc_lnk_nc_multi( 'ldfdyn', ahmt, 'T', 1.0_wp, ahmf, 'F', 1.0_wp ) 402 #else 400 403 CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1.0_wp, ahmf, 'F', 1.0_wp ) 404 #endif 401 405 ! 402 406 ! … … 430 434 END DO 431 435 ! 436 #if defined key_mpi3 437 CALL lbc_lnk_nc_multi( 'ldfdyn', dtensq, 'T', 1.0_wp ) ! lbc_lnk on dshesq not needed 438 #else 432 439 CALL lbc_lnk_multi( 'ldfdyn', dtensq, 'T', 1.0_wp ) ! lbc_lnk on dshesq not needed 440 #endif 433 441 ! 434 442 DO jk = 1, jpkm1 … … 481 489 ENDIF 482 490 ! 491 #if defined key_mpi3 492 CALL lbc_lnk_nc_multi( 'ldfdyn', ahmt, 'T', 1.0_wp , ahmf, 'F', 1.0_wp ) 493 #else 483 494 CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1.0_wp , ahmf, 'F', 1.0_wp ) 495 #endif 484 496 ! 485 497 END SELECT -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/LDF/ldfslp.F90
r13571 r13630 348 348 ! IV. Lateral boundary conditions 349 349 ! =============================== 350 #if defined key_mpi3 351 CALL lbc_lnk_nc_multi( 'ldfslp', uslp , 'U', -1.0_wp , vslp , 'V', -1.0_wp , wslpi, 'W', -1.0_wp, wslpj, 'W', -1.0_wp ) 352 #else 350 353 CALL lbc_lnk_multi( 'ldfslp', uslp , 'U', -1.0_wp , vslp , 'V', -1.0_wp , wslpi, 'W', -1.0_wp, wslpj, 'W', -1.0_wp ) 354 #endif 351 355 352 356 IF(sn_cfctl%l_prtctl) THEN … … 580 584 wslp2(:,:,1) = 0._wp ! force the surface wslp to zero 581 585 586 #if defined key_mpi3 587 CALL lbc_lnk_nc_multi( 'ldfslp', wslp2, 'W', 1.0_wp ) ! lateral boundary confition on wslp2 only ==>>> gm : necessary ? to be checked 588 #else 582 589 CALL lbc_lnk( 'ldfslp', wslp2, 'W', 1.0_wp ) ! lateral boundary confition on wslp2 only ==>>> gm : necessary ? to be checked 590 #endif 583 591 ! 584 592 IF( ln_timing ) CALL timing_stop('ldf_slp_triad') … … 689 697 END_2D 690 698 !!gm this lbc_lnk should be useless.... 699 #if defined key_mpi3 700 CALL lbc_lnk_nc_multi( 'ldfslp', uslpml , 'U', -1.0_wp , vslpml , 'V', -1.0_wp , wslpiml, 'W', -1.0_wp , wslpjml, 'W', -1.0_wp ) 701 #else 691 702 CALL lbc_lnk_multi( 'ldfslp', uslpml , 'U', -1.0_wp , vslpml , 'V', -1.0_wp , wslpiml, 'W', -1.0_wp , wslpjml, 'W', -1.0_wp ) 703 #endif 692 704 ! 693 705 END SUBROUTINE ldf_slp_mxl -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/LDF/ldftra.F90
r13571 r13630 691 691 zaeiw(ji,jj) = MIN( zzaei , paei0 ) ! Max value = paei0 692 692 END_2D 693 #if defined key_mpi3 694 CALL lbc_lnk_nc_multi( 'ldftra', zaeiw(:,:), 'W', 1.0_wp ) ! lateral boundary condition 695 #else 693 696 CALL lbc_lnk( 'ldftra', zaeiw(:,:), 'W', 1.0_wp ) ! lateral boundary condition 697 #endif 694 698 ! 695 699 DO_2D( 0, 0, 0, 0 ) !== aei at u- and v-points ==! … … 697 701 paeiv(ji,jj,1) = 0.5_wp * ( zaeiw(ji,jj) + zaeiw(ji ,jj+1) ) * vmask(ji,jj,1) 698 702 END_2D 703 #if defined key_mpi3 704 CALL lbc_lnk_nc_multi( 'ldftra', paeiu(:,:,1), 'U', 1.0_wp , paeiv(:,:,1), 'V', 1.0_wp ) ! lateral boundary condition 705 #else 699 706 CALL lbc_lnk_multi( 'ldftra', paeiu(:,:,1), 'U', 1.0_wp , paeiv(:,:,1), 'V', 1.0_wp ) ! lateral boundary condition 707 #endif 700 708 701 709 DO jk = 2, jpkm1 !== deeper values equal the surface one ==! … … 793 801 !!gm to be redesigned.... 794 802 ! !== eiv stream function: output ==! 803 #if defined key_mpi3 804 CALL lbc_lnk_nc_multi( 'ldftra', psi_uw, 'U', -1.0_wp , psi_vw, 'V', -1.0_wp ) 805 #else 795 806 CALL lbc_lnk_multi( 'ldftra', psi_uw, 'U', -1.0_wp , psi_vw, 'V', -1.0_wp ) 807 #endif 796 808 ! 797 809 !!gm CALL iom_put( "psi_eiv_uw", psi_uw ) ! output … … 816 828 & + psi_uw(ji,jj,jk) - psi_uw(ji-1,jj ,jk) ) / e1e2t(ji,jj) 817 829 END_3D 830 #if defined key_mpi3 831 CALL lbc_lnk_nc_multi( 'ldftra', zw3d, 'T', 1.0_wp ) ! lateral boundary condition 832 #else 818 833 CALL lbc_lnk( 'ldftra', zw3d, 'T', 1.0_wp ) ! lateral boundary condition 834 #endif 819 835 CALL iom_put( "woce_eiv", zw3d ) 820 836 ! … … 844 860 zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk) 845 861 END_3D 862 #if defined key_mpi3 863 CALL lbc_lnk_nc_multi( 'ldftra', zw2d, 'U', -1.0_wp ) 864 CALL lbc_lnk_nc_multi( 'ldftra', zw3d, 'U', -1.0_wp ) 865 #else 846 866 CALL lbc_lnk( 'ldftra', zw2d, 'U', -1.0_wp ) 847 867 CALL lbc_lnk( 'ldftra', zw3d, 'U', -1.0_wp ) 868 #endif 848 869 CALL iom_put( "ueiv_heattr" , zztmp * zw2d ) ! heat transport in i-direction 849 870 CALL iom_put( "ueiv_heattr3d", zztmp * zw3d ) ! heat transport in i-direction … … 865 886 zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk) 866 887 END_3D 888 #if defined key_mpi3 889 CALL lbc_lnk_nc_multi( 'ldftra', zw2d, 'V', -1.0_wp ) 890 #else 867 891 CALL lbc_lnk( 'ldftra', zw2d, 'V', -1.0_wp ) 892 #endif 868 893 CALL iom_put( "veiv_heattr", zztmp * zw2d ) ! heat transport in j-direction 869 894 CALL iom_put( "veiv_heattr", zztmp * zw3d ) ! heat transport in j-direction … … 880 905 zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk) 881 906 END_3D 907 #if defined key_mpi3 908 CALL lbc_lnk_nc_multi( 'ldftra', zw2d, 'U', -1.0_wp ) 909 CALL lbc_lnk_nc_multi( 'ldftra', zw3d, 'U', -1.0_wp ) 910 #else 882 911 CALL lbc_lnk( 'ldftra', zw2d, 'U', -1.0_wp ) 883 912 CALL lbc_lnk( 'ldftra', zw3d, 'U', -1.0_wp ) 913 #endif 884 914 CALL iom_put( "ueiv_salttr", zztmp * zw2d ) ! salt transport in i-direction 885 915 CALL iom_put( "ueiv_salttr3d", zztmp * zw3d ) ! salt transport in i-direction … … 892 922 zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk) 893 923 END_3D 924 #if defined key_mpi3 925 CALL lbc_lnk_nc_multi( 'ldftra', zw2d, 'V', -1.0_wp ) 926 #else 894 927 CALL lbc_lnk( 'ldftra', zw2d, 'V', -1.0_wp ) 928 #endif 895 929 CALL iom_put( "veiv_salttr", zztmp * zw2d ) ! salt transport in j-direction 896 930 CALL iom_put( "veiv_salttr", zztmp * zw3d ) ! salt transport in j-direction -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/cpl_oasis3.F90
r13571 r13630 418 418 !--- we must call lbc_lnk to fill the halos that where not received. 419 419 IF( .NOT. ll_1st ) THEN 420 #if defined key_mpi3 421 CALL lbc_lnk_nc_multi( 'cpl_oasis3', pdata(:,:,jc), srcv(kid)%clgrid, srcv(kid)%nsgn ) 422 #else 420 423 CALL lbc_lnk( 'cpl_oasis3', pdata(:,:,jc), srcv(kid)%clgrid, srcv(kid)%nsgn ) 424 #endif 421 425 ENDIF 422 426 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/sbc_oce.F90
r13571 r13630 224 224 wndm(ji,jj) = SQRT ( ztau * zcoef ) * tmask(ji,jj,1) 225 225 END_2D 226 #if defined key_mpi3 227 CALL lbc_lnk_nc_multi( 'sbc_oce', wndm(:,:) , 'T', 1.0_wp ) 228 #else 226 229 CALL lbc_lnk( 'sbc_oce', wndm(:,:) , 'T', 1.0_wp ) 230 #endif 227 231 ! 228 232 END SUBROUTINE sbc_tau2wnd -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/sbcblk.F90
r13571 r13630 757 757 758 758 IF( ln_crt_fbk ) THEN 759 #if defined key_mpi3 760 CALL lbc_lnk_nc_multi( 'sbcblk', utau, 'U', -1., vtau, 'V', -1., taum, 'T', -1. ) 761 #else 759 762 CALL lbc_lnk_multi( 'sbcblk', utau, 'U', -1., vtau, 'V', -1., taum, 'T', -1. ) 763 #endif 760 764 ELSE 765 #if defined key_mpi3 766 CALL lbc_lnk_nc_multi( 'sbcblk', utau, 'U', -1., vtau, 'V', -1. ) 767 #else 761 768 CALL lbc_lnk_multi( 'sbcblk', utau, 'U', -1., vtau, 'V', -1. ) 769 #endif 762 770 ENDIF 763 771 … … 981 989 pvtaui(ji,jj) = zztmp2 * ( pvtaui(ji,jj) + pvtaui(ji ,jj+1) ) 982 990 END_2D 991 #if defined key_mpi3 992 CALL lbc_lnk_nc_multi( 'sbcblk', putaui, 'U', -1._wp, pvtaui, 'V', -1._wp ) 993 #else 983 994 CALL lbc_lnk_multi( 'sbcblk', putaui, 'U', -1._wp, pvtaui, 'V', -1._wp ) 995 #endif 984 996 ! 985 997 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab2d_1=putaui , clinfo1=' blk_ice: putaui : ' & … … 1459 1471 ! 1460 1472 END_2D 1473 #if defined key_mpi3 1474 CALL lbc_lnk_nc_multi( 'sbcblk', pcd, 'T', 1.0_wp, pch, 'T', 1.0_wp ) 1475 #else 1461 1476 CALL lbc_lnk_multi( 'sbcblk', pcd, 'T', 1.0_wp, pch, 'T', 1.0_wp ) 1477 #endif 1462 1478 ! 1463 1479 END SUBROUTINE Cdn10_Lupkes2015 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/sbccpl.F90
r13571 r13630 1199 1199 frcv(jpr_oty1)%z3(ji,jj,1) = 0.5 * ( frcv(jpr_oty1)%z3(ji ,jj+1,1) + frcv(jpr_oty1)%z3(ji,jj,1) ) 1200 1200 END_2D 1201 #if defined key_mpi3 1202 CALL lbc_lnk_nc_multi( 'sbccpl', frcv(jpr_otx1)%z3(:,:,1), 'U', -1.0_wp, frcv(jpr_oty1)%z3(:,:,1), 'V', -1.0_wp ) 1203 #else 1201 1204 CALL lbc_lnk_multi( 'sbccpl', frcv(jpr_otx1)%z3(:,:,1), 'U', -1.0_wp, frcv(jpr_oty1)%z3(:,:,1), 'V', -1.0_wp ) 1205 #endif 1202 1206 ENDIF 1203 1207 llnewtx = .TRUE. … … 1224 1228 frcv(jpr_taum)%z3(ji,jj,1) = 0.5 * SQRT( zzx * zzx + zzy * zzy ) 1225 1229 END_2D 1230 #if defined key_mpi3 1231 CALL lbc_lnk_nc_multi( 'sbccpl', frcv(jpr_taum)%z3(:,:,1), 'T', 1.0_wp ) 1232 #else 1226 1233 CALL lbc_lnk( 'sbccpl', frcv(jpr_taum)%z3(:,:,1), 'T', 1.0_wp ) 1234 #endif 1227 1235 llnewtau = .TRUE. 1228 1236 ELSE … … 1593 1601 p_tauj(ji,jj) = zztmp2 * ( frcv(jpr_ity1)%z3(ji ,jj+1,1) + frcv(jpr_ity1)%z3(ji,jj,1) ) 1594 1602 END_2D 1603 #if defined key_mpi3 1604 CALL lbc_lnk_nc_multi( 'sbccpl', p_taui, 'U', -1., p_tauj, 'V', -1. ) 1605 #else 1595 1606 CALL lbc_lnk_multi( 'sbccpl', p_taui, 'U', -1., p_tauj, 'V', -1. ) 1607 #endif 1596 1608 END SELECT 1597 1609 … … 2483 2495 zity1(ji,jj) = 0.5 * ( v_ice(ji,jj ) + v_ice(ji ,jj-1 ) ) * fr_i(ji,jj) 2484 2496 END_2D 2497 #if defined key_mpi3 2498 CALL lbc_lnk_nc_multi( 'sbccpl', zitx1, 'T', -1.0_wp, zity1, 'T', -1.0_wp ) 2499 #else 2485 2500 CALL lbc_lnk_multi( 'sbccpl', zitx1, 'T', -1.0_wp, zity1, 'T', -1.0_wp ) 2501 #endif 2486 2502 CASE( 'mixed oce-ice' ) ! Ocean and Ice on C-grid ==> T 2487 2503 DO_2D( 0, 0, 0, 0 ) … … 2492 2508 END_2D 2493 2509 END SELECT 2510 #if defined key_mpi3 2511 CALL lbc_lnk_nc_multi( 'sbccpl', zotx1, ssnd(jps_ocx1)%clgrid, -1.0_wp, zoty1, ssnd(jps_ocy1)%clgrid, -1.0_wp ) 2512 #else 2494 2513 CALL lbc_lnk_multi( 'sbccpl', zotx1, ssnd(jps_ocx1)%clgrid, -1.0_wp, zoty1, ssnd(jps_ocy1)%clgrid, -1.0_wp ) 2514 #endif 2495 2515 ! 2496 2516 ENDIF … … 2560 2580 zity1(ji,jj) = 0.5 * ( v_ice(ji,jj ) + v_ice(ji ,jj-1 ) ) * fr_i(ji,jj) 2561 2581 END_2D 2582 #if defined key_mpi3 2583 CALL lbc_lnk_nc_multi( 'sbccpl', zitx1, 'T', -1.0_wp, zity1, 'T', -1.0_wp ) 2584 #else 2562 2585 CALL lbc_lnk_multi( 'sbccpl', zitx1, 'T', -1.0_wp, zity1, 'T', -1.0_wp ) 2586 #endif 2563 2587 CASE( 'mixed oce-ice' ) ! Ocean and Ice on C-grid ==> T 2564 2588 DO_2D( 0, 0, 0, 0 ) … … 2569 2593 END_2D 2570 2594 END SELECT 2595 #if defined key_mpi3 2596 CALL lbc_lnk_nc_multi( 'sbccpl', zotx1, ssnd(jps_ocxw)%clgrid, -1.0_wp, zoty1, ssnd(jps_ocyw)%clgrid, -1.0_wp ) 2597 #else 2571 2598 CALL lbc_lnk_multi( 'sbccpl', zotx1, ssnd(jps_ocxw)%clgrid, -1.0_wp, zoty1, ssnd(jps_ocyw)%clgrid, -1.0_wp ) 2599 #endif 2572 2600 ! 2573 2601 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/sbcflx.F90
r13571 r13630 145 145 ! 146 146 ! clem: without these lbc calls, it seems that the northfold is not ok (true in 3.6, not sure in 4.x) 147 #if defined key_mpi3 148 CALL lbc_lnk_nc_multi( 'sbcflx', utau, 'U', -1._wp, vtau, 'V', -1._wp, & 149 & qns, 'T', 1._wp, emp , 'T', 1._wp, qsr, 'T', 1._wp ) !! sfx, 'T', 1._wp ) 150 #else 147 151 CALL lbc_lnk_multi( 'sbcflx', utau, 'U', -1._wp, vtau, 'V', -1._wp, & 148 152 & qns, 'T', 1._wp, emp , 'T', 1._wp, qsr, 'T', 1._wp ) !! sfx, 'T', 1._wp ) 153 #endif 149 154 ! 150 155 IF( nitend-nit000 <= 100 .AND. lwp ) THEN ! control print (if less than 100 time-step asked) … … 172 177 END_2D 173 178 ! 179 #if defined key_mpi3 180 CALL lbc_lnk_nc_multi( 'sbcflx', taum, 'T', 1._wp, wndm, 'T', 1._wp ) 181 #else 174 182 CALL lbc_lnk_multi( 'sbcflx', taum, 'T', 1._wp, wndm, 'T', 1._wp ) 183 #endif 175 184 ! 176 185 END SUBROUTINE sbc_flx -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/sbcfwb.F90
r13286 r13630 180 180 ! 181 181 !!gm ===>>>> lbc_lnk should be useless as all the computation is done over the whole domain ! 182 #if defined key_mpi3 183 CALL lbc_lnk_nc_multi( 'sbcfwb', zerp_cor, 'T', 1.0_wp ) 184 #else 182 185 CALL lbc_lnk( 'sbcfwb', zerp_cor, 'T', 1.0_wp ) 186 #endif 183 187 ! 184 188 emp(:,:) = emp(:,:) + zerp_cor(:,:) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/sbcice_cice.F90
r13295 r13630 222 222 END_2D 223 223 224 #if defined key_mpi3 225 CALL lbc_lnk_nc_multi( 'sbcice_cice', fr_iu , 'U', 1.0_wp, fr_iv , 'V', 1.0_wp ) 226 #else 224 227 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1.0_wp, fr_iv , 'V', 1.0_wp ) 228 #endif 225 229 226 230 ! set the snow+ice mass … … 506 510 ss_iou(ji,jj) = 0.5 * ( ztmp1(ji,jj-1) + ztmp1(ji,jj) ) * umask(ji,jj,1) 507 511 END_2D 512 #if defined key_mpi3 513 CALL lbc_lnk_nc_multi( 'sbcice_cice', ss_iou , 'U', -1.0_wp ) 514 #else 508 515 CALL lbc_lnk( 'sbcice_cice', ss_iou , 'U', -1.0_wp ) 516 #endif 509 517 510 518 ! y comp of ocean-ice stress … … 516 524 ss_iov(ji,jj) = 0.5 * ( ztmp1(ji-1,jj) + ztmp1(ji,jj) ) * vmask(ji,jj,1) 517 525 END_2D 526 #if defined key_mpi3 527 CALL lbc_lnk_nc_multi( 'sbcice_cice', ss_iov , 'V', -1.0_wp ) 528 #else 518 529 CALL lbc_lnk( 'sbcice_cice', ss_iov , 'V', -1.0_wp ) 530 #endif 519 531 520 532 ! x and y comps of surface stress … … 569 581 fmmflx(:,:) = ztmp1(:,:) !!Joakim edit 570 582 583 #if defined key_mpi3 584 CALL lbc_lnk_nc_multi( 'sbcice_cice', emp , 'T', 1.0_wp, sfx , 'T', 1.0_wp ) 585 #else 571 586 CALL lbc_lnk_multi( 'sbcice_cice', emp , 'T', 1.0_wp, sfx , 'T', 1.0_wp ) 587 #endif 572 588 573 589 ! Solar penetrative radiation and non solar surface heat flux … … 595 611 #endif 596 612 qsr(:,:)=qsr(:,:)+ztmp1(:,:) 613 #if defined key_mpi3 614 CALL lbc_lnk_nc_multi( 'sbcice_cice', qsr , 'T', 1.0_wp ) 615 #else 597 616 CALL lbc_lnk( 'sbcice_cice', qsr , 'T', 1.0_wp ) 617 #endif 598 618 599 619 DO_2D( 1, 1, 1, 1 ) … … 608 628 qns(:,:)=qns(:,:)+nfrzmlt(:,:)+ztmp1(:,:) 609 629 630 #if defined key_mpi3 631 CALL lbc_lnk_nc_multi( 'sbcice_cice', qns , 'T', 1.0_wp ) 632 #else 610 633 CALL lbc_lnk( 'sbcice_cice', qns , 'T', 1.0_wp ) 634 #endif 611 635 612 636 ! Prepare for the following CICE time-step … … 626 650 END_2D 627 651 652 #if defined key_mpi3 653 CALL lbc_lnk_nc_multi( 'sbcice_cice', fr_iu , 'U', 1.0_wp, fr_iv , 'V', 1.0_wp ) 654 #else 628 655 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1.0_wp, fr_iv , 'V', 1.0_wp ) 656 #endif 629 657 630 658 ! set the snow+ice mass … … 848 876 ! A. Ensure all haloes are filled in NEMO field (pn) 849 877 878 #if defined key_mpi3 879 CALL lbc_lnk_nc_multi( 'sbcice_cice', pn , cd_type, psgn ) 880 #else 850 881 CALL lbc_lnk( 'sbcice_cice', pn , cd_type, psgn ) 882 #endif 851 883 852 884 #if defined key_nemocice_decomp … … 1023 1055 ! D. Ensure all haloes are filled in pn 1024 1056 1057 #if defined key_mpi3 1058 CALL lbc_lnk_nc_multi( 'sbcice_cice', pn , cd_type, psgn ) 1059 #else 1025 1060 CALL lbc_lnk( 'sbcice_cice', pn , cd_type, psgn ) 1061 #endif 1026 1062 1027 1063 END SUBROUTINE cice2nemo -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/sbcmod.F90
r13571 r13630 464 464 ! A lbc_lnk is therefore needed to ensure reproducibility and restartability. 465 465 ! see ticket #2113 for discussion about this lbc_lnk. 466 #if defined key_mpi3 467 IF( .NOT. ln_passive_mode ) CALL lbc_lnk_nc_multi( 'sbcmod', emp, 'T', 1.0_wp ) ! ensure restartability with icebergs 468 #else 466 469 IF( .NOT. ln_passive_mode ) CALL lbc_lnk( 'sbcmod', emp, 'T', 1.0_wp ) ! ensure restartability with icebergs 470 #endif 467 471 ENDIF 468 472 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/SBC/sbcwave.F90
r13571 r13630 212 212 END_3D 213 213 ! 214 #if defined key_mpi3 215 CALL lbc_lnk_nc_multi( 'sbcwave', ze3divh, 'T', 1.0_wp ) 216 #else 214 217 CALL lbc_lnk( 'sbcwave', ze3divh, 'T', 1.0_wp ) 218 #endif 215 219 ! 216 220 IF( ln_linssh ) THEN ; ik = 1 ! none zero velocity through the sea surface … … 271 275 taum(ji,jj) = SQRT( tauw_x(ji,jj)*tauw_x(ji,jj) + tauw_y(ji,jj)*tauw_y(ji,jj) ) 272 276 END_2D 277 #if defined key_mpi3 278 CALL lbc_lnk_nc_multi( 'sbcwave', utau(:,:), 'U', -1.0_wp , vtau(:,:), 'V', -1.0_wp , taum(:,:) , 'T', -1.0_wp ) 279 #else 273 280 CALL lbc_lnk_multi( 'sbcwave', utau(:,:), 'U', -1.0_wp , vtau(:,:), 'V', -1.0_wp , taum(:,:) , 'T', -1.0_wp ) 281 #endif 274 282 ENDIF 275 283 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/STO/stopar.F90
r13295 r13630 174 174 ! Apply horizontal Laplacian filter to w 175 175 DO jflt = 1, sto2d_flt(jsto) 176 #if defined key_mpi3 177 CALL lbc_lnk_nc_multi( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 178 #else 176 179 CALL lbc_lnk( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 180 #endif 177 181 CALL sto_par_flt( sto2d(:,:,jsto) ) 178 182 END DO … … 197 201 198 202 ! Lateral boundary conditions on sto2d 203 #if defined key_mpi3 204 CALL lbc_lnk_nc_multi( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 205 #else 199 206 CALL lbc_lnk( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 207 #endif 200 208 END DO 201 209 ! … … 212 220 ! Apply horizontal Laplacian filter to w 213 221 DO jflt = 1, sto3d_flt(jsto) 222 #if defined key_mpi3 223 CALL lbc_lnk_nc_multi( 'stopar', sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 224 #else 214 225 CALL lbc_lnk( 'stopar', sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 226 #endif 215 227 CALL sto_par_flt( sto3d(:,:,jk,jsto) ) 216 228 END DO … … 235 247 END DO 236 248 ! Lateral boundary conditions on sto3d 249 #if defined key_mpi3 250 CALL lbc_lnk_nc_multi( 'stopar', sto3d(:,:,:,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 251 #else 237 252 CALL lbc_lnk( 'stopar', sto3d(:,:,:,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 253 #endif 238 254 END DO 239 255 ! … … 642 658 ! Apply horizontal Laplacian filter to w 643 659 DO jflt = 1, sto2d_flt(jsto) 660 #if defined key_mpi3 661 CALL lbc_lnk_nc_multi( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 662 #else 644 663 CALL lbc_lnk( 'stopar', sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 664 #endif 645 665 CALL sto_par_flt( sto2d(:,:,jsto) ) 646 666 END DO … … 659 679 ! Apply horizontal Laplacian filter to w 660 680 DO jflt = 1, sto3d_flt(jsto) 681 #if defined key_mpi3 682 CALL lbc_lnk_nc_multi( 'stopar', sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 683 #else 661 684 CALL lbc_lnk( 'stopar', sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 685 #endif 662 686 CALL sto_par_flt( sto3d(:,:,jk,jsto) ) 663 687 END DO -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/STO/stopts.F90
r13295 r13630 54 54 55 55 DO jts = 1, jpts 56 #if defined key_mpi3 57 CALL lbc_lnk_nc_multi( 'stopts', pts(:,:,:,jts), 'T' , 1._wp ) 58 #else 56 59 CALL lbc_lnk( 'stopts', pts(:,:,:,jts), 'T' , 1._wp ) 60 #endif 57 61 ENDDO 58 62 … … 119 123 DO jdof = 1, nn_sto_eos 120 124 DO jts = 1, jpts 125 #if defined key_mpi3 126 CALL lbc_lnk_nc_multi( 'stopts', pts_ran(:,:,:,jts,jdof), 'T' , 1._wp ) 127 #else 121 128 CALL lbc_lnk( 'stopts', pts_ran(:,:,:,jts,jdof), 'T' , 1._wp ) 129 #endif 122 130 END DO 123 131 END DO -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/traadv_cen.F90
r13571 r13630 116 116 ztv(ji,jj,jk) = ( pt(ji ,jj+1,jk,jn,Kmm) - pt(ji,jj,jk,jn,Kmm) ) * vmask(ji,jj,jk) 117 117 END_3D 118 #if defined key_mpi3 119 CALL lbc_lnk_nc_multi( 'traadv_cen', ztu, 'U', -1.0_wp , ztv, 'V', -1.0_wp ) ! Lateral boundary cond. 120 #else 118 121 CALL lbc_lnk_multi( 'traadv_cen', ztu, 'U', -1.0_wp , ztv, 'V', -1.0_wp ) ! Lateral boundary cond. 122 #endif 119 123 ! 120 124 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) ! Horizontal advective fluxes … … 128 132 zwy(ji,jj,jk) = 0.5_wp * pV(ji,jj,jk) * zC4t_v 129 133 END_3D 134 #if defined key_mpi3 135 CALL lbc_lnk_nc_multi( 'traadv_cen', zwx, 'U', -1. , zwy, 'V', -1. ) 136 #else 130 137 CALL lbc_lnk_multi( 'traadv_cen', zwx, 'U', -1. , zwy, 'V', -1. ) 138 #endif 131 139 ! 132 140 CASE DEFAULT -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/traadv_mus.F90
r13571 r13630 137 137 END_3D 138 138 ! lateral boundary conditions (changed sign) 139 #if defined key_mpi3 140 CALL lbc_lnk_nc_multi( 'traadv_mus', zwx, 'U', -1.0_wp , zwy, 'V', -1.0_wp ) 141 #else 139 142 CALL lbc_lnk_multi( 'traadv_mus', zwx, 'U', -1.0_wp , zwy, 'V', -1.0_wp ) 143 #endif 140 144 ! !-- Slopes of tracer 141 145 zslpx(:,:,jpk) = 0._wp ! bottom values … … 173 177 zwy(ji,jj,jk) = pV(ji,jj,jk) * ( zalpha * zzwx + (1.-zalpha) * zzwy ) 174 178 END_3D 179 #if defined key_mpi3 180 CALL lbc_lnk_nc_multi( 'traadv_mus', zwx, 'U', -1.0_wp , zwy, 'V', -1.0_wp ) ! lateral boundary conditions (changed sign) 181 #else 175 182 CALL lbc_lnk_multi( 'traadv_mus', zwx, 'U', -1.0_wp , zwy, 'V', -1.0_wp ) ! lateral boundary conditions (changed sign) 183 #endif 176 184 ! 177 185 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) !-- Tracer advective trend -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/traadv_qck.F90
r13571 r13630 146 146 zfd(ji,jj,jk) = pt(ji+1,jj,jk,jn,Kbb) ! Downstream in the x-direction for the tracer 147 147 END_3D 148 #if defined key_mpi3 149 CALL lbc_lnk_nc_multi( 'traadv_qck', zfc(:,:,:), 'T', 1.0_wp , zfd(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 150 #else 148 151 CALL lbc_lnk_multi( 'traadv_qck', zfc(:,:,:), 'T', 1.0_wp , zfd(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 152 #endif 149 153 150 154 ! … … 164 168 END_3D 165 169 !--- Lateral boundary conditions 170 #if defined key_mpi3 171 CALL lbc_lnk_nc_multi( 'traadv_qck', zfu(:,:,:), 'T', 1.0_wp , zfd(:,:,:), 'T', 1.0_wp, zfc(:,:,:), 'T', 1.0_wp, zwx(:,:,:), 'T', 1.0_wp ) 172 #else 166 173 CALL lbc_lnk_multi( 'traadv_qck', zfu(:,:,:), 'T', 1.0_wp , zfd(:,:,:), 'T', 1.0_wp, zfc(:,:,:), 'T', 1.0_wp, zwx(:,:,:), 'T', 1.0_wp ) 174 #endif 167 175 168 176 !--- QUICKEST scheme … … 173 181 zfu(ji,jj,jk) = tmask(ji-1,jj,jk) + tmask(ji,jj,jk) + tmask(ji+1,jj,jk) - 2. 174 182 END_3D 183 #if defined key_mpi3 184 CALL lbc_lnk_nc_multi( 'traadv_qck', zfu(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 185 #else 175 186 CALL lbc_lnk( 'traadv_qck', zfu(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 187 #endif 176 188 177 189 ! … … 189 201 END DO 190 202 ! 203 #if defined key_mpi3 204 CALL lbc_lnk_nc_multi( 'traadv_qck', zwx(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 205 #else 191 206 CALL lbc_lnk( 'traadv_qck', zwx(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 207 #endif 192 208 ! 193 209 ! Computation of the trend … … 240 256 END_2D 241 257 END DO 258 #if defined key_mpi3 259 CALL lbc_lnk_nc_multi( 'traadv_qck', zfc(:,:,:), 'T', 1.0_wp , zfd(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 260 #else 242 261 CALL lbc_lnk_multi( 'traadv_qck', zfc(:,:,:), 'T', 1.0_wp , zfd(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 262 #endif 243 263 244 264 … … 261 281 262 282 !--- Lateral boundary conditions 283 #if defined key_mpi3 284 CALL lbc_lnk_nc_multi( 'traadv_qck', zfu(:,:,:), 'T', 1.0_wp , zfd(:,:,:), 'T', 1.0_wp, zfc(:,:,:), 'T', 1.0_wp, zwy(:,:,:), 'T', 1.0_wp ) 285 #else 263 286 CALL lbc_lnk_multi( 'traadv_qck', zfu(:,:,:), 'T', 1.0_wp , zfd(:,:,:), 'T', 1.0_wp, zfc(:,:,:), 'T', 1.0_wp, zwy(:,:,:), 'T', 1.0_wp ) 287 #endif 264 288 265 289 !--- QUICKEST scheme … … 270 294 zfu(ji,jj,jk) = tmask(ji,jj-1,jk) + tmask(ji,jj,jk) + tmask(ji,jj+1,jk) - 2. 271 295 END_3D 296 #if defined key_mpi3 297 CALL lbc_lnk_nc_multi( 'traadv_qck', zfu(:,:,:), 'T', 1.0_wp ) !--- Lateral boundary conditions 298 #else 272 299 CALL lbc_lnk( 'traadv_qck', zfu(:,:,:), 'T', 1.0_wp ) !--- Lateral boundary conditions 300 #endif 273 301 ! 274 302 ! Tracer flux on the x-direction … … 285 313 END DO 286 314 ! 315 #if defined key_mpi3 316 CALL lbc_lnk_nc_multi( 'traadv_qck', zwy(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 317 #else 287 318 CALL lbc_lnk( 'traadv_qck', zwy(:,:,:), 'T', 1.0_wp ) ! Lateral boundary conditions 319 #endif 288 320 ! 289 321 ! Computation of the trend -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/traadv_ubs.F90
r13571 r13630 138 138 ! 139 139 END DO 140 #if defined key_mpi3 141 CALL lbc_lnk_nc_multi( 'traadv_ubs', zltu, 'T', 1.0_wp ) ; CALL lbc_lnk_nc_multi( 'traadv_ubs', zltv, 'T', 1.0_wp ) ! Lateral boundary cond. (unchanged sgn) 142 #else 140 143 CALL lbc_lnk( 'traadv_ubs', zltu, 'T', 1.0_wp ) ; CALL lbc_lnk( 'traadv_ubs', zltv, 'T', 1.0_wp ) ! Lateral boundary cond. (unchanged sgn) 144 #endif 141 145 ! 142 146 DO_3D( 1, 0, 1, 0, 1, jpkm1 ) !== Horizontal advective fluxes ==! (UBS) … … 209 213 zti(ji,jj,jk) = ( pt(ji,jj,jk,jn,Kbb) + p2dt * ( ztak + zltu(ji,jj,jk) ) ) * tmask(ji,jj,jk) 210 214 END_3D 215 #if defined key_mpi3 216 CALL lbc_lnk_nc_multi( 'traadv_ubs', zti, 'T', 1.0_wp ) ! Lateral boundary conditions on zti, zsi (unchanged sign) 217 #else 211 218 CALL lbc_lnk( 'traadv_ubs', zti, 'T', 1.0_wp ) ! Lateral boundary conditions on zti, zsi (unchanged sign) 219 #endif 212 220 ! 213 221 ! !* anti-diffusive flux : high order minus low order -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/traatf_qco.F90
r13295 r13630 149 149 ENDIF 150 150 ! 151 #if defined key_mpi3 152 CALL lbc_lnk_nc_multi( 'traatfqco', pts(:,:,:,jp_tem,Kbb) , 'T', 1., pts(:,:,:,jp_sal,Kbb) , 'T', 1., & 153 & pts(:,:,:,jp_tem,Kmm) , 'T', 1., pts(:,:,:,jp_sal,Kmm) , 'T', 1., & 154 & pts(:,:,:,jp_tem,Kaa), 'T', 1., pts(:,:,:,jp_sal,Kaa), 'T', 1. ) 155 #else 151 156 CALL lbc_lnk_multi( 'traatfqco', pts(:,:,:,jp_tem,Kbb) , 'T', 1., pts(:,:,:,jp_sal,Kbb) , 'T', 1., & 152 157 & pts(:,:,:,jp_tem,Kmm) , 'T', 1., pts(:,:,:,jp_sal,Kmm) , 'T', 1., & 153 158 & pts(:,:,:,jp_tem,Kaa), 'T', 1., pts(:,:,:,jp_sal,Kaa), 'T', 1. ) 159 #endif 154 160 ! 155 161 ENDIF -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/trabbc.F90
r13295 r13630 96 96 END_2D 97 97 ! 98 #if defined key_mpi3 99 CALL lbc_lnk_nc_multi( 'trabbc', pts(:,:,:,jp_tem,Krhs) , 'T', 1.0_wp ) 100 #else 98 101 CALL lbc_lnk( 'trabbc', pts(:,:,:,jp_tem,Krhs) , 'T', 1.0_wp ) 102 #endif 99 103 ! 100 104 IF( l_trdtra ) THEN ! Send the trend for diagnostics -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/trabbl.F90
r13571 r13630 126 126 & tab3d_2=pts(:,:,:,jp_sal,Krhs), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 127 127 ! lateral boundary conditions ; just need for outputs 128 #if defined key_mpi3 129 CALL lbc_lnk_nc_multi( 'trabbl', ahu_bbl, 'U', 1.0_wp , ahv_bbl, 'V', 1.0_wp ) 130 #else 128 131 CALL lbc_lnk_multi( 'trabbl', ahu_bbl, 'U', 1.0_wp , ahv_bbl, 'V', 1.0_wp ) 132 #endif 129 133 CALL iom_put( "ahu_bbl", ahu_bbl ) ! bbl diffusive flux i-coef 130 134 CALL iom_put( "ahv_bbl", ahv_bbl ) ! bbl diffusive flux j-coef … … 139 143 & tab3d_2=pts(:,:,:,jp_sal,Krhs), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 140 144 ! lateral boundary conditions ; just need for outputs 145 #if defined key_mpi3 146 CALL lbc_lnk_nc_multi( 'trabbl', utr_bbl, 'U', 1.0_wp , vtr_bbl, 'V', 1.0_wp ) 147 #else 141 148 CALL lbc_lnk_multi( 'trabbl', utr_bbl, 'U', 1.0_wp , vtr_bbl, 'V', 1.0_wp ) 149 #endif 142 150 CALL iom_put( "uoce_bbl", utr_bbl ) ! bbl i-transport 143 151 CALL iom_put( "voce_bbl", vtr_bbl ) ! bbl j-transport … … 517 525 ! converte into REAL to use lbc_lnk ; impose a min value of 1 as a zero can be set in lbclnk 518 526 zmbku(:,:) = REAL( mbku_d(:,:), wp ) ; zmbkv(:,:) = REAL( mbkv_d(:,:), wp ) 527 #if defined key_mpi3 528 CALL lbc_lnk_nc_multi( 'trabbl', zmbku,'U',1.0_wp, zmbkv,'V',1.0_wp) 529 #else 519 530 CALL lbc_lnk_multi( 'trabbl', zmbku,'U',1.0_wp, zmbkv,'V',1.0_wp) 531 #endif 520 532 mbku_d(:,:) = MAX( INT( zmbku(:,:) ), 1 ) ; mbkv_d(:,:) = MAX( NINT( zmbkv(:,:) ), 1 ) 521 533 ! … … 536 548 e3v_bbl_0(ji,jj) = MIN( e3v_0(ji,jj,mbkt(ji ,jj+1)), e3v_0(ji,jj,mbkt(ji,jj)) ) 537 549 END_2D 550 #if defined key_mpi3 551 CALL lbc_lnk_nc_multi( 'trabbl', e3u_bbl_0, 'U', 1.0_wp , e3v_bbl_0, 'V', 1.0_wp ) ! lateral boundary conditions 552 #else 538 553 CALL lbc_lnk_multi( 'trabbl', e3u_bbl_0, 'U', 1.0_wp , e3v_bbl_0, 'V', 1.0_wp ) ! lateral boundary conditions 554 #endif 539 555 ! 540 556 ! !* masked diffusive flux coefficients -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/traldf_lap_blp.F90
r13571 r13630 200 200 END SELECT 201 201 ! 202 #if defined key_mpi3 203 CALL lbc_lnk_nc_multi( 'traldf_lap_blp', zlap(:,:,:,:) , 'T', 1.0_wp ) ! Lateral boundary conditions (unchanged sign) 204 #else 202 205 CALL lbc_lnk( 'traldf_lap_blp', zlap(:,:,:,:) , 'T', 1.0_wp ) ! Lateral boundary conditions (unchanged sign) 206 #endif 203 207 ! ! Partial top/bottom cell: GRADh( zlap ) 204 208 IF( ln_isfcav .AND. ln_zps ) THEN ; CALL zps_hde_isf( kt, Kmm, kjpt, zlap, zglu, zglv, zgui, zgvi ) ! both top & bottom -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/tramle.F90
r13571 r13630 289 289 rfv(ji,jj) = SQRT( zfv * zfv + z1_t2 ) 290 290 END_2D 291 #if defined key_mpi3 292 CALL lbc_lnk_nc_multi( 'tramle', rfu, 'U', 1.0_wp , rfv, 'V', 1.0_wp ) 293 #else 291 294 CALL lbc_lnk_multi( 'tramle', rfu, 'U', 1.0_wp , rfv, 'V', 1.0_wp ) 295 #endif 292 296 ! 293 297 ELSEIF( nn_mle == 1 ) THEN ! MLE array allocation & initialisation -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/tranpc.F90
r13571 r13630 310 310 ENDIF 311 311 ! 312 #if defined key_mpi3 313 CALL lbc_lnk_nc_multi( 'tranpc', pts(:,:,:,jp_tem,Kaa), 'T', 1.0_wp, pts(:,:,:,jp_sal,Kaa), 'T', 1.0_wp ) 314 #else 312 315 CALL lbc_lnk_multi( 'tranpc', pts(:,:,:,jp_tem,Kaa), 'T', 1.0_wp, pts(:,:,:,jp_sal,Kaa), 'T', 1.0_wp ) 316 #endif 313 317 ! 314 318 IF( lwp .AND. l_LB_debug ) THEN -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/traqsr.F90
r13571 r13630 279 279 ENDIF 280 280 END_2D 281 #if defined key_mpi3 282 CALL lbc_lnk_nc_multi( 'traqsr', fraqsr_1lev(:,:), 'T', 1._wp ) 283 #else 281 284 CALL lbc_lnk( 'traqsr', fraqsr_1lev(:,:), 'T', 1._wp ) 285 #endif 282 286 ! 283 287 IF( iom_use('qsr3d') ) THEN ! output the shortwave Radiation distribution -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/trazdf.F90
r13571 r13630 95 95 END DO 96 96 !!gm this should be moved in trdtra.F90 and done on all trends 97 #if defined key_mpi3 98 CALL lbc_lnk_nc_multi( 'trazdf', ztrdt, 'T', 1.0_wp , ztrds, 'T', 1.0_wp ) 99 #else 97 100 CALL lbc_lnk_multi( 'trazdf', ztrdt, 'T', 1.0_wp , ztrds, 'T', 1.0_wp ) 101 #endif 98 102 !!gm 99 103 CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_zdf, ztrdt ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRA/zpshde.F90
r13571 r13630 146 146 END DO 147 147 ! 148 #if defined key_mpi3 149 CALL lbc_lnk_nc_multi( 'zpshde', pgtu(:,:,:), 'U', -1.0_wp , pgtv(:,:,:), 'V', -1.0_wp ) ! Lateral boundary cond. 150 #else 148 151 CALL lbc_lnk_multi( 'zpshde', pgtu(:,:,:), 'U', -1.0_wp , pgtv(:,:,:), 'V', -1.0_wp ) ! Lateral boundary cond. 152 #endif 149 153 ! 150 154 IF( PRESENT( prd ) ) THEN !== horizontal derivative of density anomalies (rd) ==! (optional part) … … 179 183 ENDIF 180 184 END_2D 185 #if defined key_mpi3 186 CALL lbc_lnk_nc_multi( 'zpshde', pgru , 'U', -1.0_wp , pgrv , 'V', -1.0_wp ) ! Lateral boundary conditions 187 #else 181 188 CALL lbc_lnk_multi( 'zpshde', pgru , 'U', -1.0_wp , pgrv , 'V', -1.0_wp ) ! Lateral boundary conditions 189 #endif 182 190 ! 183 191 END IF … … 302 310 END DO 303 311 ! 312 #if defined key_mpi3 313 CALL lbc_lnk_nc_multi( 'zpshde', pgtu(:,:,:), 'U', -1.0_wp , pgtv(:,:,:), 'V', -1.0_wp ) ! Lateral boundary cond. 314 #else 304 315 CALL lbc_lnk_multi( 'zpshde', pgtu(:,:,:), 'U', -1.0_wp , pgtv(:,:,:), 'V', -1.0_wp ) ! Lateral boundary cond. 316 #endif 305 317 306 318 ! horizontal derivative of density anomalies (rd) … … 344 356 END_2D 345 357 358 #if defined key_mpi3 359 CALL lbc_lnk_nc_multi( 'zpshde', pgru , 'U', -1.0_wp , pgrv , 'V', -1.0_wp ) ! Lateral boundary conditions 360 #else 346 361 CALL lbc_lnk_multi( 'zpshde', pgru , 'U', -1.0_wp , pgrv , 'V', -1.0_wp ) ! Lateral boundary conditions 362 #endif 347 363 ! 348 364 END IF … … 395 411 ! 396 412 END DO 413 #if defined key_mpi3 414 CALL lbc_lnk_nc_multi( 'zpshde', pgtui(:,:,:), 'U', -1.0_wp , pgtvi(:,:,:), 'V', -1.0_wp ) ! Lateral boundary cond. 415 #else 397 416 CALL lbc_lnk_multi( 'zpshde', pgtui(:,:,:), 'U', -1.0_wp , pgtvi(:,:,:), 'V', -1.0_wp ) ! Lateral boundary cond. 417 #endif 398 418 399 419 IF( PRESENT( prd ) ) THEN !== horizontal derivative of density anomalies (rd) ==! (optional part) … … 434 454 435 455 END_2D 456 #if defined key_mpi3 457 CALL lbc_lnk_nc_multi( 'zpshde', pgrui, 'U', -1.0_wp , pgrvi, 'V', -1.0_wp ) ! Lateral boundary conditions 458 #else 436 459 CALL lbc_lnk_multi( 'zpshde', pgrui, 'U', -1.0_wp , pgrvi, 'V', -1.0_wp ) ! Lateral boundary conditions 460 #endif 437 461 ! 438 462 END IF -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRD/trddyn.F90
r13571 r13630 128 128 z3dy(ji,jj,jk) = vv(ji,jj,jk,Kmm) * ( vv(ji,jj+1,jk,Kmm) - vv(ji,jj-1,jk,Kmm) ) / ( 2._wp * e2v(ji,jj) ) 129 129 END_3D 130 #if defined key_mpi3 131 CALL lbc_lnk_nc_multi( 'trddyn', z3dx, 'U', -1.0_wp, z3dy, 'V', -1.0_wp ) 132 #else 130 133 CALL lbc_lnk_multi( 'trddyn', z3dx, 'U', -1.0_wp, z3dy, 'V', -1.0_wp ) 134 #endif 131 135 CALL iom_put( "utrd_udx", z3dx ) 132 136 CALL iom_put( "vtrd_vdy", z3dy ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRD/trdken.F90
r13295 r13630 90 90 !!---------------------------------------------------------------------- 91 91 ! 92 #if defined key_mpi3 93 CALL lbc_lnk_nc_multi( 'trdken', putrd, 'U', -1.0_wp , pvtrd, 'V', -1.0_wp ) ! lateral boundary conditions 94 #else 92 95 CALL lbc_lnk_multi( 'trdken', putrd, 'U', -1.0_wp , pvtrd, 'V', -1.0_wp ) ! lateral boundary conditions 96 #endif 93 97 ! 94 98 nkstp = kt -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRD/trdmxl.F90
r13571 r13630 472 472 !-- Lateral boundary conditions 473 473 ! ... temperature ... ... salinity ... 474 #if defined key_mpi3 475 CALL lbc_lnk_nc_multi( 'trdmxl', ztmltot , 'T', 1.0_wp, zsmltot , 'T', 1.0_wp, & 476 & ztmlres , 'T', 1.0_wp, zsmlres , 'T', 1.0_wp, & 477 & ztmlatf , 'T', 1.0_wp, zsmlatf , 'T', 1.0_wp ) 478 #else 474 479 CALL lbc_lnk_multi( 'trdmxl', ztmltot , 'T', 1.0_wp, zsmltot , 'T', 1.0_wp, & 475 480 & ztmlres , 'T', 1.0_wp, zsmlres , 'T', 1.0_wp, & 476 481 & ztmlatf , 'T', 1.0_wp, zsmlatf , 'T', 1.0_wp ) 482 #endif 477 483 478 484 … … 523 529 !-- Lateral boundary conditions 524 530 ! ... temperature ... ... salinity ... 531 #if defined key_mpi3 532 CALL lbc_lnk_nc_multi( 'trdmxl', ztmltot2, 'T', 1.0_wp, zsmltot2, 'T', 1.0_wp, & 533 & ztmlres2, 'T', 1.0_wp, zsmlres2, 'T', 1.0_wp ) 534 ! 535 CALL lbc_lnk_nc_multi( 'trdmxl', ztmltrd2(:,:,:), 'T', 1.0_wp, zsmltrd2(:,:,:), 'T', 1.0_wp ) ! / in the NetCDF trends file 536 #else 525 537 CALL lbc_lnk_multi( 'trdmxl', ztmltot2, 'T', 1.0_wp, zsmltot2, 'T', 1.0_wp, & 526 538 & ztmlres2, 'T', 1.0_wp, zsmlres2, 'T', 1.0_wp ) 527 539 ! 528 540 CALL lbc_lnk_multi( 'trdmxl', ztmltrd2(:,:,:), 'T', 1.0_wp, zsmltrd2(:,:,:), 'T', 1.0_wp ) ! / in the NetCDF trends file 541 #endif 529 542 530 543 ! III.3 Time evolution array swap -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/TRD/trdvor.F90
r13571 r13630 162 162 163 163 zudpvor(:,:) = 0._wp ; zvdpvor(:,:) = 0._wp ! Initialisation 164 #if defined key_mpi3 165 CALL lbc_lnk_nc_multi( 'trdvor', putrdvor, 'U', -1.0_wp , pvtrdvor, 'V', -1.0_wp ) ! lateral boundary condition 166 #else 164 167 CALL lbc_lnk_multi( 'trdvor', putrdvor, 'U', -1.0_wp , pvtrdvor, 'V', -1.0_wp ) ! lateral boundary condition 168 #endif 165 169 166 170 … … 251 255 zvdpvor(:,:) = 0._wp 252 256 ! ! lateral boundary condition on input momentum trends 257 #if defined key_mpi3 258 CALL lbc_lnk_nc_multi( 'trdvor', putrdvor, 'U', -1.0_wp , pvtrdvor, 'V', -1.0_wp ) 259 #else 253 260 CALL lbc_lnk_multi( 'trdvor', putrdvor, 'U', -1.0_wp , pvtrdvor, 'V', -1.0_wp ) 261 #endif 254 262 255 263 ! ===================================== … … 400 408 401 409 ! Boundary conditions 410 #if defined key_mpi3 411 CALL lbc_lnk_nc_multi( 'trdvor', vor_avrtot, 'F', 1.0_wp , vor_avrres, 'F', 1.0_wp ) 412 #else 402 413 CALL lbc_lnk_multi( 'trdvor', vor_avrtot, 'F', 1.0_wp , vor_avrres, 'F', 1.0_wp ) 414 #endif 403 415 404 416 -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/USR/usrdef_fmask.F90
r13571 r13630 153 153 ENDIF 154 154 ! 155 #if defined key_mpi3 156 CALL lbc_lnk_nc_multi( 'usrdef_fmask', pfmsk, 'F', 1._wp ) ! Lateral boundary conditions on fmask 157 #else 155 158 CALL lbc_lnk( 'usrdef_fmask', pfmsk, 'F', 1._wp ) ! Lateral boundary conditions on fmask 159 #endif 156 160 ! 157 161 END SUBROUTINE usr_def_fmask -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/USR/usrdef_sbc.F90
r13295 r13630 181 181 wndm(ji,jj) = SQRT( zmod * zcoef ) 182 182 END_2D 183 #if defined key_mpi3 184 CALL lbc_lnk_nc_multi( 'usrdef_sbc', taum(:,:), 'T', 1.0_wp , wndm(:,:), 'T', 1.0_wp ) 185 #else 183 186 CALL lbc_lnk_multi( 'usrdef_sbc', taum(:,:), 'T', 1.0_wp , wndm(:,:), 'T', 1.0_wp ) 187 #endif 184 188 185 189 ! ---------------------------------- ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ZDF/zdfosm.F90
r13571 r13630 1223 1223 1224 1224 ! Lateral boundary conditions on zvicos (sign unchanged), needed to caclulate viscosities on u and v grids 1225 #if defined key_mpi3 1226 CALL lbc_lnk_nc_multi( 'zdfosm', zviscos(:,:,:), 'W', 1.0_wp ) 1227 #else 1225 1228 CALL lbc_lnk( 'zdfosm', zviscos(:,:,:), 'W', 1.0_wp ) 1229 #endif 1226 1230 1227 1231 ! GN 25/8: need to change tmask --> wmask … … 1232 1236 END_3D 1233 1237 ! Lateral boundary conditions on ghamu and ghamv, currently on W-grid (sign unchanged), needed to caclulate gham[uv] on u and v grids 1238 #if defined key_mpi3 1239 CALL lbc_lnk_nc_multi( 'zdfosm', p_avt, 'W', 1.0_wp , p_avm, 'W', 1.0_wp, & 1240 & ghamu, 'W', 1.0_wp , ghamv, 'W', 1.0_wp ) 1241 #else 1234 1242 CALL lbc_lnk_multi( 'zdfosm', p_avt, 'W', 1.0_wp , p_avm, 'W', 1.0_wp, & 1235 1243 & ghamu, 'W', 1.0_wp , ghamv, 'W', 1.0_wp ) 1244 #endif 1236 1245 DO_3D( 0, 0, 0, 0, 2, jpkm1 ) 1237 1246 ghamu(ji,jj,jk) = ( ghamu(ji,jj,jk) + ghamu(ji+1,jj,jk) ) & … … 1246 1255 ! Lateral boundary conditions on final outputs for gham[ts], on W-grid (sign unchanged) 1247 1256 ! Lateral boundary conditions on final outputs for gham[uv], on [UV]-grid (sign unchanged) 1257 #if defined key_mpi3 1258 CALL lbc_lnk_nc_multi( 'zdfosm', ghamt, 'W', 1.0_wp , ghams, 'W', 1.0_wp, & 1259 & ghamu, 'U', 1.0_wp , ghamv, 'V', 1.0_wp ) 1260 #else 1248 1261 CALL lbc_lnk_multi( 'zdfosm', ghamt, 'W', 1.0_wp , ghams, 'W', 1.0_wp, & 1249 1262 & ghamu, 'U', 1.0_wp , ghamv, 'V', 1.0_wp ) 1263 #endif 1250 1264 1251 1265 IF(ln_dia_osm) THEN … … 1287 1301 END IF 1288 1302 ! Lateral boundary conditions on p_avt (sign unchanged) 1303 #if defined key_mpi3 1304 CALL lbc_lnk_nc_multi( 'zdfosm', p_avt(:,:,:), 'W', 1.0_wp ) 1305 #else 1289 1306 CALL lbc_lnk( 'zdfosm', p_avt(:,:,:), 'W', 1.0_wp ) 1307 #endif 1290 1308 ! 1291 1309 END SUBROUTINE zdf_osm -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ZDF/zdfphy.F90
r13571 r13630 313 313 ! !* Lateral boundary conditions (sign unchanged) 314 314 IF( l_zdfsh2 ) THEN 315 #if defined key_mpi3 316 CALL lbc_lnk_nc_multi( 'zdfphy', avm_k, 'W', 1.0_wp , avt_k, 'W', 1.0_wp, & 317 & avm , 'W', 1.0_wp , avt , 'W', 1.0_wp , avs , 'W', 1.0_wp ) 318 #else 315 319 CALL lbc_lnk_multi( 'zdfphy', avm_k, 'W', 1.0_wp , avt_k, 'W', 1.0_wp, & 316 320 & avm , 'W', 1.0_wp , avt , 'W', 1.0_wp , avs , 'W', 1.0_wp ) 321 #endif 317 322 ELSE 323 #if defined key_mpi3 324 CALL lbc_lnk_nc_multi( 'zdfphy', avm , 'W', 1.0_wp , avt , 'W', 1.0_wp , avs , 'W', 1.0_wp ) 325 #else 318 326 CALL lbc_lnk_multi( 'zdfphy', avm , 'W', 1.0_wp , avt , 'W', 1.0_wp , avs , 'W', 1.0_wp ) 327 #endif 319 328 ENDIF 320 329 ! 321 330 IF( l_zdfdrg ) THEN ! drag have been updated (non-linear cases) 331 #if defined key_mpi3 332 IF( ln_isfcav ) THEN ; CALL lbc_lnk_nc_multi( 'zdfphy', rCdU_top, 'T', 1.0_wp , rCdU_bot, 'T', 1.0_wp ) ! top & bot drag 333 ELSE ; CALL lbc_lnk_nc_multi ( 'zdfphy', rCdU_bot, 'T', 1.0_wp ) ! bottom drag only 334 ENDIF 335 #else 322 336 IF( ln_isfcav ) THEN ; CALL lbc_lnk_multi( 'zdfphy', rCdU_top, 'T', 1.0_wp , rCdU_bot, 'T', 1.0_wp ) ! top & bot drag 323 337 ELSE ; CALL lbc_lnk ( 'zdfphy', rCdU_bot, 'T', 1.0_wp ) ! bottom drag only 324 338 ENDIF 339 #endif 325 340 ENDIF 326 341 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/module_example
r13571 r13630 127 127 END SELECT 128 128 ! 129 #if defined key_mpi3 130 CALL lbc_lnk_nc_multi( 'module_example', avm, 'T', 1. ) ! Lateral boundary conditions (unchanged sign) 131 #else 129 132 CALL lbc_lnk( 'module_example', avm, 'T', 1. ) ! Lateral boundary conditions (unchanged sign) 133 #endif 130 134 ! 131 135 END SUBROUTINE exa_mpl -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/stpMLF.F90
r13237 r13630 457 457 #endif 458 458 ! ! local domain boundaries (T-point, unchanged sign) 459 #if defined key_mpi3 460 CALL lbc_lnk_nc_multi( 'finalize_sbc', puu(:,:,:, Kaa), 'U', -1., pvv(:,:,: ,Kaa), 'V', -1. & 461 & , pts(:,:,:,jp_tem,Kaa), 'T', 1., pts(:,:,:,jp_sal,Kaa), 'T', 1. ) !* local domain boundaries 462 #else 459 463 CALL lbc_lnk_multi( 'finalize_sbc', puu(:,:,:, Kaa), 'U', -1., pvv(:,:,: ,Kaa), 'V', -1. & 460 464 & , pts(:,:,:,jp_tem,Kaa), 'T', 1., pts(:,:,:,jp_sal,Kaa), 'T', 1. ) !* local domain boundaries 465 #endif 461 466 ! 462 467 ! !* BDY open boundaries -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/asminc.F90
r13571 r13630 423 423 & / e3t(ji,jj,jk,Kmm) 424 424 END_2D 425 #if defined key_mpi3 426 CALL lbc_lnk_nc_multi( 'asminc', zhdiv, 'T', 1. ) ! lateral boundary cond. (no sign change) 427 #else 425 428 CALL lbc_lnk( 'asminc', zhdiv, 'T', 1. ) ! lateral boundary cond. (no sign change) 429 #endif 426 430 ! 427 431 DO_2D( 0, 0, 0, 0 ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/diawri.F90
r13295 r13630 184 184 & + e3t(ji+1,jj,1,Kmm) * e1e2t(ji+1,jj) ) * r1_e1e2u(ji,jj) 185 185 END_2D 186 #if defined key_mpi3 187 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'U', 1._wp ) 188 #else 186 189 CALL lbc_lnk( 'diawri', z2d, 'U', 1._wp ) 190 #endif 187 191 CALL iom_put( "hu", z2d ) 188 192 ENDIF … … 194 198 & + e3t(ji,jj ,1,Kmm) * e1e2t(ji,jj ) ) * r1_e1e2v(ji,jj) 195 199 END_2D 200 #if defined key_mpi3 201 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'V', 1._wp ) 202 #else 196 203 CALL lbc_lnk( 'diawri', z2d, 'V', 1._wp ) 204 #endif 197 205 CALL iom_put( "hv", z2d ) 198 206 ENDIF … … 205 213 END_2D 206 214 z2d(:,:) = z2d(:,:) * ssfmask(:,:) 215 #if defined key_mpi3 216 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1._wp ) 217 #else 207 218 CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp ) 219 #endif 208 220 CALL iom_put( "hf", z2d ) 209 221 ENDIF … … 224 236 ! 225 237 END_2D 238 #if defined key_mpi3 239 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'T', 1. ) 240 #else 226 241 CALL lbc_lnk( 'diawri', z2d, 'T', 1. ) 242 #endif 227 243 CALL iom_put( "taubot", z2d ) 228 244 ENDIF … … 243 259 END_2D 244 260 ! 261 #if defined key_mpi3 262 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'T', 1. ) 263 #else 245 264 CALL lbc_lnk( 'diawri', z2d, 'T', 1. ) 265 #endif 246 266 IF ( iom_use("sKE" ) ) CALL iom_put( "sKE" , z2d ) 247 267 … … 259 279 END_2D 260 280 ! 281 #if defined key_mpi3 282 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 283 #else 261 284 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 285 #endif 262 286 CALL iom_put( "sKEf", z2d ) 263 287 ENDIF … … 277 301 & - e1u(ji ,jj+1) * uu(ji ,jj+1,1,Kmm) + e1u(ji,jj) * uu(ji,jj,1,Kmm) ) * r1_e1e2f(ji,jj) 278 302 END_2D 303 #if defined key_mpi3 304 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 305 #else 279 306 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 307 #endif 280 308 CALL iom_put( "relvor", z2d ) ! relative vorticity ( zeta ) 281 309 ! … … 290 318 z2d(ji,jj) = ze3 * z2d(ji,jj) 291 319 END_2D 320 #if defined key_mpi3 321 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 322 #else 292 323 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 324 #endif 293 325 CALL iom_put( "relpotvor", z2d ) ! relative potential vorticity (zeta/h) 294 326 ! … … 301 333 z2d(ji,jj) = ze3 * ff_f(ji,jj) + z2d(ji,jj) 302 334 END_2D 335 #if defined key_mpi3 336 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 337 #else 303 338 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 339 #endif 304 340 CALL iom_put( "abspotvor", z2d ) ! absolute potential vorticity ( q ) 305 341 ! … … 307 343 z2d(ji,jj) = 0.5_wp * z2d(ji,jj) * z2d(ji,jj) 308 344 END_2D 345 #if defined key_mpi3 346 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 347 #else 309 348 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 349 #endif 310 350 CALL iom_put( "Ens", z2d ) ! potential enstrophy ( 1/2*q2 ) 311 351 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/dommsk.F90
r13295 r13630 141 141 ! the following call is mandatory 142 142 ! it masks boundaries (bathy=0) where needed depending on the configuration (closed, periodic...) 143 #if defined key_mpi3 144 CALL lbc_lnk_nc_multi( 'dommsk', tmask , 'T', 1._wp ) ! Lateral boundary conditions 145 #else 143 146 CALL lbc_lnk( 'dommsk', tmask , 'T', 1._wp ) ! Lateral boundary conditions 147 #endif 144 148 145 149 ! Mask corrections for bdy (read in mppini2) … … 173 177 END DO 174 178 END DO 179 #if defined key_mpi3 180 CALL lbc_lnk_nc_multi( 'dommsk', umask, 'U', 1., vmask, 'V', 1., fmask, 'F', 1. ) ! Lateral boundary conditions 181 #else 175 182 CALL lbc_lnk_multi( 'dommsk', umask, 'U', 1., vmask, 'V', 1., fmask, 'F', 1. ) ! Lateral boundary conditions 183 #endif 176 184 177 185 ! Ocean/land mask at wu-, wv- and w points (computed from tmask) … … 198 206 & tmask(ji,jj ,1), tmask(ji+1,jj ,1) ) 199 207 END_2D 208 #if defined key_mpi3 209 CALL lbc_lnk_nc_multi( 'dommsk', ssfmask, 'F', 1._wp ) 210 #else 200 211 CALL lbc_lnk( 'dommsk', ssfmask, 'F', 1._wp ) 212 #endif 201 213 202 214 !!an … … 279 291 DEALLOCATE( zwf ) 280 292 ! 293 #if defined key_mpi3 294 CALL lbc_lnk_nc_multi( 'dommsk', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 295 #else 281 296 CALL lbc_lnk( 'dommsk', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 297 #endif 282 298 ! 283 299 ! CAUTION : The fmask may be further modified in dyn_vor_init ( dynvor.F90 ) depending on ln_vorlat -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/domvvl.F90
r13571 r13630 520 520 ! ! d - thickness diffusion transport: boundary conditions 521 521 ! (stored for tracer advction and continuity equation) 522 #if defined key_mpi3 523 CALL lbc_lnk_nc_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 524 #else 522 525 CALL lbc_lnk_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 526 #endif 523 527 524 528 ! 4 - Time stepping of baroclinic scale factors 525 529 ! --------------------------------------------- 530 #if defined key_mpi3 531 CALL lbc_lnk_nc_multi( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 532 #else 526 533 CALL lbc_lnk( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 534 #endif 527 535 tilde_e3t_a(:,:,:) = tilde_e3t_b(:,:,:) + rDt * tmask(:,:,:) * tilde_e3t_a(:,:,:) 528 536 … … 1016 1024 & + e1e2t(ji+1,jj) * pssh(ji+1,jj) ) * r1_hu_0(ji,jj) * r1_e1e2u(ji,jj) 1017 1025 END_2D 1026 #if defined key_mpi3 1027 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'U', 1._wp ) 1028 #else 1018 1029 CALL lbc_lnk( 'domvvl', zc3(:,:), 'U', 1._wp ) 1030 #endif 1019 1031 ! 1020 1032 DO jk = 1, jpkm1 … … 1027 1039 & + e1e2t(ji,jj+1) * pssh(ji,jj+1) ) * r1_hv_0(ji,jj) * r1_e1e2v(ji,jj) 1028 1040 END_2D 1041 #if defined key_mpi3 1042 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'V', 1._wp ) 1043 #else 1029 1044 CALL lbc_lnk( 'domvvl', zc3(:,:), 'V', 1._wp ) 1045 #endif 1030 1046 ! 1031 1047 DO jk = 1, jpkm1 … … 1040 1056 & + e1e2t(ji+1,jj+1) * pssh(ji+1,jj+1) ) * r1_hf_0(ji,jj) * r1_e1e2f(ji,jj) 1041 1057 END_2D 1058 #if defined key_mpi3 1059 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'F', 1._wp ) 1060 #else 1042 1061 CALL lbc_lnk( 'domvvl', zc3(:,:), 'F', 1._wp ) 1062 #endif 1043 1063 ! 1044 1064 DO jk = 1, jpkm1 ! Horizontal interpolation of e3f from ssh … … 1059 1079 & + e1e2t(ji+1,jj) * pssh(ji+1,jj) ) * r1_hu_0(ji,jj) * r1_e1e2u(ji,jj) 1060 1080 END_2D 1081 #if defined key_mpi3 1082 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'U', 1._wp ) 1083 #else 1061 1084 CALL lbc_lnk( 'domvvl', zc3(:,:), 'U', 1._wp ) 1085 #endif 1062 1086 ! 1063 1087 DO jk = 1, jpk … … 1070 1094 & + e1e2t(ji,jj+1) * pssh(ji,jj+1) ) * r1_hv_0(ji,jj) * r1_e1e2v(ji,jj) 1071 1095 END_2D 1096 #if defined key_mpi3 1097 CALL lbc_lnk_nc_multi( 'domvvl', zc3(:,:), 'V', 1._wp ) 1098 #else 1072 1099 CALL lbc_lnk( 'domvvl', zc3(:,:), 'V', 1._wp ) 1100 #endif 1073 1101 ! 1074 1102 DO jk = 1, jpk -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/dynatf.F90
r13295 r13630 165 165 # endif 166 166 ! 167 #if defined key_mpi3 168 CALL lbc_lnk_nc_multi( 'dynatf', puu(:,:,:,Kaa), 'U', -1., pvv(:,:,:,Kaa), 'V', -1. ) !* local domain boundaries 169 #else 167 170 CALL lbc_lnk_multi( 'dynatf', puu(:,:,:,Kaa), 'U', -1., pvv(:,:,:,Kaa), 'V', -1. ) !* local domain boundaries 171 #endif 168 172 ! 169 173 ! !* BDY open boundaries -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/dynkeg.F90
r13295 r13630 133 133 zhke(ji,jj,jk) = r1_48 * ( zv + zu ) 134 134 END_3D 135 #if defined key_mpi3 136 CALL lbc_lnk_nc_multi( 'dynkeg', zhke, 'T', 1. ) 137 #else 135 138 CALL lbc_lnk( 'dynkeg', zhke, 'T', 1. ) 139 #endif 136 140 ! 137 141 END SELECT -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/dynldf_lap_blp.F90
r13295 r13630 232 232 CALL dyn_ldf_lap( kt, Kbb, Kmm, pu, pv, zulap, zvlap, 1 ) ! rotated laplacian applied to pt (output in zlap,Kbb) 233 233 ! 234 #if defined key_mpi3 235 CALL lbc_lnk_nc_multi( 'dynldf_lap_blp', zulap, 'U', -1., zvlap, 'V', -1. ) ! Lateral boundary conditions 236 #else 234 237 CALL lbc_lnk_multi( 'dynldf_lap_blp', zulap, 'U', -1., zvlap, 'V', -1. ) ! Lateral boundary conditions 238 #endif 235 239 ! 236 240 CALL dyn_ldf_lap( kt, Kbb, Kmm, zulap, zvlap, pu_rhs, pv_rhs, 2 ) ! rotated laplacian applied to zlap (output in pt(:,:,:,:,Krhs)) -
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 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/ldfdyn.F90
r13295 r13630 426 426 ENDIF 427 427 ! 428 #if defined key_mpi3 429 CALL lbc_lnk_nc_multi( 'ldfdyn', ahmt, 'T', 1., ahmf, 'F', 1. ) 430 #else 428 431 CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1., ahmf, 'F', 1. ) 432 #endif 429 433 ! 430 434 ! … … 458 462 END DO 459 463 ! 464 #if defined key_mpi3 465 CALL lbc_lnk_nc_multi( 'ldfdyn', dtensq, 'T', 1. ) ! lbc_lnk on dshesq not needed 466 #else 460 467 CALL lbc_lnk_multi( 'ldfdyn', dtensq, 'T', 1. ) ! lbc_lnk on dshesq not needed 468 #endif 461 469 ! 462 470 DO jk = 1, jpkm1 … … 509 517 ENDIF 510 518 ! 519 #if defined key_mpi3 520 CALL lbc_lnk_nc_multi( 'ldfdyn', ahmt, 'T', 1. , ahmf, 'F', 1. ) 521 #else 511 522 CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1. , ahmf, 'F', 1. ) 523 #endif 512 524 ! 513 525 END SELECT -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/sbcice_cice.F90
r13295 r13630 224 224 END_2D 225 225 226 #if defined key_mpi3 227 CALL lbc_lnk_nc_multi( 'sbcice_cice', fr_iu , 'U', 1., fr_iv , 'V', 1. ) 228 #else 226 229 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1., fr_iv , 'V', 1. ) 230 #endif 227 231 228 232 ! set the snow+ice mass … … 510 514 ss_iou(ji,jj) = 0.5 * ( ztmp1(ji,jj-1) + ztmp1(ji,jj) ) * umask(ji,jj,1) 511 515 END_2D 516 #if defined key_mpi3 517 CALL lbc_lnk_nc_multi( 'sbcice_cice', ss_iou , 'U', -1. ) 518 #else 512 519 CALL lbc_lnk( 'sbcice_cice', ss_iou , 'U', -1. ) 520 #endif 513 521 514 522 ! y comp of ocean-ice stress … … 520 528 ss_iov(ji,jj) = 0.5 * ( ztmp1(ji-1,jj) + ztmp1(ji,jj) ) * vmask(ji,jj,1) 521 529 END_2D 530 #if defined key_mpi3 531 CALL lbc_lnk_nc_multi( 'sbcice_cice', ss_iov , 'V', -1. ) 532 #else 522 533 CALL lbc_lnk( 'sbcice_cice', ss_iov , 'V', -1. ) 534 #endif 523 535 524 536 ! x and y comps of surface stress … … 573 585 fmmflx(:,:) = ztmp1(:,:) !!Joakim edit 574 586 587 #if defined key_mpi3 588 CALL lbc_lnk_nc_multi( 'sbcice_cice', emp , 'T', 1., sfx , 'T', 1. ) 589 #else 575 590 CALL lbc_lnk_multi( 'sbcice_cice', emp , 'T', 1., sfx , 'T', 1. ) 591 #endif 576 592 577 593 ! Solar penetrative radiation and non solar surface heat flux … … 599 615 #endif 600 616 qsr(:,:)=qsr(:,:)+ztmp1(:,:) 617 #if defined key_mpi3 618 CALL lbc_lnk_nc_multi( 'sbcice_cice', qsr , 'T', 1. ) 619 #else 601 620 CALL lbc_lnk( 'sbcice_cice', qsr , 'T', 1. ) 621 #endif 602 622 603 623 DO_2D( 1, 1, 1, 1 ) … … 612 632 qns(:,:)=qns(:,:)+nfrzmlt(:,:)+ztmp1(:,:) 613 633 634 #if defined key_mpi3 635 CALL lbc_lnk_nc_multi( 'sbcice_cice', qns , 'T', 1. ) 636 #else 614 637 CALL lbc_lnk( 'sbcice_cice', qns , 'T', 1. ) 638 #endif 615 639 616 640 ! Prepare for the following CICE time-step … … 630 654 END_2D 631 655 656 #if defined key_mpi3 657 CALL lbc_lnk_nc_multi( 'sbcice_cice', fr_iu , 'U', 1., fr_iv , 'V', 1. ) 658 #else 632 659 CALL lbc_lnk_multi( 'sbcice_cice', fr_iu , 'U', 1., fr_iv , 'V', 1. ) 660 #endif 633 661 634 662 ! set the snow+ice mass … … 852 880 ! A. Ensure all haloes are filled in NEMO field (pn) 853 881 882 #if defined key_mpi3 883 CALL lbc_lnk_nc_multi( 'sbcice_cice', pn , cd_type, psgn ) 884 #else 854 885 CALL lbc_lnk( 'sbcice_cice', pn , cd_type, psgn ) 886 #endif 855 887 856 888 #if defined key_nemocice_decomp … … 1027 1059 ! D. Ensure all haloes are filled in pn 1028 1060 1061 #if defined key_mpi3 1062 CALL lbc_lnk_nc_multi( 'sbcice_cice', pn , cd_type, psgn ) 1063 #else 1029 1064 CALL lbc_lnk( 'sbcice_cice', pn , cd_type, psgn ) 1065 #endif 1030 1066 1031 1067 END SUBROUTINE cice2nemo -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/step.F90
r13571 r13630 237 237 238 238 239 #if defined key_mpi3 240 CALL lbc_lnk_nc_multi( 'stp', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1., & !* local domain boundaries 241 & uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 242 #else 239 243 CALL lbc_lnk_multi( 'stp', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1., & !* local domain boundaries 240 244 & uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 245 #endif 241 246 242 247 !!an -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/stepLF.F90
r13295 r13630 248 248 249 249 250 #if defined key_mpi3 251 CALL lbc_lnk_nc_multi( 'stp', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1., & !* local domain boundaries 252 & uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 253 #else 250 254 CALL lbc_lnk_multi( 'stp', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1., & !* local domain boundaries 251 255 & uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 256 #endif 252 257 253 258 !!an -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/stpRK3.F90
r13295 r13630 308 308 309 309 310 #if defined key_mpi3 311 CALL lbc_lnk_nc_multi( 'stp_RK3', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1., & !* local domain boundaries 312 & uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 313 #else 310 314 CALL lbc_lnk_multi( 'stp_RK3', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1., & !* local domain boundaries 311 315 & uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 316 #endif 312 317 313 318 !!an -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/TOP/PISCES/P2Z/p2zbio.F90
r13295 r13630 339 339 ! 340 340 IF( lk_iomput ) THEN 341 #if defined key_mpi3 342 CALL lbc_lnk_nc_multi( 'p2zbio', zw2d(:,:,:),'T', 1.0_wp ) 343 CALL lbc_lnk_nc_multi( 'p2zbio', zw3d(:,:,:,1),'T', 1.0_wp, zw3d(:,:,:,2),'T', 1.0_wp, zw3d(:,:,:,3),'T', 1.0_wp ) 344 #else 341 345 CALL lbc_lnk( 'p2zbio', zw2d(:,:,:),'T', 1.0_wp ) 342 346 CALL lbc_lnk_multi( 'p2zbio', zw3d(:,:,:,1),'T', 1.0_wp, zw3d(:,:,:,2),'T', 1.0_wp, zw3d(:,:,:,3),'T', 1.0_wp ) 347 #endif 343 348 ! Save diagnostics 344 349 CALL iom_put( "TNO3PHY", zw2d(:,:,1) ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/TOP/PISCES/P2Z/p2zexp.F90
r13295 r13630 107 107 END_2D 108 108 109 #if defined key_mpi3 110 CALL lbc_lnk_nc_multi( 'p2zexp', sedpocn, 'T', 1.0_wp ) 111 #else 109 112 CALL lbc_lnk( 'p2zexp', sedpocn, 'T', 1.0_wp ) 113 #endif 110 114 111 115 ! Oa & Ek: diagnostics depending on jpdia2d ! left as example … … 210 214 END IF 211 215 END_2D 216 #if defined key_mpi3 217 CALL lbc_lnk_nc_multi( 'p2zexp', cmask , 'T', 1.0_wp ) ! lateral boundary conditions on cmask (sign unchanged) 218 #else 212 219 CALL lbc_lnk( 'p2zexp', cmask , 'T', 1.0_wp ) ! lateral boundary conditions on cmask (sign unchanged) 220 #endif 213 221 areacot = glob_sum( 'p2zexp', e1e2t(:,:) * cmask(:,:) ) 214 222 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/TOP/PISCES/P4Z/p4zbc.F90
r13295 r13630 311 311 END_3D 312 312 ! 313 #if defined key_mpi3 314 CALL lbc_lnk_nc_multi( 'p4zbc', zcmask , 'T', 1.0_wp ) ! lateral boundary conditions on cmask (sign unchanged) 315 #else 313 316 CALL lbc_lnk( 'p4zbc', zcmask , 'T', 1.0_wp ) ! lateral boundary conditions on cmask (sign unchanged) 317 #endif 314 318 ! 315 319 DO_3D( 1, 1, 1, 1, 1, jpk ) -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/TOP/TRP/trcatf.F90
r13295 r13630 102 102 #endif 103 103 ! Update after tracer on domain lateral boundaries 104 #if defined key_mpi3 105 CALL lbc_lnk_nc_multi( 'trcatf', ptr(:,:,:,:,Kaa), 'T', 1. ) 106 #else 104 107 CALL lbc_lnk( 'trcatf', ptr(:,:,:,:,Kaa), 'T', 1. ) 108 #endif 105 109 106 110 IF( ln_bdy ) CALL trc_bdy( kt, Kbb, Kmm, Kaa ) … … 168 172 ENDIF 169 173 ! 174 #if defined key_mpi3 175 CALL lbc_lnk_nc_multi( 'trcatf', ptr(:,:,:,:,Kmm), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp ) 176 #else 170 177 CALL lbc_lnk_multi( 'trcatf', ptr(:,:,:,:,Kmm), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp ) 178 #endif 171 179 ENDIF 172 180 ! -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/TOP/TRP/trcsbc.F90
r13295 r13630 155 155 END SELECT 156 156 ! 157 #if defined key_mpi3 158 CALL lbc_lnk_nc_multi( 'trcsbc', sbc_trc(:,:,:), 'T', 1.0_wp ) 159 #else 157 160 CALL lbc_lnk( 'trcsbc', sbc_trc(:,:,:), 'T', 1.0_wp ) 161 #endif 158 162 ! Concentration dilution effect on tracers due to evaporation & precipitation 159 163 DO jn = 1, jptra -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/TOP/TRP/trdmxl_trc.F90
r13571 r13630 284 284 IF( ln_trdtrc(jn) ) THEN 285 285 DO jl = 1, jpltrd_trc 286 #if defined key_mpi3 287 CALL lbc_lnk_nc_multi( 'trdmxl_trc', tmltrd_trc(:,:,jl,jn), 'T', 1. ) ! lateral boundary conditions 288 #else 286 289 CALL lbc_lnk( 'trdmxl_trc', tmltrd_trc(:,:,jl,jn), 'T', 1. ) ! lateral boundary conditions 290 #endif 287 291 END DO 288 292 ENDIF … … 419 423 !-- Lateral boundary conditions 420 424 IF ( cn_cfg .NE. 'gyre' ) THEN 425 #if defined key_mpi3 426 CALL lbc_lnk_nc_multi( 'trdmxl_trc', ztmltot(:,:,jn) , 'T', 1. , ztmlres(:,:,jn) , 'T', 1., & 427 & ztmlatf(:,:,jn) , 'T', 1. , ztmlrad(:,:,jn) , 'T', 1. ) 428 #else 421 429 CALL lbc_lnk_multi( 'trdmxl_trc', ztmltot(:,:,jn) , 'T', 1. , ztmlres(:,:,jn) , 'T', 1., & 422 430 & ztmlatf(:,:,jn) , 'T', 1. , ztmlrad(:,:,jn) , 'T', 1. ) 431 #endif 423 432 ENDIF 424 433 … … 470 479 !-- Lateral boundary conditions 471 480 IF ( cn_cfg .NE. 'gyre' ) THEN ! other than GYRE configuration 481 #if defined key_mpi3 482 CALL lbc_lnk_nc_multi( 'trdmxl_trc', ztmltot2(:,:,jn), 'T', 1., ztmlres2(:,:,jn), 'T', 1. ) 483 #else 472 484 CALL lbc_lnk_multi( 'trdmxl_trc', ztmltot2(:,:,jn), 'T', 1., ztmlres2(:,:,jn), 'T', 1. ) 485 #endif 473 486 DO jl = 1, jpltrd_trc 487 #if defined key_mpi3 488 CALL lbc_lnk_nc_multi( 'trdmxl_trc', ztmltrd2(:,:,jl,jn), 'T', 1. ) ! will be output in the NetCDF trends file 489 #else 474 490 CALL lbc_lnk( 'trdmxl_trc', ztmltrd2(:,:,jl,jn), 'T', 1. ) ! will be output in the NetCDF trends file 491 #endif 475 492 END DO 476 493 ENDIF -
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/TOP/trcbdy.F90
r13571 r13630 103 103 END DO 104 104 IF( ANY(llsend1) .OR. ANY(llrecv1) ) THEN ! if need to send/recv in at least one direction 105 #if defined key_mpi3 106 CALL lbc_lnk_nc_multi( 'trcbdy', tr(:,:,:,:,Krhs), 'T', 1.0_wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 107 #else 105 108 CALL lbc_lnk( 'trcbdy', tr(:,:,:,:,Krhs), 'T', 1.0_wp, kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 109 #endif 106 110 ENDIF 107 111 !
Note: See TracChangeset
for help on using the changeset viewer.