/[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.7 - (show annotations) (download)
Thu Apr 5 21:59:03 2012 UTC (12 years, 2 months ago) by jmc
Branch: MAIN
Changes since 1.6: +8 -10 lines
File MIME type: text/plain 
- move calendar setting & summary (previously in cal_readparams.F) into new
  S/R CAL_INIT_FIXED to be called later in the initialisation process, once
  length of the simulation is set (after SET_PARMS call); This is an atempt
  to fix Pb when, e.g.: pkg/longstep, modifies the length of the run.
- For safety: keep a reccord of pkg/cal parameter settings status
           to allow to STOP if one pkg/cal S/R is called too early.
- adjust list of vars stored in "cal.h" (add: TheCalendar & cal_setStatus;
         remove usingNoCalendar & calendarversion)
1 C $Header: /u/gcmpack/MITgcm/pkg/cal/cal.h,v 1.6 2012/04/03 15:20:29 jmc Exp $
2 C $Name: $
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 changed: Christian Eckert eckert@mit.edu 17-Dec-1999
14 C - restructured the original version in order to have a
15 C better interface to the MITgcmUV.
16 C
17 C ==================================================================
18 C HEADER calendar
19 C ==================================================================
20
21 C - Parameters of the numerical model:
22 C
23 C modelstart - start time of the numerical model.
24 C modelstartdate - start date of the numerical model.
25 C modelend - end time of the numerical model.
26 C modelenddate - end date of the numerical model.
27 C modelstep - timestep of the numerical model.
28 C modelintsteps - number of timestep that are to be performed.
29 C modeliter0 - the numerical models initial timestep number.
30 C modeliterend - the models last timestep number.
31 cC modelstepsperday - number of model time steps per calendar day.
32
33 C - Parameters used by the calendar:
34 C
35 C refdate - first day of the Gregorian Calendar.
36 C nmonthyear - number months in a year.
37 C ndaymonth - days per month depending on the year being a
38 C leap year or not. If the Gregorian calendar is
39 C not used a 360 days year with 30 days months is
40 C used instead.
41 C ndaysnoleap - number of days in a usual year.
42 C ndaysleap - number of days in a leap year.
43 C nmaxdaymonth - maximum number of days in a years month.
44 C hoursperday - number of hours in a calendars day.
45 C minutesperday - number of minutes in a calendars day.
46 C minutesperhour - number of minutes in a calendars hour.
47 C secondsperday - number of seconds in a calendars day.
48 C secondsperhour - number of seconds in a calendars hour.
49 C secondsperminute - number of seconds in a calendars minute.
50 C cal_setStatus :: status of calendar parms setting (0=none, 3=fully set)
51
52 COMMON /cal_rl/
53 & modelstart,
54 & modelend,
55 & modelstep
56 _RL modelstart
57 _RL modelend
58 _RL modelstep
59
60 COMMON /cal_i/
61 & refdate,
62 & nmonthyear,
63 & ndaymonth,
64 & ndaysnoleap,
65 & ndaysleap,
66 & nmaxdaymonth,
67 & hoursperday,
68 & minutesperday,
69 & minutesperhour,
70 & secondsperday,
71 & secondsperhour,
72 & secondsperminute,
73 & modelstartdate,
74 & modelenddate,
75 & modeliter0,
76 & modeliterend,
77 & modelintsteps,
78 & cal_setStatus,
79 & startdate_1,
80 & startdate_2
81
82 INTEGER refdate(4)
83 INTEGER nmonthyear
84 INTEGER ndaymonth(12,2)
85 INTEGER ndaysnoleap
86 INTEGER ndaysleap
87 INTEGER nmaxdaymonth
88 INTEGER hoursperday
89 INTEGER minutesperday
90 INTEGER minutesperhour
91 INTEGER secondsperday
92 INTEGER secondsperhour
93 INTEGER secondsperminute
94
95 INTEGER modelstartdate(4)
96 INTEGER modelenddate(4)
97 INTEGER modeliter0
98 INTEGER modeliterend
99 INTEGER modelintsteps
100
101 INTEGER cal_setStatus
102 INTEGER startdate_1
103 INTEGER startdate_2
104
105 C calendarDumps :: When set, approximate months (30-31 days) and years (360-372 days)
106 C for parameters chkPtFreq, pChkPtFreq, taveFreq, SEAICE_taveFreq,
107 C KPP_taveFreq, and freq in pkg/diagnostics are converted to exact
108 C calendar months and years. Requires pkg/cal.
109 COMMON /cal_l/
110 & calendarDumps,
111 & usingModelCalendar,
112 & usingJulianCalendar,
113 & usingGregorianCalendar
114 LOGICAL calendarDumps
115 LOGICAL usingModelCalendar
116 LOGICAL usingJulianCalendar
117 LOGICAL usingGregorianCalendar
118
119 C TheCalendar - type of calendar to use; available: 'model' or 'gregorian'.
120 C dayofweek - Week day number one is the week day of refdate.
121 C For the Gregorian calendar this is Friday, 15-Oct-1582.
122 C monthofyear - Both available calendars are assumed to have twelve
123 C months.
124 COMMON /calendar_ch/
125 & TheCalendar,
126 & dayofweek,
127 & monthofyear
128 CHARACTER*(9) TheCalendar
129 CHARACTER*(3) dayofweek(7)
130 CHARACTER*(3) monthofyear(12)
131
  ViewVC Help
Powered by ViewVC 1.1.22