PRISM_calendar Module Reference

Data Types
type	julian_date
Functions/Subroutines
subroutine	psmile_addtime (date_in, date_inc, date_out)
subroutine	psmile_subtime (date_in, date_inc, date_out)
subroutine	psmile_date2ju (date, julian_day, julian_seconds)
subroutine	psmile_ju2date (date, julian_day, julian_seconds)
subroutine	Set_JulianDay (ky, km, kd, sec, my_day)
subroutine	Set_JulianCalendar (my_day, ky, km, kd, sec)
subroutine	Get_JulianYearDay (my_day, kjy, kd, sec)
INTEGER	Get_JulianYearLen (ky)
INTEGER	Get_JulianMonLen (ky, km)
subroutine	Print_JulianDay (my_day)
Double Precision	sec2frac (sec)
Double Precision	frac2sec (zfrac)
subroutine	Get_MonDay (days, km, kd)
Variables
INTEGER, parameter	dp = SELECTED_REAL_KIND(12
LOGICAL, parameter	eq_months = .false.
LOGICAL, parameter	eq_years = .false.
INTEGER, parameter	IDAYLEN = 86400

Function/Subroutine Documentation

Double Precision PRISM_calendar::frac2sec ( Double Precision,intent(in) zfrac ) [private]

Definition at line 681 of file prism_calendar.F90.

Referenced by Set_JulianCalendar().

Here is the caller graph for this function:

INTEGER PRISM_calendar::Get_JulianMonLen	(	INTEGER,intent(in)	ky,
		INTEGER,intent(in)	km
	)			`[private]`

Definition at line 609 of file prism_calendar.F90.

References eq_months.

Referenced by Set_JulianDay().

Here is the caller graph for this function:

subroutine PRISM_calendar::Get_JulianYearDay	(	TYPE (julian_date),intent(in)	my_day,
		INTEGER,intent(out)	kjy,
		INTEGER,intent(out)	kd,
		Double Precision,intent(out)	sec
	)			`[private]`

Definition at line 525 of file prism_calendar.F90.

References Set_JulianCalendar(), and Set_JulianDay().

Here is the call graph for this function:

INTEGER PRISM_calendar::Get_JulianYearLen ( INTEGER,intent(in) ky ) [private]

Definition at line 575 of file prism_calendar.F90.

References eq_months, and eq_years.

subroutine PRISM_calendar::Get_MonDay	(	Double Precision,intent(in)	days,
		INTEGER,intent(out)	km,
		INTEGER,intent(out)	kd
	)			`[private]`

Definition at line 698 of file prism_calendar.F90.

Referenced by Set_JulianCalendar().

Here is the caller graph for this function:

subroutine PRISM_calendar::Print_JulianDay ( TYPE (julian_date),intent(in) my_day ) [private]

Definition at line 648 of file prism_calendar.F90.

subroutine PRISM_calendar::psmile_addtime	(	Double Precision,dimension(2),intent(in)	date_in,
		Double Precision,dimension(2),intent(in)	date_inc,
		Double Precision,dimension(2),intent(out)	date_out
	)

Definition at line 157 of file prism_calendar.F90.

subroutine PRISM_calendar::psmile_date2ju	(	TYPE (PRISM_Time_Struct),intent(in)	date,
		REAL (PSMILe_float_kind),intent(out)	julian_day,
		REAL (PSMILe_float_kind),intent(out)	julian_seconds
	)

Definition at line 213 of file prism_calendar.F90.

References Set_JulianDay().

Referenced by prism_calc_newdate_double(), prism_calc_newdate_int(), prism_calc_newdate_real(), prism_get(), prism_put(), prism_put_inquire(), prism_put_restart(), psmile_check_action(), psmile_create_timeaxis(), psmile_get_restart(), psmile_open_file_byid(), psmile_put_dble(), psmile_put_int(), psmile_put_real(), and psmile_write_meta_byid().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine PRISM_calendar::psmile_ju2date	(	TYPE (PRISM_Time_Struct),intent(out)	date,
		REAL (PSMILe_float_kind),intent(in)	julian_day,
		REAL (PSMILe_float_kind),intent(in)	julian_seconds
	)

Definition at line 269 of file prism_calendar.F90.

References sec2frac(), and Set_JulianCalendar().

Referenced by prism_calc_newdate_double(), prism_calc_newdate_int(), prism_calc_newdate_real(), psmile_check_action(), and psmile_create_timeaxis().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine PRISM_calendar::psmile_subtime	(	Double Precision,dimension(2),intent(in)	date_in,
		Double Precision,dimension(2),intent(in)	date_inc,
		Double Precision,dimension(2),intent(out)	date_out
	)

Definition at line 185 of file prism_calendar.F90.

Double Precision PRISM_calendar::sec2frac ( Double Precision,intent(in) sec ) [private]

Definition at line 664 of file prism_calendar.F90.

Referenced by psmile_ju2date(), and Set_JulianDay().

Here is the caller graph for this function:

subroutine PRISM_calendar::Set_JulianCalendar	(	TYPE (julian_date),intent(in)	my_day,
		INTEGER,intent(out)	ky,
		INTEGER,intent(out)	km,
		INTEGER,intent(out)	kd,
		Double Precision,intent(out)	sec
	)			`[private]`

Definition at line 439 of file prism_calendar.F90.

References eq_months, eq_years, frac2sec(), Get_MonDay(), and not.

Referenced by Get_JulianYearDay(), and psmile_ju2date().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine PRISM_calendar::Set_JulianDay	(	INTEGER,intent(in)	ky,
		INTEGER,intent(in)	km,
		INTEGER,intent(in)	kd,
		Double Precision,intent(in)	sec,
		TYPE (julian_date),intent(out)	my_day
	)			`[private]`