subroutine time_nc_int_2_esmf(time, tunit, n, rc)
use ESMF
implicit none
type(ESMF_TIME), intent(out) :: time
integer, intent(in) :: n
character(len=*), intent(in) :: tunit
integer, intent(out), optional :: rc
integer :: status
type(ESMF_Time) :: time0
type(ESMF_TimeInterval) :: dt
integer :: iyy,imm,idd,ih,im,is
call parse_timeunit(tunit, n, time0, dt, _RC)
time = time0 + dt
! check
! -----
call ESMF_timeGet(time, yy=iyy, mm=imm, dd=idd, h=ih, m=im, s=is, _RC)
write(6, *) 'obs_start: iyy,imm,idd,ih,im,is', iyy,imm,idd,ih,im,is
_RETURN(_SUCCESS)
end subroutine time_nc_int_2_esmf