98 |
C Everyone else must wait for the parameters to be loaded |
C Everyone else must wait for the parameters to be loaded |
99 |
_BARRIER |
_BARRIER |
100 |
|
|
|
#ifdef ALLOW_ECCO |
|
|
C- because of few (unfortunate) calendar settings in ECCO_READPARMS |
|
|
C needs this hack until ecco_readparms.F is cleaned up |
|
|
CALL CAL_SET( |
|
|
I startTime, endTime, deltaTclock, |
|
|
I nIter0, nEndIter, nTimeSteps, |
|
|
I myThid ) |
|
|
#endif /* ALLOW_ECCO */ |
|
|
|
|
101 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
102 |
IF (debugMode) CALL DEBUG_LEAVE('CAL_READPARMS',myThid) |
IF (debugMode) CALL DEBUG_LEAVE('CAL_READPARMS',myThid) |
103 |
#endif |
#endif |