1 | MODULE lbclnk |
---|
2 | !!====================================================================== |
---|
3 | !! *** MODULE lbclnk *** |
---|
4 | !! Ocean : lateral boundary conditions |
---|
5 | !!===================================================================== |
---|
6 | !! History : OPA ! 1997-06 (G. Madec) Original code |
---|
7 | !! NEMO 1.0 ! 2002-09 (G. Madec) F90: Free form and module |
---|
8 | !! 3.2 ! 2009-03 (R. Benshila) External north fold treatment |
---|
9 | !! 3.5 ! 2012 (S.Mocavero, I. Epicoco) optimization of BDY comm. via lbc_bdy_lnk and lbc_obc_lnk |
---|
10 | !! 3.4 ! 2012-12 (R. Bourdalle-Badie, G. Reffray) add a C1D case |
---|
11 | !! 3.6 ! 2015-06 (O. Tintó and M. Castrillo) add lbc_lnk_multi |
---|
12 | !!---------------------------------------------------------------------- |
---|
13 | |
---|
14 | !!---------------------------------------------------------------------- |
---|
15 | !! 'key_mpp_mpi' MPI massively parallel processing library |
---|
16 | !!---------------------------------------------------------------------- |
---|
17 | !! lbc_lnk : generic interface for mpp_lnk_3d and mpp_lnk_2d routines defined in lib_mpp |
---|
18 | !! lbc_sum : generic interface for mpp_lnk_sum_3d and mpp_lnk_sum_2d routines defined in lib_mpp |
---|
19 | !! lbc_lnk_e : generic interface for mpp_lnk_2d_e routine defined in lib_mpp |
---|
20 | !! lbc_bdy_lnk : generic interface for mpp_lnk_bdy_2d and mpp_lnk_bdy_3d routines defined in lib_mpp |
---|
21 | !!---------------------------------------------------------------------- |
---|
22 | USE lib_mpp ! distributed memory computing library |
---|
23 | |
---|
24 | INTERFACE lbc_lnk_multi |
---|
25 | MODULE PROCEDURE mpp_lnk_2d_9, mpp_lnk_2d_multiple |
---|
26 | END INTERFACE |
---|
27 | ! |
---|
28 | INTERFACE lbc_lnk |
---|
29 | MODULE PROCEDURE mpp_lnk_3d_gather, mpp_lnk_3d, mpp_lnk_2d |
---|
30 | END INTERFACE |
---|
31 | ! |
---|
32 | INTERFACE lbc_sum |
---|
33 | MODULE PROCEDURE mpp_lnk_sum_3d, mpp_lnk_sum_2d |
---|
34 | END INTERFACE |
---|
35 | ! |
---|
36 | INTERFACE lbc_bdy_lnk |
---|
37 | MODULE PROCEDURE mpp_lnk_bdy_2d, mpp_lnk_bdy_3d |
---|
38 | END INTERFACE |
---|
39 | ! |
---|
40 | INTERFACE lbc_lnk_e |
---|
41 | MODULE PROCEDURE mpp_lnk_2d_e |
---|
42 | END INTERFACE |
---|
43 | ! |
---|
44 | INTERFACE lbc_lnk_icb |
---|
45 | MODULE PROCEDURE mpp_lnk_2d_icb |
---|
46 | END INTERFACE |
---|
47 | |
---|
48 | PUBLIC lbc_lnk ! ocean lateral boundary conditions |
---|
49 | PUBLIC lbc_lnk_multi ! modified ocean lateral boundary conditions |
---|
50 | PUBLIC lbc_sum |
---|
51 | PUBLIC lbc_lnk_e ! |
---|
52 | PUBLIC lbc_bdy_lnk ! ocean lateral BDY boundary conditions |
---|
53 | PUBLIC lbc_lnk_icb ! |
---|
54 | |
---|
55 | !!---------------------------------------------------------------------- |
---|
56 | !! NEMO/OCE 4.0 , NEMO Consortium (2018) |
---|
57 | !! $Id: lbclnk.F90 6493 2016-04-22 13:52:52Z mathiot $ |
---|
58 | !! Software governed by the CeCILL licence (./LICENSE) |
---|
59 | !!---------------------------------------------------------------------- |
---|
60 | |
---|
61 | !!====================================================================== |
---|
62 | END MODULE lbclnk |
---|
63 | |
---|