465 |
|
|
466 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
467 |
# include "tamc.h" |
# include "tamc.h" |
468 |
|
#endif |
469 |
|
#ifdef ALLOW_CTRL |
470 |
# include "optim.h" |
# include "optim.h" |
471 |
#endif |
#endif |
472 |
|
|
572 |
CALL TIMER_STOP ('ADTHE_MAIN_LOOP [ADJOINT RUN]', mythid) |
CALL TIMER_STOP ('ADTHE_MAIN_LOOP [ADJOINT RUN]', mythid) |
573 |
# endif /* ALLOW_DIVIDED_ADJOINT */ |
# endif /* ALLOW_DIVIDED_ADJOINT */ |
574 |
c |
c |
575 |
|
# else /* forward run only within AD setting */ |
576 |
|
|
577 |
|
#ifdef ALLOW_DEBUG |
578 |
|
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
579 |
|
#endif |
580 |
|
C-- Call time stepping loop of full model |
581 |
|
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
582 |
|
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
583 |
|
CALL TIMER_STOP ('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
584 |
|
|
585 |
# endif |
# endif |
586 |
|
|
587 |
# ifndef EXCLUDE_CTRL_PACK |
# ifndef EXCLUDE_CTRL_PACK |
610 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
611 |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
612 |
#endif |
#endif |
|
|
|
613 |
C-- Call time stepping loop of full model |
C-- Call time stepping loop of full model |
614 |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
615 |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |