Allow seconds to be either real or integer in string.

Author: oehmke

src/Infrastructure/TimeMgr/interface/ESMF_TimeInterval.F90

@@ -2865,8 +2865,12 @@ subroutine ESMF_ParseDurTimeString(timeintervalString, &
             return           
          endif
 
-         ! Read year value
-         read(timeIntervalString(beg_loc:end_loc), *, ioStat=ioStatus) s_i8
+         ! Read second value depending on if it looks like an integer or a real
+         if (VERIFY(timeIntervalString(beg_loc:end_loc),"+-0123456789") == 0) then
+            read(timeIntervalString(beg_loc:end_loc), *, ioStat=ioStatus) s_i8
+         else
+            read(timeIntervalString(beg_loc:end_loc), *, ioStat=ioStatus) s_r8
+         endif
          if (ioStatus /=0) then
             call ESMF_LogSetError(rcToCheck=ESMF_RC_ARG_VALUE, &
                  msg=" An error occurred while reading S value in ISO duration string.", &
@@ -2910,7 +2914,8 @@ subroutine ESMF_ParseDurDateString(timeintervalString, &
         integer :: localrc
         integer :: beg_loc, end_loc
         integer :: t_loc
-
+        integer :: ioStatus
+        
       ! Init output to 0
       yy_i8=0
       mm_i8=0

src/Infrastructure/TimeMgr/tests/ESMF_TimeIntervalUTest.F90

@@ -3899,7 +3899,7 @@ program ESMF_TimeIntervalUTest
       ! Testing ESMF_TimeIntervalSet from an ISO duration string
       write(name, *) "Set an ESMF_TimeInterval using an ISO duration string."
       write(failMsg, *) "Output did not match duration set in string."
-      call ESMF_TimeIntervalSet(timeInterval1, timeIntervalString="P1Y2M3DT4H5M6S", rc=rc)
+      call ESMF_TimeIntervalSet(timeInterval1, timeIntervalString="P1Y2M3DT4H5M6.1S", rc=rc)
       !call ESMF_TimeIntervalGet(timeInterval1, s=S, sN=sN, sD=sD, rc=rc)
       call ESMF_Test((rc .eq. ESMF_SUCCESS), &
                       name, failMsg, result, ESMF_SRCLINE)