New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14984 – NEMO

Changeset 14984


Ignore:
Timestamp:
2021-06-14T10:07:36+02:00 (3 years ago)
Author:
smasson
Message:

ticket2680_C1D_PAPA: fix to work with key_mpi_off, #2680

Location:
NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/LBC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/LBC/lib_mpp.F90

    r14920 r14984  
    14051405      INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT(  out) ::   status 
    14061406      INTEGER                            , INTENT(  out) ::   ierror 
     1407      IF (.FALSE.) THEN   ! to avoid compilation warning 
     1408         status(:) = -1 
     1409         ierror = -1 
     1410      ENDIF 
    14071411   END SUBROUTINE mpi_wait 
    14081412 
     
    14121416      INTEGER, DIMENSION(MPI_STATUS_SIZE), INTENT(  out) :: status 
    14131417      INTEGER                            , INTENT(  out) :: ierror 
     1418      IF (.FALSE.) THEN   ! to avoid compilation warning 
     1419         status(:) = -1 
     1420         ierror = -1 
     1421      ENDIF 
    14141422   END SUBROUTINE mpi_waitall 
    14151423 
  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/LBC/mppini.F90

    r14920 r14984  
    7878      njmpp   = 1 
    7979      nidom   = FLIO_DOM_NONE 
     80      ! 
     81      mpiSnei(:,:) = -1 
     82      mpiRnei(:,:) = -1 
     83      l_SelfPerio(1:2) = l_Iperio                  !  west,  east periodicity by itself 
     84      l_SelfPerio(3:4) = l_Jperio                  ! south, north periodicity by itself 
     85      l_SelfPerio(5:8) = l_Iperio .AND. l_Jperio   ! corners bi-periodicity by itself 
     86      l_IdoNFold = l_NFold                         ! is this process doing North fold? 
    8087      ! 
    8188      CALL init_doloop                       ! set start/end indices or do-loop depending on the halo width value (nn_hls) 
Note: See TracChangeset for help on using the changeset viewer.