time_utils_mod::esmf2fms_time Interface Reference

Detailed Description

Converts time from FMS to ESMF format.

Definition at line 27 of file time_utils.F90.

Private functions
type(time_type) function	esmf2fms_time_t (time)
	Converts date from ESMF format to FMS format. More...
type(time_type) function	esmf2fms_timestep (timestep)
	Converts time-interval from ESMF format to FMS format. More...

Functions and subroutines

esmf2fms_time_t()

type(time_type) function time_utils_mod::esmf2fms_time::esmf2fms_time_t ( type(esmf_time), intent(in)  time )

private

Converts date from ESMF format to FMS format.

Returns

FMS time structure

Parameters

[in]

time

ESMF time structure

Definition at line 82 of file time_utils.F90.

  type(Time_type)                    :: esmf2fms_time_t !< FMS time structure
  type(ESMF_Time), intent(in)        :: time            !< ESMF time structure
 
  ! Local Variables
  integer                            :: yy, mm, dd, h, m, s
  type(ESMF_CALKIND_FLAG)            :: calkind
 
  integer                            :: rc
 
  call esmf_timeget(time, yy=yy, mm=mm, dd=dd, h=h, m=m, s=s, &
      calkindflag=calkind, rc=rc)
  if (esmf_logfounderror(rctocheck=rc, msg=esmf_logerr_passthru, &
    line=__line__, &
    file=__file__)) &
    return  ! bail out
 
  esmf2fms_time_t = set_date(yy, mm, dd, h, m, s)
 

esmf2fms_timestep()

type(time_type) function time_utils_mod::esmf2fms_time::esmf2fms_timestep ( type(esmf_timeinterval), intent(in)  timestep )

private

Converts time-interval from ESMF format to FMS format.

Returns

FMS time structure

Parameters

[in]

timestep

time-interval following ESMF format [s]

Definition at line 104 of file time_utils.F90.

  type(Time_type)                    :: esmf2fms_timestep !< FMS time structure
  type(ESMF_TimeInterval), intent(in):: timestep          !< time-interval following
                                                          !! ESMF format [s]
  ! Local Variables
  integer                            :: s
  type(ESMF_CALKIND_FLAG)            :: calkind
 
  integer                            :: rc
 
  call esmf_timeintervalget(timestep, s=s, calkindflag=calkind, rc=rc)
  if (esmf_logfounderror(rctocheck=rc, msg=esmf_logerr_passthru, &
    line=__line__, &
    file=__file__)) &
    return  ! bail out
 
  esmf2fms_timestep = set_time(s, 0)
 

---

The documentation for this interface was generated from the following file:

• /glade/work/altuntas/cesm.sandboxes/cesm2_2_alpha_X_mom/components/mom/MOM6/config_src/nuopc_driver/time_utils.F90