Ensure that the string converted output is single character 'T' or 'F'

for .true./.false. attribute values. Clearly document this behavior in
the user API doc.

Author: theurich

src/addon/NUOPC/src/NUOPC_Comp.F90

@@ -555,10 +555,12 @@ subroutine NUOPC_GridCompAttributeGet(comp, name, value, isPresent, isSet, rc)
 !
 !   This call assumes to find a scalar value. An error is returned otherwise.
 !
-!   This call concverts to a string value, regardless of the actual attribute
-!   storage.
+!   This call converts the output to a string value, regardless of the actual
+!   attribute storage. In particular, for {\tt ESMF\_TYPEKIND\_LOGICAL}
+!   attributes, the returned values are (uppercase) {\tt T} and {\tt F} for,
+!   {\tt .true.} and {\tt .false.}, respectively.
 !
-!   Unless {\tt isPresent} and {\tt isSet} are provided, return with error if 
+!   Unless {\tt isPresent} and {\tt isSet} are provided, return with error if
 !   the attribute is not present or not set, respectively.
 !
 !   The arguments are:
@@ -648,7 +650,7 @@ subroutine NUOPC_GridCompAttributeGet(comp, name, value, isPresent, isSet, rc)
         file=FILENAME, &
         rcToReturn=rc)) &
         return  ! bail out
-      write(value,*) valueL
+      write(value,"(L1)") valueL
     else if (tk==ESMF_TYPEKIND_I4) then
       call ESMF_InfoGet(info, key="/NUOPC/Instance/"//name, value=valueI4, &
         rc=localrc)
@@ -719,10 +721,12 @@ subroutine NUOPC_CplCompAttributeGet(comp, name, value, isPresent, isSet, rc)
 !
 !   This call assumes to find a scalar value. An error is returned otherwise.
 !
-!   This call concverts to a string value, regardless of the actual attribute
-!   storage.
+!   This call converts the output to a string value, regardless of the actual
+!   attribute storage. In particular, for {\tt ESMF\_TYPEKIND\_LOGICAL}
+!   attributes, the returned values are (uppercase) {\tt T} and {\tt F} for,
+!   {\tt .true.} and {\tt .false.}, respectively.
 !
-!   Unless {\tt isPresent} and {\tt isSet} are provided, return with error if 
+!   Unless {\tt isPresent} and {\tt isSet} are provided, return with error if
 !   the attribute is not present or not set, respectively.
 !
 !   The arguments are:
@@ -812,7 +816,7 @@ subroutine NUOPC_CplCompAttributeGet(comp, name, value, isPresent, isSet, rc)
         file=FILENAME, &
         rcToReturn=rc)) &
         return  ! bail out
-      write(value,*) valueL
+      write(value,"(L1)") valueL
     else if (tk==ESMF_TYPEKIND_I4) then
       call ESMF_InfoGet(info, key="/NUOPC/Instance/"//name, value=valueI4, &
         rc=localrc)