507 |
#endif |
#endif |
508 |
lastdiva = .TRUE. |
lastdiva = .TRUE. |
509 |
|
|
510 |
#ifndef DISABLE_DEBUGMODE |
#ifdef ALLOW_DEBUG |
511 |
IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid) |
IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid) |
512 |
#endif |
#endif |
513 |
|
|
514 |
C-- This timer encompasses the whole code |
C-- This timer encompasses the whole code |
515 |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
516 |
|
|
517 |
#ifndef DISABLE_DEBUGMODE |
#ifdef ALLOW_DEBUG |
518 |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid) |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid) |
519 |
#endif |
#endif |
520 |
|
|
611 |
|
|
612 |
#else /* ALL AD-related undef */ |
#else /* ALL AD-related undef */ |
613 |
|
|
614 |
#ifndef DISABLE_DEBUGMODE |
#ifdef ALLOW_DEBUG |
615 |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
616 |
#endif |
#endif |
617 |
|
|
643 |
CALL COMM_STATS |
CALL COMM_STATS |
644 |
ENDIF |
ENDIF |
645 |
|
|
646 |
#ifndef DISABLE_DEBUGMODE |
#ifdef ALLOW_DEBUG |
647 |
IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid) |
IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid) |
648 |
#endif |
#endif |
649 |
|
|