- Timestamp:
- 2020-10-19T10:48:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/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
Note: See TracChangeset
for help on using the changeset viewer.