101 |
|
|
102 |
namelist /CAL_NML/ |
namelist /CAL_NML/ |
103 |
& TheCalendar, |
& TheCalendar, |
104 |
& startDate_1,startDate_2 |
& startDate_1,startDate_2, |
105 |
|
& calendarDumps |
106 |
|
|
107 |
c (version 0.1.3 >> END << ) |
c (version 0.1.3 >> END << ) |
108 |
|
|
115 |
startdate_2 = 0 |
startdate_2 = 0 |
116 |
enddate_1 = 0 |
enddate_1 = 0 |
117 |
enddate_2 = 0 |
enddate_2 = 0 |
118 |
|
calendarDumps = .FALSE. |
119 |
|
|
120 |
c Next, read the calendar data file. |
c Next, read the calendar data file. |
121 |
WRITE(msgBuf,'(A)') 'CAL_READPARMS: opening data.cal' |
WRITE(msgBuf,'(A)') 'CAL_READPARMS: opening data.cal' |