Changeset 15050 for NEMO/trunk/src/OCE/LBC/lbc_lnk_pt2pt_generic.h90
- Timestamp:
- 2021-06-24T11:22:29+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LBC/lbc_lnk_pt2pt_generic.h90
r14433 r15050 29 29 LOGICAL, DIMENSION(8) :: llsend, llrecv 30 30 LOGICAL :: ll4only ! default: 8 neighbourgs 31 LOGICAL :: ll_IdoNFold32 31 !!---------------------------------------------------------------------- 33 32 ! … … 100 99 ! 101 100 ! north fold treatment 102 ll_IdoNFold = l_IdoNFold .AND. ifill(jpno) /= jpfillnothing 103 IF( ll_IdoNFold ) THEN 101 IF( l_IdoNFold ) THEN 104 102 ifill_nfd = ifill(jpno) ! if we are here, this means llrecv(jpno) = .false. and l_SelfPerio(jpno) = .false. 105 103 ifill( (/jpno/) ) = jpfillnothing ! we do north fold -> do nothing for northern halo … … 206 204 ! Do if before MPI_Recv from south/north neighbourgs so we have more time to receive data 207 205 ! 208 IF( l l_IdoNFold ) THEN206 IF( l_IdoNFold ) THEN 209 207 IF( jpni == 1 ) THEN ; CALL lbc_nfd( ptab, cd_nat, psgn , ihls, ipf ) ! self NFold 210 208 ELSE ; CALL mpp_nfd( ptab, cd_nat, psgn, ifill_nfd, zland, ihls, ipf ) ! mpi NFold
Note: See TracChangeset
for help on using the changeset viewer.