ESMF_CalendarMod Module


Uses


Variables

Type Visibility Attributes Name Initial
type(ESMF_CalKind_Flag), public, parameter :: ESMF_CALKIND_GREGORIAN = ESMF_CalKind_Flag(1)
type(ESMF_CalKind_Flag), public, parameter :: ESMF_CALKIND_NOLEAP = ESMF_CalKind_Flag(2)
type(ESMF_Calendar), public, save, pointer :: defaultCal
type(ESMF_Calendar), public, save, pointer :: gregorianCal
type(ESMF_Calendar), public, save, pointer :: noleapCal

Derived Types

type, public ::  ESMF_CalKind_Flag

Components

Type Visibility Attributes Name Initial
integer, public :: caltype

type, public ::  ESMF_DaysPerYear

Components

Type Visibility Attributes Name Initial
integer, public :: D = 0
integer, public :: Dn = 0
integer, public :: Dd = 1

type, public ::  ESMF_Calendar

Components

Type Visibility Attributes Name Initial
type(ESMF_CalKind_Flag), public :: Type
logical, public :: Set = .false.
integer, public, dimension(MONTHS_PER_YEAR) :: DaysPerMonth = 0
integer, public :: SecondsPerDay = 0
integer, public :: SecondsPerYear = 0
type(ESMF_DaysPerYear), public :: DaysPerYear

Functions

public function ESMF_CalendarCreate(name, calkindflag, rc)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: name
type(ESMF_CalKind_Flag), intent(in) :: calkindflag
integer, intent(out), optional :: rc

Return Value type(ESMF_Calendar)

public function ESMF_CalendarInitialized(calendar)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Calendar), intent(in) :: calendar

Return Value logical

public function nsecondsinyear(year, calkindflag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year
type(ESMF_CalKind_Flag), intent(in) :: calkindflag

Return Value integer(kind=esmf_kind_i8)

public function ndaysinmonth(year, month, calkindflag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year
integer, intent(in) :: month
type(ESMF_CalKind_Flag), intent(in) :: calkindflag

Return Value integer

public function nsecondsinmonth(year, month, calkindflag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year
integer, intent(in) :: month
type(ESMF_CalKind_Flag), intent(in) :: calkindflag

Return Value integer(kind=esmf_kind_i8)

public function nmonthinyearsec(year, basetime, calkindflag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year
type(ESMF_BaseTime), intent(in) :: basetime
type(ESMF_CalKind_Flag), intent(in) :: calkindflag

Return Value integer

public function ndayinyearsec(year, basetime, calkindflag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year
type(ESMF_BaseTime), intent(in) :: basetime
type(ESMF_CalKind_Flag), intent(in) :: calkindflag

Return Value integer

public function nsecondsinyearmonth(year, month, calkindflag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year
integer, intent(in) :: month
type(ESMF_CalKind_Flag), intent(in) :: calkindflag

Return Value integer(kind=esmf_kind_i8)

public function ndaysinyear(year, calkindflag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year
type(ESMF_CalKind_Flag), intent(in) :: calkindflag

Return Value integer

public function isleap(year, calkindflag)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: year
type(ESMF_CalKind_Flag) :: calkindflag

Return Value logical


Subroutines

public subroutine initdaym()

Arguments

None