MAPL_GetCurrentFile Subroutine

public subroutine MAPL_GetCurrentFile(filetmpl, time, filename, rc, EXPID)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filetmpl
type(ESMF_Time), intent(inout) :: time
character(len=*), intent(out) :: filename
integer, intent(out), optional :: rc
character(len=*), intent(in), optional :: EXPID

Calls

proc~~mapl_getcurrentfile~~CallsGraph proc~mapl_getcurrentfile MAPL_GetCurrentFile ESMF_TimeGet ESMF_TimeGet proc~mapl_getcurrentfile->ESMF_TimeGet proc~fill_grads_template fill_grads_template proc~mapl_getcurrentfile->proc~fill_grads_template proc~mapl_return MAPL_Return proc~mapl_getcurrentfile->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_getcurrentfile->proc~mapl_verify proc~strtoint strToInt proc~mapl_getcurrentfile->proc~strtoint proc~fill_grads_template->ESMF_TimeGet proc~fill_grads_template->proc~mapl_return proc~fill_grads_template->proc~mapl_verify ESMF_CalendarCreate ESMF_CalendarCreate proc~fill_grads_template->ESMF_CalendarCreate ESMF_CalendarDestroy ESMF_CalendarDestroy proc~fill_grads_template->ESMF_CalendarDestroy ESMF_TimeSet ESMF_TimeSet proc~fill_grads_template->ESMF_TimeSet interface~mapl_assert MAPL_Assert proc~fill_grads_template->interface~mapl_assert 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

Source Code

  subroutine MAPL_GetCurrentFile(FileTmpl, Time, Filename, RC, EXPID)
    character(len=*),    intent(IN   ) :: filetmpl
    type(ESMF_Time),     intent(INout) :: time
    character(len=*),    intent(  out) :: filename
    integer, optional,   intent(  out) :: rc
    character(len=*), optional, intent(  in) :: EXPID

    integer :: status

    character(len=ESMF_MAXSTR)          :: DATE
    integer                             :: nymd
    integer                             :: nhms

    call ESMF_TimeGet(Time, timeString=DATE, RC=STATUS)
    _VERIFY(STATUS)

    call strToInt(DATE, nymd, nhms)
    call fill_grads_template ( Filename, FileTmpl,&
                           experiment_id=EXPID, nymd=nymd, nhms=nhms, rc=status )
    _VERIFY(STATUS)
    _RETURN(ESMF_SUCCESS)
  end subroutine MAPL_GetCurrentFile