78 |
c Determine the day of the week. |
c Determine the day of the week. |
79 |
call cal_TimePassed( refdate, date, numberofdays, mythid ) |
call cal_TimePassed( refdate, date, numberofdays, mythid ) |
80 |
date(4) = mod(numberofdays(1),7)+1 |
date(4) = mod(numberofdays(1),7)+1 |
81 |
|
else |
82 |
|
call cal_PrintError( calerr, mythid ) |
83 |
|
cml if you want the CheckDate error to stop the model uncomment |
84 |
|
cml the following line, otherwise there is just going to be a |
85 |
|
cml warning. |
86 |
|
cml stop ' stopped in cal_FullDate' |
87 |
endif |
endif |
88 |
|
|
89 |
return |
return |