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

Diff of /MITgcm/pkg/cal/cal.h

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

revision 1.7 by jmc, Thu Apr 5 21:59:03 2012 UTC revision 1.8 by jmc, Sun Apr 8 19:17:09 2012 UTC
# Line 20  C     ================================== Line 20  C     ==================================
20    
21  C   - Parameters of the numerical model:  C   - Parameters of the numerical model:
22  C  C
23  C     modelstart       - start time of the numerical model.  C     modelStart       :: start time of the numerical model.
24  C     modelstartdate   - start date of the numerical model.  C     modelStartDate   :: start date of the numerical model.
25  C     modelend         - end   time of the numerical model.  C     modelEnd         :: end   time of the numerical model.
26  C     modelenddate     - end   date of the numerical model.  C     modelEndDate     :: end   date of the numerical model.
27  C     modelstep        - timestep of the numerical model.  C     modelStep        :: timestep of the numerical model.
28  C     modelintsteps    - number of timestep that are to be performed.  C     modelIntSteps    :: number of timestep that are to be performed.
29  C     modeliter0       - the numerical models initial timestep number.  C     modelIter0       :: the numerical models initial timestep number.
30  C     modeliterend     - the models last timestep number.  C     modelIterEnd     :: the models last timestep number.
31  cC    modelstepsperday - number of model time steps per calendar day.  C     modelstepsperday :: number of model time steps per day (<- removed).
32    
33  C   - Parameters used by the calendar:  C   - Parameters used by the calendar:
34  C  C
35  C     refdate          - first day of the Gregorian Calendar.  C     refDate          :: first day of the Gregorian Calendar.
36  C     nmonthyear       - number months in a year.  C     nMonthYear       :: number months in a year.
37  C     ndaymonth        - days per month depending on the year being a  C     nDayMonth        :: days per month depending on the year being a leap
38  C                        leap year or not. If the Gregorian calendar is  C                         year or not. If the Model calendar is used a 360
39  C                        not used a 360 days year with 30 days months is  C                         days year with 30 days months is used instead.
40  C                        used instead.  C     nDaysNoLeap      :: number of days in a usual year.
41  C     ndaysnoleap      - number of days in a usual year.  C     nDaysLeap        :: number of days in a leap year.
42  C     ndaysleap        - number of days in a leap year.  C     nMaxDayMonth     :: maximum number of days in a years month.
43  C     nmaxdaymonth     - maximum number of days in a years month.  C     hoursPerDay      :: number of hours   in a calendars day.
44  C     hoursperday      - number of hours   in a calendars day.  C     minutesPerDay    :: number of minutes in a calendars day.
45  C     minutesperday    - number of minutes in a calendars day.  C     minutesPerHour   :: number of minutes in a calendars hour.
46  C     minutesperhour   - number of minutes in a calendars hour.  C     secondsPerDay    :: number of seconds in a calendars day.
47  C     secondsperday    - number of seconds in a calendars day.  C     secondsPerHour   :: number of seconds in a calendars hour.
48  C     secondsperhour   - number of seconds in a calendars hour.  C     secondsPerMinute :: number of seconds in a calendars minute.
 C     secondsperminute - number of seconds in a calendars minute.  
