| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_daysformonth.F |
100 |
CAL_DAYSFORMONTH |
firstday = 1 |
|
./pkg/cal/cal_daysformonth.F |
106 |
CAL_DAYSFORMONTH |
firstday = firstd |
|
./pkg/cal/cal_daysformonth.F |
132 |
CAL_DAYSFORMONTH |
firstday = 1 |
|
./pkg/cal/cal_daysformonth.F |
154 |
CAL_DAYSFORMONTH |
firstday = numdays + 1 |
|
./pkg/cal/cal_daysformonth.F |
191 |
CAL_DAYSFORMONTH |
firstday = numdays + 1 |
|
./pkg/cal/cal_daysformonth.F |
206 |
CAL_DAYSFORMONTH |
ndays = lastday - firstday + 1 |
|
./pkg/cal/cal_daysformonth.F |
42 |
CAL_DAYSFORMONTH |
integer firstday |
|
./pkg/cal/cal_daysformonth.F |
8 |
CAL_DAYSFORMONTH |
O firstday, |
|
./pkg/cal/cal_stepsforday.F |
60 |
CAL_STEPSFORDAY |
integer firstday |
|
./pkg/cal/cal_stepsforday.F |
82 |
CAL_STEPSFORDAY |
firstday = mod(modelstartdate(1),100) |
|
./pkg/cal/cal_stepsforday.F |
93 |
CAL_STEPSFORDAY |
if ( iday .eq. firstday ) then |
|
./pkg/cal/cal_stepsforday.F |
95 |
CAL_STEPSFORDAY |
if ( firstday .eq. lastday ) then |
|
./pkg/cal/cal_stepsforday.F |
98 |
CAL_STEPSFORDAY |
else if ( mod(firstday+1,ndaymonth(firstmonth,lyfirst)) .eq. |