Merge pull request #165 from esmf-org/fix/fb-api-keywordenforcer

Add the ESMF_KeywordEnforcer to ESMF_FieldBundleRegridStore() API.
esmf-org · Jul 18, 2023 · f668eef · f668eef
2 parents 32cb3fe + f38495b
commit f668eef
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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