Remove MAPL_GetPointer, GET_POINTER, MAPL_FieldGetPointer from Base (#4827)

Remove legacy macros and their underlying implementations:
- GET_POINTER / MAPL_GetPointer (-> ESMFL_StateGetPointerToData): last
  external caller (GEOS_GigatrajGridComp) migrated to MAPL_StateGetPointer
  in GEOSgcm_GridComp#1404
- MAPL_FieldGetPointer (-> ESMFL_FieldGetPointerToData): zero callers

Removes from include/MAPL.h:
  GET_POINTER, MAPL_GetPointer, MAPL_FieldGetPointer macro definitions

Removes from base/ESMFL_Mod.F90:
  public ESMFL_StateGetPointerToData
  public ESMFL_FieldGetPointerToData
  ESMFL_StateGetPointerToData interface block + 8x GetPointer.H includes
  ESMFL_FieldGetPointerToData interface block + 8x GetFieldArray.H includes

ESMFL_BundleGetPointerToData is retained (active callers remain).

Closes #4825

Author: tclune

base/ESMFL_Mod.F90

@@ -48,8 +48,6 @@ module ESMFL_MOD
   !PUBLIC MEMBER FUNCTIONS:
   public ESMFL_StateGetField
   public ESMFL_StateGetFieldArray
-  public ESMFL_StateGetPointerToData
-  public ESMFL_FieldGetPointerToData
   public ESMFL_BundleGetPointerToData
   public ESMFL_BundleCpyField
   public ESMFL_GridCoordGet
@@ -120,28 +118,6 @@ module ESMFL_MOD
     module procedure BundleAddState_
   end interface
 
-  interface ESMFL_StateGetPointerToData
-     module procedure ESMFL_StateGetPtrToDataR4_1
-     module procedure ESMFL_StateGetPtrToDataR4_2
-     module procedure ESMFL_StateGetPtrToDataR4_3
-     module procedure ESMFL_StateGetPtrToDataR4_4
-     module procedure ESMFL_StateGetPtrToDataR8_1
-     module procedure ESMFL_StateGetPtrToDataR8_2
-     module procedure ESMFL_StateGetPtrToDataR8_3
-     module procedure ESMFL_StateGetPtrToDataR8_4
-  end interface
-
-  interface ESMFL_FieldGetPointerToData
-     module procedure ESMFL_FieldGetPtrToDataR4_1
-     module procedure ESMFL_FieldGetPtrToDataR4_2
-     module procedure ESMFL_FieldGetPtrToDataR4_3
-     module procedure ESMFL_FieldGetPtrToDataR4_4
-     module procedure ESMFL_FieldGetPtrToDataR8_1
-     module procedure ESMFL_FieldGetPtrToDataR8_2
-     module procedure ESMFL_FieldGetPtrToDataR8_3
-     module procedure ESMFL_FieldGetPtrToDataR8_4
-  end interface
-
   interface ESMFL_BundleGetPointerToData
      module procedure ESMFL_BundleGetPointerByIndex2
      module procedure ESMFL_BundleGetPointerByIndex3
@@ -607,32 +583,6 @@ end function ESMFL_StateFieldIsNeeded
 #undef VARTYPE_
 
 
-#define VARTYPE_ 3
-
-#define RANK_ 1
-#include "GetPointer.H"
-#define RANK_ 2
-#include "GetPointer.H"
-#define RANK_ 3
-#include "GetPointer.H"
-#define RANK_ 4
-#include "GetPointer.H"
-
-#undef VARTYPE_
-
-#define VARTYPE_ 4
-
-#define RANK_ 1
-#include "GetPointer.H"
-#define RANK_ 2
-#include "GetPointer.H"
-#define RANK_ 3
-#include "GetPointer.H"
-#define RANK_ 4
-#include "GetPointer.H"
-
-#undef VARTYPE_
-
  subroutine AdjustPtrBounds1dr4(PTR, A, I1, IN)
    real(KIND=ESMF_KIND_R4), pointer :: PTR(:)
    integer                          :: I1, IN

include/MAPL.h

@@ -3,13 +3,6 @@
 #include "MAPL_ErrLog.h"
 #include "unused_dummy.H"
 
-#undef  GET_POINTER
-#define GET_POINTER     ESMFL_StateGetPointerToData
-#undef  MAPL_GetPointer
-#define MAPL_GetPointer ESMFL_StateGetPointerToData
-#undef  MAPL_FieldGetPointer
-#define MAPL_FieldGetPointer ESMFL_FieldGetPointerToData
-
 #ifdef  GR8
 
 #define MAPL_real  real(MAPL_R8)