time_real_to_ESMF Subroutine

public subroutine time_real_to_ESMF(times_R8_1d, times_esmf_1d, datetime_units, rc)

Uses

  • proc~~time_real_to_esmf~~UsesGraph proc~time_real_to_esmf time_real_to_ESMF module~mapl_netcdf MAPL_NetCDF proc~time_real_to_esmf->module~mapl_netcdf MAPL_DateTime_Parsing MAPL_DateTime_Parsing module~mapl_netcdf->MAPL_DateTime_Parsing module~mapl_cf_time MAPL_CF_Time module~mapl_netcdf->module~mapl_cf_time module~mapl_datetime_parsing_esmf MAPL_DateTime_Parsing_ESMF module~mapl_netcdf->module~mapl_datetime_parsing_esmf module~mapl_exceptionhandling MAPL_ExceptionHandling module~mapl_netcdf->module~mapl_exceptionhandling module~mapl_keywordenforcermod mapl_KeywordEnforcerMod module~mapl_netcdf->module~mapl_keywordenforcermod module~mapl_cf_time->MAPL_DateTime_Parsing module~mapl_cf_time->module~mapl_exceptionhandling module~mapl_cf_time->module~mapl_keywordenforcermod iso_fortran_env iso_fortran_env module~mapl_cf_time->iso_fortran_env module~mapl_datetime_parsing_esmf->MAPL_DateTime_Parsing module~mapl_datetime_parsing_esmf->module~mapl_exceptionhandling module~mapl_datetime_parsing_esmf->module~mapl_keywordenforcermod ESMF ESMF module~mapl_datetime_parsing_esmf->ESMF module~mapl_errorhandlingmod mapl_ErrorHandlingMod module~mapl_exceptionhandling->module~mapl_errorhandlingmod module~mapl_throwmod MAPL_ThrowMod module~mapl_exceptionhandling->module~mapl_throwmod module~mapl_keywordenforcer mapl_KeywordEnforcer module~mapl_keywordenforcermod->module~mapl_keywordenforcer module~mapl_errorhandling mapl_ErrorHandling module~mapl_errorhandlingmod->module~mapl_errorhandling

Arguments

Type IntentOptional Attributes Name
real(kind=REAL64), intent(in) :: times_R8_1d(:)
type(ESMF_Time), intent(inout) :: times_esmf_1d(:)
character(len=*), intent(in) :: datetime_units
integer, intent(out), optional :: rc

Calls

proc~~time_real_to_esmf~~CallsGraph proc~time_real_to_esmf time_real_to_ESMF interface~convert_netcdf_datetime_to_esmf convert_NetCDF_DateTime_to_ESMF proc~time_real_to_esmf->interface~convert_netcdf_datetime_to_esmf proc~mapl_return MAPL_Return proc~time_real_to_esmf->proc~mapl_return proc~mapl_verify MAPL_Verify proc~time_real_to_esmf->proc~mapl_verify 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 time_real_to_ESMF (times_R8_1d, times_esmf_1d, datetime_units, rc)
    use  MAPL_NetCDF, only : convert_NetCDF_DateTime_to_ESMF

    real(kind=REAL64), intent(in) :: times_R8_1d(:)
    type(ESMF_Time), intent(inout) :: times_esmf_1d(:)
    character(len=*), intent(in) :: datetime_units
    integer, optional, intent(out) :: rc

    type(ESMF_TimeInterval) :: interval
    type(ESMF_Time) :: time0
    type(ESMF_Time) :: time1
    character(len=:), allocatable :: tunit

    integer :: i, len
    integer :: int_time
    integer :: status

    len = size (times_R8_1d)
    do i=1, len
       int_time = times_R8_1d(i)
       call convert_NetCDF_DateTime_to_ESMF(int_time, datetime_units, interval, &
            time0, time=time1, time_unit=tunit, _RC)
       times_esmf_1d(i) = time1
    enddo

    _RETURN(_SUCCESS)
  end subroutine time_real_to_ESMF