459 |
C myCurrentIter - Iteration counter for this thread |
C myCurrentIter - Iteration counter for this thread |
460 |
INTEGER myCurrentIter |
INTEGER myCurrentIter |
461 |
_RL myCurrentTime |
_RL myCurrentTime |
462 |
|
logical exst |
463 |
CEOP |
CEOP |
464 |
|
|
465 |
C-- This timer encompasses the whole code |
C-- This timer encompasses the whole code |
480 |
|
|
481 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
482 |
IF (myProcId .eq. 0) THEN |
IF (myProcId .eq. 0) THEN |
483 |
CALL TIMER_START('CTRL_UNPACK [THE_MODEL_MAIN]',mythid) |
inquire( file='divided.ctrl', exist=exst ) |
484 |
CALL CTRL_UNPACK( mycurrentiter, mycurrenttime, mythid ) |
IF ( .NOT. exst) THEN |
485 |
CALL TIMER_STOP ('CTRL_UNPACK [THE_MODEL_MAIN]',mythid) |
CALL TIMER_START('CTRL_UNPACK [THE_MODEL_MAIN]',mythid) |
486 |
|
CALL CTRL_UNPACK( mycurrentiter, mycurrenttime, mythid ) |
487 |
|
CALL TIMER_STOP ('CTRL_UNPACK [THE_MODEL_MAIN]',mythid) |
488 |
|
ENDIF |
489 |
ENDIF |
ENDIF |
490 |
_END_MASTER( mythid ) |
_END_MASTER( mythid ) |
491 |
_BARRIER |
_BARRIER |