time_utils_mod::fms2esmf_cal Interface Reference

Detailed Description

Converts calendar from FMS to ESMF format.

Definition at line 21 of file time_utils.F90.

Private functions
type(esmf_calkind_flag) function	fms2esmf_cal_c (calendar)
	Sets fms2esmf_cal_c to the corresponding ESMF calendar type. More...
type(esmf_calkind_flag) function	fms2esmf_cal_i (calendar)
	Sets fms2esmf_cal_i to the corresponding ESMF calendar type. More...

Functions and subroutines

fms2esmf_cal_c()

type(esmf_calkind_flag) function time_utils_mod::fms2esmf_cal::fms2esmf_cal_c ( character(len=*), intent(in)  calendar )

private

Sets fms2esmf_cal_c to the corresponding ESMF calendar type.

Returns

ESMF calendar type

Parameters

[in]

calendar

Type of calendar

Definition at line 41 of file time_utils.F90.

  type(ESMF_CALKIND_FLAG)            :: fms2esmf_cal_c !< ESMF calendar type
  character(len=*), intent(in)       :: calendar       !< Type of calendar
 
  select case( uppercase(trim(calendar)) )
  case( 'GREGORIAN' )
    fms2esmf_cal_c = esmf_calkind_gregorian
  case( 'JULIAN' )
    fms2esmf_cal_c = esmf_calkind_julian
  case( 'NOLEAP' )
    fms2esmf_cal_c = esmf_calkind_noleap
  case( 'THIRTY_DAY' )
    fms2esmf_cal_c = esmf_calkind_360day
  case( 'NO_CALENDAR' )
    fms2esmf_cal_c = esmf_calkind_nocalendar
  case default
    call mpp_error(fatal, &
    'ocean_solo: ocean_solo_nml entry calendar must be one of GREGORIAN|JULIAN|NOLEAP|THIRTY_DAY|NO_CALENDAR.' )
  end select

fms2esmf_cal_i()

type(esmf_calkind_flag) function time_utils_mod::fms2esmf_cal::fms2esmf_cal_i ( integer, intent(in)  calendar )

private

Sets fms2esmf_cal_i to the corresponding ESMF calendar type.

Returns

ESMF calendar structure

Parameters

[in]

calendar

Type of calendar

Definition at line 63 of file time_utils.F90.

  type(ESMF_CALKIND_FLAG)            :: fms2esmf_cal_i !< ESMF calendar structure
  integer, intent(in)                :: calendar       !< Type of calendar
 
  select case(calendar)
    case(thirty_day_months)
      fms2esmf_cal_i = esmf_calkind_360day
    case(gregorian)
      fms2esmf_cal_i = esmf_calkind_gregorian
    case(julian)
      fms2esmf_cal_i = esmf_calkind_julian
    case(noleap)
      fms2esmf_cal_i = esmf_calkind_noleap
    case(no_calendar)
      fms2esmf_cal_i = esmf_calkind_nocalendar
  end select

---

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