49  C     cal_setStatus    :: status of calendar parms setting (0=none, 3=fully set)  C     cal_setStatus    :: status of calendar parms setting (0=none, 3=fully set)
50    
51        COMMON /cal_rl/        INTEGER nMonthYear
52       &                modelstart,        PARAMETER ( nMonthYear = 12 )
53       &                modelend,  
54       &                modelstep        COMMON /CALENDAR_RL/
55        _RL modelstart       &                modelStart,
56        _RL modelend       &                modelEnd,
57        _RL modelstep       &                modelStep
58          _RL modelStart
59        COMMON /cal_i/        _RL modelEnd
60       &               refdate,        _RL modelStep
61       &               nmonthyear,  
62       &               ndaymonth,        COMMON /CALENDAR_I/
63       &               ndaysnoleap,       &               refDate,
64       &               ndaysleap,       &               nDayMonth,
65       &               nmaxdaymonth,       &               nDaysNoLeap,
66       &               hoursperday,       &               nDaysLeap,
67       &               minutesperday,       &               nMaxDayMonth,
68       &               minutesperhour,       &               hoursPerDay,
69       &               secondsperday,       &               minutesPerDay,
70       &               secondsperhour,       &               minutesPerHour,
71       &               secondsperminute,       &               secondsPerDay,
72       &               modelstartdate,       &               secondsPerHour,
73       &               modelenddate,       &               secondsPerMinute,
74       &               modeliter0,       &               modelStartDate,
75       &               modeliterend,       &               modelEndDate,
76       &               modelintsteps,       &               modelIter0,
77         &               modelIterEnd,
78         &               modelIntSteps,
79       &               cal_setStatus,       &               cal_setStatus,
80       &               startdate_1,       &               startdate_1,
81       &               startdate_2       &               startdate_2
82    
83        INTEGER refdate(4)        INTEGER refDate(4)
84        INTEGER nmonthyear        INTEGER nDayMonth(nMonthYear,2)
85        INTEGER ndaymonth(12,2)        INTEGER nDaysNoLeap
86        INTEGER ndaysnoleap        INTEGER nDaysLeap
87        INTEGER ndaysleap        INTEGER nMaxDayMonth
88        INTEGER nmaxdaymonth        INTEGER hoursPerDay
89        INTEGER hoursperday        INTEGER minutesPerDay
90        INTEGER minutesperday        INTEGER minutesPerHour
91        INTEGER minutesperhour        INTEGER secondsPerDay
92        INTEGER secondsperday        INTEGER secondsPerHour
93        INTEGER secondsperhour        INTEGER secondsPerMinute
94        INTEGER secondsperminute  
95          INTEGER modelStartDate(4)
96        INTEGER modelstartdate(4)        INTEGER modelEndDate(4)
97        INTEGER modelenddate(4)        INTEGER modelIter0
98        INTEGER modeliter0        INTEGER modelIterEnd
99        INTEGER modeliterend        INTEGER modelIntSteps
       INTEGER modelintsteps  
100    
101        INTEGER cal_setStatus        INTEGER cal_setStatus
102        INTEGER startdate_1        INTEGER startdate_1
# Line 106  C   calendarDumps :: When set, approxima Line 106  C   calendarDumps :: When set, approxima
106  C                    for parameters chkPtFreq, pChkPtFreq, taveFreq, SEAICE_taveFreq,  C                    for parameters chkPtFreq, pChkPtFreq, taveFreq, SEAICE_taveFreq,
107  C                    KPP_taveFreq, and freq in pkg/diagnostics are converted to exact  C                    KPP_taveFreq, and freq in pkg/diagnostics are converted to exact
108  C                    calendar months and years.  Requires pkg/cal.  C                    calendar months and years.  Requires pkg/cal.
109        COMMON /cal_l/        COMMON /CALENDAR_L/
110       &               calendarDumps,       &               calendarDumps,
111       &               usingModelCalendar,       &               usingModelCalendar,
112       &               usingJulianCalendar,       &               usingJulianCalendar,
# Line 116  C                    calendar months and Line 116  C                    calendar months and
116        LOGICAL usingJulianCalendar        LOGICAL usingJulianCalendar
117        LOGICAL usingGregorianCalendar        LOGICAL usingGregorianCalendar
118    
119  C     TheCalendar - type of calendar to use; available: 'model' or 'gregorian'.  C     TheCalendar :: type of calendar to use; available: 'model' or 'gregorian'.
120  C     dayofweek   - Week day number one is the week day of refdate.  C     dayOfWeek   :: Week day number one is the week day of refDate.
121  C                   For the Gregorian calendar this is Friday, 15-Oct-1582.  C                    For the Gregorian calendar this is Friday, 15-Oct-1582.
122  C     monthofyear - Both available calendars are assumed to have twelve  C     monthOfYear :: Both available calendars are assumed to have twelve
123  C                   months.  C                    months.
124        COMMON /calendar_ch/        COMMON /CALENDAR_C/
125       &                     TheCalendar,       &                     TheCalendar,
126       &                     dayofweek,       &                     dayOfWeek,
127       &                     monthofyear       &                     monthOfYear
128        CHARACTER*(9) TheCalendar        CHARACTER*(9) TheCalendar
129        CHARACTER*(3) dayofweek(7)        CHARACTER*(3) dayOfWeek(7)
130        CHARACTER*(3) monthofyear(12)        CHARACTER*(3) monthOfYear(nMonthYear)
131    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22