- Timestamp:
- 2013-07-02T15:20:13+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r3938 r3952 362 362 363 363 364 SUBROUTINE mpp_lnk_3d( ptab, cd_type, psgn, cd_mpp, pval , ldup)364 SUBROUTINE mpp_lnk_3d( ptab, cd_type, psgn, cd_mpp, pval ) 365 365 !!---------------------------------------------------------------------- 366 366 !! *** routine mpp_lnk_3d *** … … 390 390 CHARACTER(len=3), OPTIONAL , INTENT(in ) :: cd_mpp ! fill the overlap area only 391 391 REAL(wp) , OPTIONAL , INTENT(in ) :: pval ! background value (used at closed boundaries) 392 LOGICAL , OPTIONAL , INTENT(in ) :: ldup ! duplicate value (used at closed boundaries)393 392 !! 394 393 INTEGER :: ji, jj, jk, jl ! dummy loop indices … … 428 427 ptab( 1 ,:,:) = ptab(jpim1,:,:) 429 428 ptab(jpi,:,:) = ptab( 2 ,:,:) 430 ELSEIF ( nperio == 0 .AND. PRESENT( ldup ) ) THEN431 ptab(3,:,:) = ptab(2,:,:)432 ptab(:,3,:) = ptab(:,2,:)433 ptab(nlci-2,:,:) = ptab(nlci-1,:,:)434 ptab(:,nlcj-2,:) = ptab(:,nlcj-1,:)435 436 429 ELSE !* closed 437 430 IF( .NOT. cd_type == 'F' ) ptab( 1 :jpreci,:,:) = zland ! south except F-point … … 566 559 567 560 568 SUBROUTINE mpp_lnk_2d( pt2d, cd_type, psgn, cd_mpp, pval , ldup)561 SUBROUTINE mpp_lnk_2d( pt2d, cd_type, psgn, cd_mpp, pval ) 569 562 !!---------------------------------------------------------------------- 570 563 !! *** routine mpp_lnk_2d *** … … 592 585 CHARACTER(len=3), OPTIONAL , INTENT(in ) :: cd_mpp ! fill the overlap area only 593 586 REAL(wp) , OPTIONAL , INTENT(in ) :: pval ! background value (used at closed boundaries) 594 LOGICAL , OPTIONAL , INTENT(in ) :: ldup ! duplicate value (used at closed boundaries)595 587 !! 596 588 INTEGER :: ji, jj, jl ! dummy loop indices … … 629 621 pt2d( 1 ,:) = pt2d(jpim1,:) ! west 630 622 pt2d(jpi,:) = pt2d( 2 ,:) ! east 631 ELSEIF ( nperio == 0 .AND. PRESENT( ldup ) ) THEN632 pt2d(3,:) = pt2d(2,:)633 pt2d(:,3) = pt2d(:,2)634 pt2d(nlci-2,:) = pt2d(nlci-1,:)635 pt2d(:,nlcj-2) = pt2d(:,nlcj-1)636 623 ELSE ! closed 637 624 IF( .NOT. cd_type == 'F' ) pt2d( 1 :jpreci,:) = zland ! south except F-point … … 2024 2011 CALL MPI_ALLREDUCE( kice, zwork, jpnij, mpi_integer, mpi_sum, mpi_comm_opa, ierr ) 2025 2012 ndim_rank_ice = SUM( zwork ) 2026 2027 !SF ! if there is no ice in the domain, return to the main program (clem modif)2028 !SF IF ( ndim_rank_ice == 0 ) THEN2029 !SF DEALLOCATE(kice, zwork)2030 !SF RETURN2031 !SF ENDIF2032 2013 2033 2014 ! Allocate the right size to nrank_north … … 2046 2027 ! Create the world group 2047 2028 CALL MPI_COMM_GROUP( mpi_comm_opa, ngrp_world, ierr ) 2048 2029 2049 2030 ! Create the ice group from the world group 2050 2031 CALL MPI_GROUP_INCL( ngrp_world, ndim_rank_ice, nrank_ice, ngrp_ice, ierr )
Note: See TracChangeset
for help on using the changeset viewer.