From f38495b4129ca57ca2ed743b3b1730cc4456ab3c Mon Sep 17 00:00:00 2001 From: Gerhard Theurich Date: Tue, 18 Jul 2023 09:03:40 -0700 Subject: [PATCH] Add the ESMF_KeywordEnforcer to ESMF_FieldBundleRegridStore() API. --- src/Infrastructure/FieldBundle/src/ESMF_FieldBundle.cppF90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Infrastructure/FieldBundle/src/ESMF_FieldBundle.cppF90 b/src/Infrastructure/FieldBundle/src/ESMF_FieldBundle.cppF90 index 40187dd094..f2c50a50e9 100644 --- a/src/Infrastructure/FieldBundle/src/ESMF_FieldBundle.cppF90 +++ b/src/Infrastructure/FieldBundle/src/ESMF_FieldBundle.cppF90 @@ -4036,7 +4036,7 @@ type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below ! !IROUTINE: ESMF_FieldBundleRegridStore - Precompute a FieldBundle regrid operation ! \label{api:esmf_fieldbundleregridstore} ! !INTERFACE: - subroutine ESMF_FieldBundleRegridStore(srcFieldBundle, dstFieldBundle, & + subroutine ESMF_FieldBundleRegridStore(srcFieldBundle, dstFieldBundle, keywordEnforcer, & srcMaskValues, dstMaskValues, regridmethod, polemethod, regridPoleNPnts, & lineType, normType, extrapMethod, extrapNumSrcPnts, extrapDistExponent, & extrapNumLevels, unmappedaction, ignoreDegenerate, srcTermProcessing, & @@ -4045,7 +4045,7 @@ type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below ! !ARGUMENTS: type(ESMF_FieldBundle), intent(in) :: srcFieldBundle type(ESMF_FieldBundle), intent(inout) :: dstFieldBundle -!TODO: why is there no ESMF_KeywordEnforcer here??? +type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below integer(ESMF_KIND_I4), target, intent(in), optional :: srcMaskValues(:) integer(ESMF_KIND_I4), target, intent(in), optional :: dstMaskValues(:) type(ESMF_RegridMethod_Flag), intent(in), optional :: regridmethod