time_nc_int_2_esmf Subroutine

public subroutine time_nc_int_2_esmf(time, tunit, n, rc)

Uses

  • proc~~time_nc_int_2_esmf~~UsesGraph proc~time_nc_int_2_esmf time_nc_int_2_esmf ESMF ESMF proc~time_nc_int_2_esmf->ESMF

Arguments

Type IntentOptional Attributes Name
type(ESMF_Time), intent(out) :: time
character(len=*), intent(in) :: tunit
integer, intent(in) :: n
integer, intent(out), optional :: rc

Calls

proc~~time_nc_int_2_esmf~~CallsGraph proc~time_nc_int_2_esmf time_nc_int_2_esmf ESMF_TimeGet ESMF_TimeGet proc~time_nc_int_2_esmf->ESMF_TimeGet interface~parse_timeunit parse_timeunit proc~time_nc_int_2_esmf->interface~parse_timeunit proc~mapl_return MAPL_Return proc~time_nc_int_2_esmf->proc~mapl_return proc~mapl_verify MAPL_Verify proc~time_nc_int_2_esmf->proc~mapl_verify proc~parse_timeunit_i4 parse_timeunit_i4 interface~parse_timeunit->proc~parse_timeunit_i4 proc~parse_timeunit_i8 parse_timeunit_i8 interface~parse_timeunit->proc~parse_timeunit_i8 at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~parse_timeunit_i4->interface~parse_timeunit proc~parse_timeunit_i4->proc~mapl_return proc~parse_timeunit_i4->proc~mapl_verify proc~parse_timeunit_i8->proc~mapl_return proc~parse_timeunit_i8->proc~mapl_verify ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~parse_timeunit_i8->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~parse_timeunit_i8->ESMF_TimeSet interface~mapl_assert MAPL_Assert proc~parse_timeunit_i8->interface~mapl_assert

Called by

proc~~time_nc_int_2_esmf~~CalledByGraph proc~time_nc_int_2_esmf time_nc_int_2_esmf interface~convert_time_nc2esmf convert_time_nc2esmf interface~convert_time_nc2esmf->proc~time_nc_int_2_esmf

Source Code

  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