Correctly handle and diagnose the case where ESMF_NOKIND is returned

from ESMF_InfoGetTK().
esmf-org · Jul 6, 2023 · c00c155 · c00c155
1 parent 136ba02
commit c00c155
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/addon/NUOPC/src/NUOPC_Comp.F90 b/src/addon/NUOPC/src/NUOPC_Comp.F90
@@ -683,6 +683,11 @@ subroutine NUOPC_GridCompAttributeGet(comp, name, value, isPresent, isSet, rc)
         rcToReturn=rc)) &
         return  ! bail out
       write(value,*) valueR8
+    else if (tk==ESMF_NOKIND) then
+      call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_BAD, &
+        msg="Unable to retrieve value. Either invalid name or value not set.", &
+        line=__LINE__, file=FILENAME, rcToReturn=rc)
+      return
     else
       call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_BAD, &
         msg="Unsupported typekind", &
@@ -842,6 +847,11 @@ subroutine NUOPC_CplCompAttributeGet(comp, name, value, isPresent, isSet, rc)
         rcToReturn=rc)) &
         return  ! bail out
       write(value,*) valueR8
+    else if (tk==ESMF_NOKIND) then
+      call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_BAD, &
+        msg="Unable to retrieve value. Either invalid name or value not set.", &
+        line=__LINE__, file=FILENAME, rcToReturn=rc)
+      return
     else
       call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_BAD, &
         msg="Unsupported typekind", &