462 |
logical exst |
logical exst |
463 |
logical lastdiva |
logical lastdiva |
464 |
CEOP |
CEOP |
465 |
|
c-- set default: |
466 |
|
lastdiva = .TRUE. |
467 |
|
|
468 |
C-- This timer encompasses the whole code |
C-- This timer encompasses the whole code |
469 |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
528 |
|
|
529 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
530 |
IF ( myProcId .eq. 0 .AND. lastdiva ) THEN |
IF ( myProcId .eq. 0 .AND. lastdiva ) THEN |
531 |
CALL TIMER_START('CTLR_PACK [THE_MODEL_MAIN]',mythid) |
CALL TIMER_START('CTRL_PACK [THE_MODEL_MAIN]',mythid) |
532 |
call CTRL_PACK( mycurrentiter, mycurrenttime, mythid ) |
call CTRL_PACK( mycurrentiter, mycurrenttime, mythid ) |
533 |
CALL TIMER_STOP ('CTLR_PACK [THE_MODEL_MAIN]',mythid) |
CALL TIMER_STOP ('CTRL_PACK [THE_MODEL_MAIN]',mythid) |
534 |
ENDIF |
ENDIF |
535 |
_END_MASTER( mythid ) |
_END_MASTER( mythid ) |
536 |
_BARRIER |
_BARRIER |