| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_dayspermonth.F |
59 |
CAL_DAYSPERMONTH |
integer final |
|
./pkg/cal/cal_dayspermonth.F |
72 |
CAL_DAYSPERMONTH |
final = modelenddate(1)/100 |
|
./pkg/cal/cal_monthsperyear.F |
55 |
CAL_MONTHSPERYEAR |
integer final |
|
./pkg/cal/cal_monthsperyear.F |
62 |
CAL_MONTHSPERYEAR |
final = modelenddate(1)/10000 |
|
./pkg/cal/cal_monthsperyear.F |
64 |
CAL_MONTHSPERYEAR |
if (present .eq. final) then |
|
./pkg/cal/cal_monthsperyear.F |
66 |
CAL_MONTHSPERYEAR |
final = mod(modelenddate(1)/100,100) |
|
./pkg/cal/cal_monthsperyear.F |
70 |
CAL_MONTHSPERYEAR |
final = nmonthyear |
|
./pkg/cal/cal_monthsperyear.F |
73 |
CAL_MONTHSPERYEAR |
nmonths = final - present + 1 |
|
./pkg/cal/cal_stepsperday.F |
55 |
CAL_STEPSPERDAY |
integer final |
|
./pkg/cal/cal_stepsperday.F |
68 |
CAL_STEPSPERDAY |
final = modelenddate(1) |
|
./pkg/cal/cal_stepsperday.F |
70 |
CAL_STEPSPERDAY |
if (present .lt. final) then |
|
./pkg/cal/cal_stepsperday.F |
76 |
CAL_STEPSPERDAY |
else if (present .eq. final) then |