- Timestamp:
- 2018-10-05T17:20:12+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/lbcnfd.F90
r10068 r10175 32 32 INTERFACE lbc_nfd_nogather 33 33 ! ! Currently only 4d array version is needed 34 !MODULE PROCEDURE lbc_nfd_nogather_2d , lbc_nfd_nogather_3d35 36 !MODULE PROCEDURE lbc_nfd_nogather_2d_ptr, lbc_nfd_nogather_3d_ptr34 MODULE PROCEDURE lbc_nfd_nogather_2d , lbc_nfd_nogather_3d 35 MODULE PROCEDURE lbc_nfd_nogather_4d 36 MODULE PROCEDURE lbc_nfd_nogather_2d_ptr, lbc_nfd_nogather_3d_ptr 37 37 ! MODULE PROCEDURE lbc_nfd_nogather_4d_ptr 38 38 END INTERFACE … … 125 125 ! !== 2D array and array of 2D pointer ==! 126 126 ! 127 !# define DIM_2d128 !# define ROUTINE_NFD lbc_nfd_nogather_2d129 !# include "lbc_nfd_nogather_generic.h90"130 !# undef ROUTINE_NFD131 !# define MULTI132 !# define ROUTINE_NFD lbc_nfd_nogather_2d_ptr133 !# include "lbc_nfd_nogather_generic.h90"134 !# undef ROUTINE_NFD135 !# undef MULTI136 !# undef DIM_2d127 # define DIM_2d 128 # define ROUTINE_NFD lbc_nfd_nogather_2d 129 # include "lbc_nfd_nogather_generic.h90" 130 # undef ROUTINE_NFD 131 # define MULTI 132 # define ROUTINE_NFD lbc_nfd_nogather_2d_ptr 133 # include "lbc_nfd_nogather_generic.h90" 134 # undef ROUTINE_NFD 135 # undef MULTI 136 # undef DIM_2d 137 137 ! 138 138 ! !== 3D array and array of 3D pointer ==! 139 139 ! 140 !# define DIM_3d141 !# define ROUTINE_NFD lbc_nfd_nogather_3d142 !# include "lbc_nfd_nogather_generic.h90"143 !# undef ROUTINE_NFD144 !# define MULTI145 !# define ROUTINE_NFD lbc_nfd_nogather_3d_ptr146 !# include "lbc_nfd_nogather_generic.h90"147 !# undef ROUTINE_NFD148 !# undef MULTI149 !# undef DIM_3d140 # define DIM_3d 141 # define ROUTINE_NFD lbc_nfd_nogather_3d 142 # include "lbc_nfd_nogather_generic.h90" 143 # undef ROUTINE_NFD 144 # define MULTI 145 # define ROUTINE_NFD lbc_nfd_nogather_3d_ptr 146 # include "lbc_nfd_nogather_generic.h90" 147 # undef ROUTINE_NFD 148 # undef MULTI 149 # undef DIM_3d 150 150 ! 151 151 ! !== 4D array and array of 4D pointer ==!
Note: See TracChangeset
for help on using the changeset viewer.