local_esmf_timeset Function

function local_esmf_timeset(yymmdd, hhmmss, rc) result(etime)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: yymmdd
integer, intent(in) :: hhmmss
integer, intent(out), optional :: rc

Return Value type(ESMF_Time)


Calls

proc~~local_esmf_timeset~~CallsGraph proc~local_esmf_timeset local_esmf_timeset ESMF_TimeSet ESMF_TimeSet proc~local_esmf_timeset->ESMF_TimeSet proc~mapl_abort MAPL_abort proc~local_esmf_timeset->proc~mapl_abort proc~mapl_verify MAPL_Verify proc~local_esmf_timeset->proc~mapl_verify mpi_abort mpi_abort proc~mapl_abort->mpi_abort proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~local_esmf_timeset~~CalledByGraph proc~local_esmf_timeset local_esmf_timeset program~time_ave time_ave program~time_ave->proc~local_esmf_timeset

Source Code

   function local_esmf_timeset(yymmdd,hhmmss,rc) result(etime)
      type(ESMF_Time) :: etime
      integer, intent(in) :: yymmdd
      integer, intent(in) :: hhmmss
      integer, intent(out), optional :: rc

      integer :: year,month,day,hour,minute,second,status
      year = yymmdd/10000
      month = mod(yymmdd/100,100)
      day = mod(yymmdd,100)

      hour = hhmmss/10000
      minute = mod(hhmmss/100,100)
      second = mod(hhmmss,100)

      call ESMF_TimeSet(etime,yy=year,mm=month,dd=day,h=hour,m=minute,s=second,_RC)
      if (present(rc)) then
         rc=_SUCCESS
      endif
   end function local_esmf_timeset