| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_daysformonth.F |
101 |
CAL_DAYSFORMONTH |
else if ( mod(firstmonth+1,nmonthyear) .eq. lastmonth ) then |
|
./pkg/cal/cal_daysformonth.F |
107 |
CAL_DAYSFORMONTH |
lastday = ndaymonth(firstmonth,lyfirst) |
|
./pkg/cal/cal_daysformonth.F |
133 |
CAL_DAYSFORMONTH |
lastday = ndaymonth(firstmonth,lyfirst) - firstd + 1 |
|
./pkg/cal/cal_daysformonth.F |
137 |
CAL_DAYSFORMONTH |
currentmonth = firstmonth |
|
./pkg/cal/cal_daysformonth.F |
139 |
CAL_DAYSFORMONTH |
numdays = ndaymonth(firstmonth,lyfirst) - firstd + 1 |
|
./pkg/cal/cal_daysformonth.F |
164 |
CAL_DAYSFORMONTH |
currentmonth = firstmonth |
|
./pkg/cal/cal_daysformonth.F |
166 |
CAL_DAYSFORMONTH |
numdays = ndaymonth(firstmonth,lyfirst) - firstd + 1 |
|
./pkg/cal/cal_daysformonth.F |
54 |
CAL_DAYSFORMONTH |
integer firstmonth |
|
./pkg/cal/cal_daysformonth.F |
81 |
CAL_DAYSFORMONTH |
firstmonth = mod(modelstartdate(1)/100,100) |
|
./pkg/cal/cal_daysformonth.F |
93 |
CAL_DAYSFORMONTH |
if ( firstmonth .eq. lastmonth ) then |
|
./pkg/cal/cal_monthsforyear.F |
120 |
CAL_MONTHSFORYEAR |
firstmonth = 1 |
|
./pkg/cal/cal_monthsforyear.F |
125 |
CAL_MONTHSFORYEAR |
firstmonth = (nmonthyear - firstmon + 1) + |
|
./pkg/cal/cal_monthsforyear.F |
141 |
CAL_MONTHSFORYEAR |
firstmonth = (nmonthyear - firstmon + 1) + |
|
./pkg/cal/cal_monthsforyear.F |
148 |
CAL_MONTHSFORYEAR |
firstmonth = (nmonthyear - firstmon) + |
|
./pkg/cal/cal_monthsforyear.F |
179 |
CAL_MONTHSFORYEAR |
nmonths = lastmonth - firstmonth + 1 |
|
./pkg/cal/cal_monthsforyear.F |
43 |
CAL_MONTHSFORYEAR |
integer firstmonth |
|
./pkg/cal/cal_monthsforyear.F |
88 |
CAL_MONTHSFORYEAR |
firstmonth = 1 |
|
./pkg/cal/cal_monthsforyear.F |
8 |
CAL_MONTHSFORYEAR |
O firstmonth, |
|
./pkg/cal/cal_monthsforyear.F |
95 |
CAL_MONTHSFORYEAR |
firstmonth = 1 |
|
./pkg/cal/cal_stepsforday.F |
59 |
CAL_STEPSFORDAY |
integer firstmonth |
|
./pkg/cal/cal_stepsforday.F |
81 |
CAL_STEPSFORDAY |
firstmonth = mod(modelstartdate(1)/100,100) |
|
./pkg/cal/cal_stepsforday.F |
98 |
CAL_STEPSFORDAY |
else if ( mod(firstday+1,ndaymonth(firstmonth,lyfirst)) .eq. |