517 |
myCurrentTime = startTime |
myCurrentTime = startTime |
518 |
myCurrentIter = nIter0 |
myCurrentIter = nIter0 |
519 |
|
|
520 |
#if ( defined (ALLOW_ADMTLM_RUN) ) |
#if ( defined (ALLOW_ADMTLM) ) |
521 |
c |
c |
522 |
CALL TIMER_START('ADMTLM_DRIVER [THE_MODEL_MAIN]',mythid) |
CALL TIMER_START('ADMTLM_DRIVER [THE_MODEL_MAIN]',mythid) |
523 |
CALL ADMTLM_DRIVER ( myThid ) |
CALL ADMTLM_DRIVER ( myThid ) |
524 |
CALL TIMER_STOP ('ADMTLM_DRIVER [THE_MODEL_MAIN]',mythid) |
CALL TIMER_STOP ('ADMTLM_DRIVER [THE_MODEL_MAIN]',mythid) |
525 |
c |
c |
526 |
#elif ( defined (ALLOW_ADJOINT_RUN) || \ |
#elif ( defined (ALLOW_AUTODIFF)) |
|
defined (ALLOW_TANGENTLINEAR_RUN) || \ |
|
|
defined (ALLOW_GRADIENT_CHECK) || \ |
|
|
defined (ALLOW_ECCO_OPTIMIZATION) ) |
|
527 |
|
|
528 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
529 |
IF (myProcId .eq. 0) THEN |
IF (myProcId .eq. 0) THEN |
582 |
_BARRIER |
_BARRIER |
583 |
c |
c |
584 |
|
|
585 |
# ifdef ALLOW_GRADIENT_CHECK |
# ifdef ALLOW_GRDCHK |
586 |
IF ( useGrdchk .AND. lastdiva ) THEN |
IF ( useGrdchk .AND. lastdiva ) THEN |
587 |
CALL TIMER_START('GRDCHK_MAIN [THE_MODEL_MAIN]',mythid) |
CALL TIMER_START('GRDCHK_MAIN [THE_MODEL_MAIN]',mythid) |
588 |
CALL GRDCHK_MAIN( mythid ) |
CALL GRDCHK_MAIN( mythid ) |