697 |
#ifdef ALLOW_OBCSS_CONTROL |
#ifdef ALLOW_OBCSS_CONTROL |
698 |
c-- Southern obc. |
c-- Southern obc. |
699 |
|
|
|
_BEGIN_MASTER( mythid ) |
|
700 |
c------------------------------------------------------------------------------------------- |
c------------------------------------------------------------------------------------------- |
701 |
c-- |
c-- |
702 |
|
_BEGIN_MASTER( mythid ) |
703 |
#ifdef ALLOW_CALENDAR |
#ifdef ALLOW_CALENDAR |
704 |
call cal_TimePassed( xx_obcssstartdate, modelstartdate, |
call cal_TimePassed( xx_obcssstartdate, modelstartdate, |
705 |
& difftime, mythid ) |
& difftime, mythid ) |