File |
Line number |
Procedure |
Code |
./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 |
161 |
CAL_DAYSFORMONTH |
lastday = numdays + ndaymonth(currentmonth,lycurrent) |
./pkg/cal/cal_daysformonth.F |
192 |
CAL_DAYSFORMONTH |
lastday = numdays + ndaymonth(currentmonth,lycurrent) |
./pkg/cal/cal_daysformonth.F |
198 |
CAL_DAYSFORMONTH |
lastday = numdays + lastd - 1 |
./pkg/cal/cal_daysformonth.F |
200 |
CAL_DAYSFORMONTH |
lastday = numdays + lastd |
./pkg/cal/cal_daysformonth.F |
218 |
CAL_DAYSFORMONTH |
ndays = lastday - firstday + 1 |
./pkg/cal/cal_daysformonth.F |
43 |
CAL_DAYSFORMONTH |
integer lastday |
./pkg/cal/cal_daysformonth.F |
96 |
CAL_DAYSFORMONTH |
lastday = lastd - 1 |
./pkg/cal/cal_daysformonth.F |
98 |
CAL_DAYSFORMONTH |
lastday = lastd |
./pkg/cal/cal_daysformonth.F |
9 |
CAL_DAYSFORMONTH |
O lastday, |
./pkg/cal/cal_monthsforyear.F |
132 |
CAL_MONTHSFORYEAR |
if ( (lastday .eq. 1) .and. (lastsecs .eq. 0) ) then |
./pkg/cal/cal_monthsforyear.F |
56 |
CAL_MONTHSFORYEAR |
integer lastday |
./pkg/cal/cal_monthsforyear.F |
72 |
CAL_MONTHSFORYEAR |
lastday = mod(modelenddate(1),100) |
./pkg/cal/cal_monthsforyear.F |
81 |
CAL_MONTHSFORYEAR |
if ( (lastday .eq. 1) .and. (lastsecs .eq. 0) ) then |
./pkg/cal/cal_stepsforday.F |
63 |
CAL_STEPSFORDAY |
integer lastday |
./pkg/cal/cal_stepsforday.F |
83 |
CAL_STEPSFORDAY |
lastday = mod(modelenddate(1),100) |
./pkg/cal/cal_stepsforday.F |
95 |
CAL_STEPSFORDAY |
if ( firstday .eq. lastday ) then |
./pkg/cal/cal_stepsforday.F |
99 |
CAL_STEPSFORDAY |
& lastday ) then |