| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_daysformonth.F |
138 |
CAL_DAYSFORMONTH |
currentyear = firstyear |
|
./pkg/cal/cal_daysformonth.F |
159 |
CAL_DAYSFORMONTH |
currentyear = firstyear |
|
./pkg/cal/cal_daysformonth.F |
53 |
CAL_DAYSFORMONTH |
integer firstyear |
|
./pkg/cal/cal_daysformonth.F |
75 |
CAL_DAYSFORMONTH |
lyfirst = cal_IsLeap( firstyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
80 |
CAL_DAYSFORMONTH |
firstyear = modelstartdate(1)/10000 |
|
./pkg/cal/cal_stepsforday.F |
58 |
CAL_STEPSFORDAY |
integer firstyear |
|
./pkg/cal/cal_stepsforday.F |
76 |
CAL_STEPSFORDAY |
lyfirst = cal_IsLeap( firstyear, mythid ) |
|
./pkg/cal/cal_stepsforday.F |
80 |
CAL_STEPSFORDAY |
firstyear = modelstartdate(1)/10000 |
|
./pkg/cal/cal_monthsforyear.F |
131 |
CAL_MONTHSFORYEAR |
if ( lastyear .eq. (firstyear + numyears - 1) ) then |
|
./pkg/cal/cal_monthsforyear.F |
143 |
CAL_MONTHSFORYEAR |
else if ( lastyear .eq. (firstyear + numyears) ) then |
|
./pkg/cal/cal_monthsforyear.F |
52 |
CAL_MONTHSFORYEAR |
integer firstyear |
|
./pkg/cal/cal_monthsforyear.F |
68 |
CAL_MONTHSFORYEAR |
firstyear = modelstartdate(1)/10000 |
|
./pkg/cal/cal_monthsforyear.F |
80 |
CAL_MONTHSFORYEAR |
if ( firstyear .eq. lastyear ) then |
|
./pkg/cal/cal_monthsforyear.F |
89 |
CAL_MONTHSFORYEAR |
else if ( firstyear+1 .eq. lastyear ) then |