Skip to content
Snippets Groups Projects
Commit d0f8e9f2 authored by sebastien masson's avatar sebastien masson
Browse files

update mppini for XIOS: force to keep 1 land domain by band of MPI domains

parent 440ad905
No related branches found
No related tags found
No related merge requests found
...@@ -948,7 +948,7 @@ CONTAINS ...@@ -948,7 +948,7 @@ CONTAINS
! !
INTEGER :: idiv, iimax, ijmax, iarea INTEGER :: idiv, iimax, ijmax, iarea
INTEGER :: inbi, inbj, inx, iny, inry, isty INTEGER :: inbi, inbj, inx, iny, inry, isty
INTEGER :: ji, jn INTEGER :: ji, jj, jn
INTEGER, ALLOCATABLE, DIMENSION(:,:) :: inboce ! number oce oce pint in each mpi subdomain INTEGER, ALLOCATABLE, DIMENSION(:,:) :: inboce ! number oce oce pint in each mpi subdomain
INTEGER, ALLOCATABLE, DIMENSION(: ) :: inboce_1d INTEGER, ALLOCATABLE, DIMENSION(: ) :: inboce_1d
INTEGER, ALLOCATABLE, DIMENSION(:,:) :: iimppt, ijpi INTEGER, ALLOCATABLE, DIMENSION(:,:) :: iimppt, ijpi
...@@ -1038,6 +1038,15 @@ CONTAINS ...@@ -1038,6 +1038,15 @@ CONTAINS
ldIsOce(:,:) = inboce(:,:) /= 0 ldIsOce(:,:) = inboce(:,:) /= 0
DEALLOCATE(inboce, inboce_1d) DEALLOCATE(inboce, inboce_1d)
! !
#if defined key_xios
! Only when using XIOS: XIOS does a domain decomposition only in bands (for IO performances).
! XIOS is crashing if one of these bands contains only land-domains which have been suppressed.
! -> solution (before a fix of xios): force to keep at least one land-domain by band of mpi domains
DO jj = 1, inbj
IF( COUNT( ldIsOce(:,jj) ) == 0 ) ldIsOce(1,jj) = .TRUE. ! for to keep 1st MPI domain in the row of domains
END DO
#endif
!
END SUBROUTINE mpp_is_ocean END SUBROUTINE mpp_is_ocean
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment