Skip to content
Snippets Groups Projects
Commit 96e2cf59 authored by Sebastien Masson's avatar Sebastien Masson
Browse files

Merge branch 'cherry-pick-2696032b' into 'branch_4.2'

Merge branch '52-compilation-error-when-using-mpi2' into 'branch_4.2'

See merge request nemo/nemo!97
parents 21c11f8d 8012b47f
No related branches found
No related tags found
No related merge requests found
...@@ -95,12 +95,16 @@ ...@@ -95,12 +95,16 @@
IF( PRESENT(psgn28) ) CALL load_ptr_/**/XD/**/_/**/PRECISION( pt28, cdna28, psgn28, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) IF( PRESENT(psgn28) ) CALL load_ptr_/**/XD/**/_/**/PRECISION( pt28, cdna28, psgn28, ptab_ptr, cdna_ptr, psgn_ptr, kfld )
IF( PRESENT(psgn29) ) CALL load_ptr_/**/XD/**/_/**/PRECISION( pt29, cdna29, psgn29, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) IF( PRESENT(psgn29) ) CALL load_ptr_/**/XD/**/_/**/PRECISION( pt29, cdna29, psgn29, ptab_ptr, cdna_ptr, psgn_ptr, kfld )
IF( PRESENT(psgn30) ) CALL load_ptr_/**/XD/**/_/**/PRECISION( pt30, cdna30, psgn30, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) IF( PRESENT(psgn30) ) CALL load_ptr_/**/XD/**/_/**/PRECISION( pt30, cdna30, psgn30, ptab_ptr, cdna_ptr, psgn_ptr, kfld )
! !
#if ! defined key_mpi2
IF( nn_comm == 1 ) THEN IF( nn_comm == 1 ) THEN
CALL lbc_lnk_pt2pt( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, khls, lsend, lrecv, ld4only ) CALL lbc_lnk_pt2pt( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, khls, lsend, lrecv, ld4only )
ELSE ELSE
CALL lbc_lnk_neicoll( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, khls, lsend, lrecv, ld4only ) CALL lbc_lnk_neicoll( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, khls, lsend, lrecv, ld4only )
ENDIF ENDIF
#else
CALL lbc_lnk_pt2pt( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval, khls, lsend, lrecv, ld4only )
#endif
! !
END SUBROUTINE lbc_lnk_call_/**/XD/**/_/**/PRECISION END SUBROUTINE lbc_lnk_call_/**/XD/**/_/**/PRECISION
......
...@@ -38,9 +38,11 @@ MODULE lbclnk ...@@ -38,9 +38,11 @@ MODULE lbclnk
MODULE PROCEDURE lbc_lnk_pt2pt_sp, lbc_lnk_pt2pt_dp MODULE PROCEDURE lbc_lnk_pt2pt_sp, lbc_lnk_pt2pt_dp
END INTERFACE END INTERFACE
#if ! defined key_mpi2
INTERFACE lbc_lnk_neicoll INTERFACE lbc_lnk_neicoll
MODULE PROCEDURE lbc_lnk_neicoll_sp ,lbc_lnk_neicoll_dp MODULE PROCEDURE lbc_lnk_neicoll_sp ,lbc_lnk_neicoll_dp
END INTERFACE END INTERFACE
#endif
! !
INTERFACE lbc_lnk_icb INTERFACE lbc_lnk_icb
MODULE PROCEDURE mpp_lnk_2d_icb_dp, mpp_lnk_2d_icb_sp MODULE PROCEDURE mpp_lnk_2d_icb_dp, mpp_lnk_2d_icb_sp
...@@ -132,7 +134,9 @@ CONTAINS ...@@ -132,7 +134,9 @@ CONTAINS
# define BUFFSND buffsnd_sp # define BUFFSND buffsnd_sp
# define BUFFRCV buffrcv_sp # define BUFFRCV buffrcv_sp
# include "lbc_lnk_pt2pt_generic.h90" # include "lbc_lnk_pt2pt_generic.h90"
#if ! defined key_mpi2
# include "lbc_lnk_neicoll_generic.h90" # include "lbc_lnk_neicoll_generic.h90"
#endif
# undef MPI_TYPE # undef MPI_TYPE
# undef BUFFSND # undef BUFFSND
# undef BUFFRCV # undef BUFFRCV
...@@ -145,7 +149,9 @@ CONTAINS ...@@ -145,7 +149,9 @@ CONTAINS
# define BUFFSND buffsnd_dp # define BUFFSND buffsnd_dp
# define BUFFRCV buffrcv_dp # define BUFFRCV buffrcv_dp
# include "lbc_lnk_pt2pt_generic.h90" # include "lbc_lnk_pt2pt_generic.h90"
#if ! defined key_mpi2
# include "lbc_lnk_neicoll_generic.h90" # include "lbc_lnk_neicoll_generic.h90"
#endif
# undef MPI_TYPE # undef MPI_TYPE
# undef BUFFSND # undef BUFFSND
# undef BUFFRCV # undef BUFFRCV
......
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