504 |
CALL COST_DEPENDENT_INIT ( mythid ) |
CALL COST_DEPENDENT_INIT ( mythid ) |
505 |
_BARRIER |
_BARRIER |
506 |
|
|
507 |
#if ( defined (ALLOW_ADJOINT_RUN) || \ |
#ifndef ALLOW_TANGENTLINEAR_RUN |
508 |
defined (ALLOW_ECCO_OPTIMIZATION) ) |
c |
509 |
# ifdef ALLOW_DIVIDED_ADJOINT |
# if ( defined (ALLOW_ADJOINT_RUN) || \ |
510 |
|
defined (ALLOW_ECCO_OPTIMIZATION) ) |
511 |
|
# ifdef ALLOW_DIVIDED_ADJOINT |
512 |
c-- The following assumes the TAF option '-pure' |
c-- The following assumes the TAF option '-pure' |
513 |
inquire( file='costfinal', exist=exst ) |
inquire( file='costfinal', exist=exst ) |
514 |
IF ( .NOT. exst) THEN |
IF ( .NOT. exst) THEN |
523 |
CALL COST_FINAL_RESTORE ( mythid, lastdiva ) |
CALL COST_FINAL_RESTORE ( mythid, lastdiva ) |
524 |
ENDIF |
ENDIF |
525 |
c-- |
c-- |
526 |
# else |
# else /* ALLOW_DIVIDED_ADJOINT undef */ |
527 |
CALL TIMER_START('ADTHE_MAIN_LOOP [ADJOINT RUN]', mythid) |
CALL TIMER_START('ADTHE_MAIN_LOOP [ADJOINT RUN]', mythid) |
528 |
CALL ADTHE_MAIN_LOOP ( mythid ) |
CALL ADTHE_MAIN_LOOP ( mythid ) |
529 |
CALL TIMER_STOP ('ADTHE_MAIN_LOOP [ADJOINT RUN]', mythid) |
CALL TIMER_STOP ('ADTHE_MAIN_LOOP [ADJOINT RUN]', mythid) |
530 |
|
# endif /* ALLOW_DIVIDED_ADJOINT */ |
531 |
# endif |
# endif |
532 |
c-- |
c-- |
533 |
#elif (defined (ALLOW_TANGENTLINEAR_RUN)) |
#else /* ALLOW_TANGENTLINEAR_RUN defined */ |
534 |
CALL TIMER_START('G_THE_MAIN_LOOP [TANGENT RUN]',mythid) |
CALL TIMER_START('G_THE_MAIN_LOOP [TANGENT RUN]',mythid) |
535 |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
536 |
CALL TIMER_STOP ('G_THE_MAIN_LOOP [TANGENT RUN]',mythid) |
CALL TIMER_STOP ('G_THE_MAIN_LOOP [TANGENT RUN]',mythid) |
537 |
#endif |
#endif /* ALLOW_TANGENTLINEAR_RUN */ |
538 |
_BARRIER |
_BARRIER |
539 |
|
|
540 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |