MODULE lbcnfd !!====================================================================== !! *** MODULE lbcnfd *** !! Ocean : north fold boundary conditions !!====================================================================== !! History : 3.2 ! 2009-03 (R. Benshila) Original code !! 3.5 ! 2013-07 (I. Epicoco, S. Mocavero - CMCC) MPP optimization !! 4.0 ! 2017-04 (G. Madec) automatique allocation of array argument (use any 3rd dimension) !!---------------------------------------------------------------------- !!---------------------------------------------------------------------- !! lbc_nfd : generic interface for lbc_nfd_3d and lbc_nfd_2d routines !! lbc_nfd_3d : lateral boundary condition: North fold treatment for a 3D arrays (lbc_nfd) !! lbc_nfd_2d : lateral boundary condition: North fold treatment for a 2D arrays (lbc_nfd) !! lbc_nfd_nogather : generic interface for lbc_nfd_nogather_3d and !! lbc_nfd_nogather_2d routines (designed for use !! with ln_nnogather to avoid global width arrays !! mpi all gather operations) !!---------------------------------------------------------------------- USE dom_oce ! ocean space and time domain USE in_out_manager ! I/O manager IMPLICIT NONE PRIVATE INTERFACE lbc_nfd MODULE PROCEDURE lbc_nfd_2d , lbc_nfd_3d , lbc_nfd_4d MODULE PROCEDURE lbc_nfd_2d_ptr, lbc_nfd_3d_ptr, lbc_nfd_4d_ptr MODULE PROCEDURE lbc_nfd_2d_ext END INTERFACE ! INTERFACE lbc_nfd_nogather ! ! Currently only 4d array version is needed ! MODULE PROCEDURE lbc_nfd_nogather_2d , lbc_nfd_nogather_3d MODULE PROCEDURE lbc_nfd_nogather_4d ! MODULE PROCEDURE lbc_nfd_nogather_2d_ptr, lbc_nfd_nogather_3d_ptr ! MODULE PROCEDURE lbc_nfd_nogather_4d_ptr END INTERFACE TYPE, PUBLIC :: PTR_2D !: array of 2D pointers (also used in lib_mpp) REAL(wp), DIMENSION (:,:) , POINTER :: pt2d END TYPE PTR_2D TYPE, PUBLIC :: PTR_3D !: array of 3D pointers (also used in lib_mpp) REAL(wp), DIMENSION (:,:,:) , POINTER :: pt3d END TYPE PTR_3D TYPE, PUBLIC :: PTR_4D !: array of 4D pointers (also used in lib_mpp) REAL(wp), DIMENSION (:,:,:,:), POINTER :: pt4d END TYPE PTR_4D PUBLIC lbc_nfd ! north fold conditions PUBLIC lbc_nfd_nogather ! north fold conditions (no allgather case) INTEGER, PUBLIC, PARAMETER :: jpmaxngh = 3 !: INTEGER, PUBLIC :: nsndto, nfsloop, nfeloop !: INTEGER, PUBLIC, DIMENSION (jpmaxngh) :: isendto !: processes to which communicate !!---------------------------------------------------------------------- !! NEMO/OPA 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- CONTAINS !!---------------------------------------------------------------------- !! *** routine lbc_nfd_(2,3,4)d *** !!---------------------------------------------------------------------- !! !! ** Purpose : lateral boundary condition !! North fold treatment without processor exchanges. !! !! ** Method : !! !! ** Action : ptab with updated values along the north fold !!---------------------------------------------------------------------- ! ! !== 2D array and array of 2D pointer ==! ! # define DIM_2d # define ROUTINE_NFD lbc_nfd_2d # include "lbc_nfd_generic.h90" # undef ROUTINE_NFD # define MULTI # define ROUTINE_NFD lbc_nfd_2d_ptr # include "lbc_nfd_generic.h90" # undef ROUTINE_NFD # undef MULTI # undef DIM_2d ! ! !== 2D array with extra haloes ==! ! # define DIM_2d # define ROUTINE_NFD lbc_nfd_2d_ext # include "lbc_nfd_ext_generic.h90" # undef ROUTINE_NFD # undef DIM_2d ! ! !== 3D array and array of 3D pointer ==! ! # define DIM_3d # define ROUTINE_NFD lbc_nfd_3d # include "lbc_nfd_generic.h90" # undef ROUTINE_NFD # define MULTI # define ROUTINE_NFD lbc_nfd_3d_ptr # include "lbc_nfd_generic.h90" # undef ROUTINE_NFD # undef MULTI # undef DIM_3d ! ! !== 4D array and array of 4D pointer ==! ! # define DIM_4d # define ROUTINE_NFD lbc_nfd_4d # include "lbc_nfd_generic.h90" # undef ROUTINE_NFD # define MULTI # define ROUTINE_NFD lbc_nfd_4d_ptr # include "lbc_nfd_generic.h90" # undef ROUTINE_NFD # undef MULTI # undef DIM_4d ! ! lbc_nfd_nogather routines ! ! !== 2D array and array of 2D pointer ==! ! !# define DIM_2d !# define ROUTINE_NFD lbc_nfd_nogather_2d !# include "lbc_nfd_nogather_generic.h90" !# undef ROUTINE_NFD !# define MULTI !# define ROUTINE_NFD lbc_nfd_nogather_2d_ptr !# include "lbc_nfd_nogather_generic.h90" !# undef ROUTINE_NFD !# undef MULTI !# undef DIM_2d ! ! !== 3D array and array of 3D pointer ==! ! !# define DIM_3d !# define ROUTINE_NFD lbc_nfd_nogather_3d !# include "lbc_nfd_nogather_generic.h90" !# undef ROUTINE_NFD !# define MULTI !# define ROUTINE_NFD lbc_nfd_nogather_3d_ptr !# include "lbc_nfd_nogather_generic.h90" !# undef ROUTINE_NFD !# undef MULTI !# undef DIM_3d ! ! !== 4D array and array of 4D pointer ==! ! # define DIM_4d # define ROUTINE_NFD lbc_nfd_nogather_4d # include "lbc_nfd_nogather_generic.h90" # undef ROUTINE_NFD !# define MULTI !# define ROUTINE_NFD lbc_nfd_nogather_4d_ptr !# include "lbc_nfd_nogather_generic.h90" !# undef ROUTINE_NFD !# undef MULTI # undef DIM_4d !!---------------------------------------------------------------------- !!====================================================================== END MODULE lbcnfd