fill_grads_template_esmf Subroutine

public subroutine fill_grads_template_esmf(str, tmpl, unusable, xid, collection_id, time, preserve, rc)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(out) :: str
character(len=*), intent(in) :: tmpl
class(KeywordEnforcer), intent(in), optional :: unusable
character(len=*), intent(in), optional :: xid
character(len=*), intent(in), optional :: collection_id
type(ESMF_Time), intent(in), optional :: time
logical, intent(in), optional :: preserve
integer, intent(out), optional :: rc

Calls

proc~~fill_grads_template_esmf~~CallsGraph proc~fill_grads_template_esmf fill_grads_template_esmf ESMF_TimeGet ESMF_TimeGet proc~fill_grads_template_esmf->ESMF_TimeGet proc~fill_grads_template fill_grads_template proc~fill_grads_template_esmf->proc~fill_grads_template proc~mapl_return MAPL_Return proc~fill_grads_template_esmf->proc~mapl_return proc~mapl_verify MAPL_Verify proc~fill_grads_template_esmf->proc~mapl_verify 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 fill_grads_template_esmf(str, tmpl, unusable, xid, collection_id, time, preserve, rc)
      character(len=*), intent(out) :: str
      character(len=*), intent(in ) :: tmpl
      class(KeywordEnforcer), optional, intent(in) :: unusable
      character(len=*), optional, intent(in ) :: xid
      character(len=*), optional, intent(in ) :: collection_id
      type(ESMF_Time),  optional, intent(in ) :: time
      logical,          optional, intent(in ) :: preserve
      integer,          optional, intent(out) :: rc

      integer :: nhms, nymd, year, month, day, hour, minute, sec, status

      _UNUSED_DUMMY(unusable)
      call ESMF_TimeGet(time, yy=year, mm=month, dd=day, m=minute, h=hour, s=sec, _RC)
      nymd = year*10000 + month*100 + day
      nhms = hour*10000 + minute*100 + sec

      _UNUSED_DUMMY(unusable)

      call fill_grads_template(str, tmpl, &
            experiment_id=xid, collection_id = collection_id, nymd=nymd, nhms=nhms,preserve=preserve, _RC)
      _RETURN(_SUCCESS)

   end subroutine fill_grads_template_esmf