352 |
c A next set of checks of the user specifications. |
c A next set of checks of the user specifications. |
353 |
c Number of possible modelsteps per calendar day. |
c Number of possible modelsteps per calendar day. |
354 |
modelstepsperday = cal_nStepDay(mythid) |
modelstepsperday = cal_nStepDay(mythid) |
355 |
if (modelstepsperday .eq. 0 ) then |
cdm if (modelstepsperday .eq. 0 ) then |
356 |
ierr = 105 |
cdm ierr = 105 |
357 |
call cal_PrintError( ierr, mythid ) |
cdm call cal_PrintError( ierr, mythid ) |
358 |
stop ' stopped in cal_Set.' |
cdm stop ' stopped in cal_Set.' |
359 |
endif |
cdm endif |
360 |
|
|
361 |
c Complete the start date specification to get a full date array. |
c Complete the start date specification to get a full date array. |
362 |
call cal_FullDate( modstartdate_1, modstartdate_2, |
call cal_FullDate( modstartdate_1, modstartdate_2, |