/[MITgcm]/MITgcm/pkg/cal/cal.h
ViewVC logotype

Contents of /MITgcm/pkg/cal/cal.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (show annotations) (download)
Mon May 14 22:07:26 2001 UTC (23 years ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint51k_post, checkpoint47e_post, checkpoint44e_post, hrcube4, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, release1_p13_pre, checkpoint50c_post, checkpoint46f_post, checkpoint52d_pre, checkpoint48e_post, checkpoint50c_pre, checkpoint44f_post, checkpoint46b_post, checkpoint52j_pre, checkpoint43a-release1mods, checkpoint51o_pre, ecco_c50_e32, ecco_c50_e33, ecco_c50_e30, ecco_c50_e31, release1_p13, checkpoint40pre3, checkpoint40pre1, checkpoint51l_post, checkpoint40pre7, checkpoint40pre6, checkpoint48i_post, checkpoint40pre9, checkpoint40pre8, checkpoint46l_pre, checkpoint52k_post, chkpt44d_post, checkpoint51, checkpoint50, checkpoint52, release1_p8, release1_p9, checkpoint50d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint52f_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint51f_post, release1_b1, ecco_c51_e34d, ecco_c51_e34e, ecco_c51_e34f, ecco_c51_e34g, ecco_c51_e34a, ecco_c51_e34b, ecco_c51_e34c, checkpoint48b_post, checkpoint43, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint51t_post, checkpoint51n_post, release1_chkpt44d_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint47a_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint52e_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint47d_post, icebear5, icebear4, icebear3, icebear2, checkpoint46d_pre, checkpoint40pre2, checkpoint48d_post, release1-branch_tutorials, checkpoint48f_post, checkpoint45d_post, checkpoint52b_pre, checkpoint46j_pre, checkpoint51l_pre, chkpt44a_post, checkpoint44h_pre, checkpoint48h_post, checkpoint51q_post, checkpoint40pre4, ecco_c50_e29, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, ecco_c50_e28, chkpt44c_pre, checkpoint48a_post, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint52f_pre, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, release1_p12, release1_p10, release1_p11, release1_p16, release1_p17, release1_p14, release1_p15, checkpoint47j_post, ecco_c50_e33a, branch-exfmods-tag, checkpoint44g_post, branchpoint-genmake2, checkpoint46e_pre, checkpoint51r_post, checkpoint48c_post, checkpoint45b_post, checkpoint46b_pre, checkpoint51i_post, release1-branch-end, release1_final_v1, checkpoint51b_post, checkpoint51c_post, checkpoint46c_pre, checkpoint46, checkpoint47b_post, checkpoint44b_post, ecco_c51_e34, checkpoint46h_pre, checkpoint52d_post, checkpoint46m_post, checkpoint46a_pre, checkpoint50g_post, checkpoint45c_post, ecco_ice2, ecco_ice1, checkpoint44h_post, checkpoint46g_post, release1_p12_pre, checkpoint39, checkpoint52a_pre, ecco_c44_e22, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, ecco_c44_e25, checkpoint51i_pre, checkpoint52h_pre, checkpoint40pre5, checkpoint52j_post, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, checkpoint46i_post, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, checkpoint46c_post, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, branch-netcdf, checkpoint50d_pre, checkpoint46e_post, release1_beta1, checkpoint51e_post, checkpoint44b_pre, checkpoint42, checkpoint40, checkpoint41, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint51o_post, checkpoint51f_pre, chkpt44c_post, checkpoint48g_post, checkpoint47h_post, checkpoint52a_post, checkpoint44f_pre, checkpoint51g_post, ecco_c52_e35, checkpoint46d_post, checkpoint50b_post, release1-branch_branchpoint, checkpoint51m_post, checkpoint51a_post, checkpoint51p_post, checkpoint51u_post
Branch point for: c24_e25_ice, branch-exfmods-curt, release1_final, release1-branch, branch-genmake2, release1, branch-nonh, tg2-branch, ecco-branch, release1_50yr, netcdf-sm0, icebear, checkpoint51n_branch, release1_coupled
File MIME type: text/plain 
Added calendar package.
Not currently supported by mitgcm, i.e. disabled by default.
1 C $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/cal/cal.h,v 1.3 2000/10/23 16:32:12 heimbach Exp $
2
3
4 c ==================================================================
5 c HEADER calendar
6 c ==================================================================
7 c
8 c o This header file contains variables that are used by the
9 c calendar tool. The calendar tool can be used in the ECCO
10 c SEALION release of the MITgcmUV.
11 c
12 c started: Christian Eckert eckert@mit.edu 30-Jun-1999
13 c
14 c changed: Christian Eckert eckert@mit.edu 17-Dec-1999
15 c - restructured the original version in order to have a
16 c better interface to the MITgcmUV.
17 c
18 c ==================================================================
19 c HEADER calendar
20 c ==================================================================
21 c
22 c - The calendar version:
23 c
24 character*(5) calendarversion
25 parameter( calendarversion = '0.2.0' )
26
27 c - Parameters of the numerical model:
28 c
29 c modelstart - start time of the numerical model.
30 c modelstartdate - start date of the numerical model.
31 c modelend - end time of the numerical model.
32 c modelenddate - end date of the numerical model.
33 c modelstep - timestep of the numerical model.
34 c modelintsteps - number of timestep that are to be performed.
35 c modeliter0 - the numerical model's initial timestep number.
36 c modeliterend - the model's last timestep number.
37 c modelstepsperday - number of model time steps per calendar day.
38 c
39 c
40 c - Parameters used by the calendar:
41 c
42 c refdate - first day of the Gregorian Calendar.
43 c nmonthyear - number months in a year.
44 c ndaymonth - days per month depending on the year being a
45 c leap year or not. If the Gregorian calendar is
46 c not used a 360 days year with 30 days months is
47 c used instead.
48 c ndaysnoleap - number of days in a usual year.
49 c ndaysleap - number of days in a leap year.
50 c nmaxdaymonth - maximum number of days in a year's month.
51 c hoursperday - number of hours in a calendar's day.
52 c minutesperday - number of minutes in a calendar's day.
53 c minutesperhour - number of minutes in a calendar's hour.
54 c secondsperday - number of seconds in a calendar's day.
55 c secondsperhour - number of seconds in a calendar's hour.
56 c secondsperminute - number of seconds in a calendar's minute.
57
58
59 common /cal_rl/
60 & modelstart,
61 & modelend,
62 & modelstep
63
64 _RL modelstart
65 _RL modelend
66 _RL modelstep
67
68 common /cal_i/
69 & refdate,
70 & nmonthyear,
71 & ndaymonth,
72 & ndaysnoleap,
73 & ndaysleap,
74 & nmaxdaymonth,
75 & hoursperday,
76 & minutesperday,
77 & minutesperhour,
78 & secondsperday,
79 & secondsperhour,
80 & secondsperminute,
81 & modelstartdate,
82 & modelenddate,
83 & modeliter0,
84 & modeliterend,
85 & modelintsteps,
86 & modelstepsperday
87
88 integer refdate(4)
89 integer nmonthyear
90 integer ndaymonth(12,2)
91 integer ndaysnoleap
92 integer ndaysleap
93 integer nmaxdaymonth
94 integer hoursperday
95 integer minutesperday
96 integer minutesperhour
97 integer secondsperday
98 integer secondsperhour
99 integer secondsperminute
100
101 integer modelstartdate(4)
102 integer modelenddate(4)
103 integer modeliter0
104 integer modeliterend
105 integer modelintsteps
106 integer modelstepsperday
107
108
109 common /cal_l/
110 & usingNoCalendar,
111 & usingModelCalendar,
112 & usingJulianCalendar,
113 & usingGregorianCalendar
114
115 logical usingNoCalendar
116 logical usingModelCalendar
117 logical usingJulianCalendar
118 logical usingGregorianCalendar
119
120
121 c dayofweek - Week day number one is the week day of refdate.
122 c For the Gregorian calendar this is Friday, 15-Oct-1582.
123 c
124 c monthofyear - Both available calendars are assumed to have twelve
125 c months.
126
127 common /calendar_ch/
128 & dayofweek,
129 & monthofyear
130
131 character*(3) dayofweek(7)
132 character*(3) monthofyear(12)
133
134
135
  ViewVC Help
Powered by ViewVC 1.1.22