247 |
CEOP |
CEOP |
248 |
|
|
249 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
250 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_ENTER( 'DYNAMICS', myThid ) |
|
& CALL DEBUG_ENTER( 'DYNAMICS', myThid ) |
|
251 |
#endif |
#endif |
252 |
|
|
253 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
639 |
C-- Step forward W field in N-H algorithm |
C-- Step forward W field in N-H algorithm |
640 |
IF ( nonHydrostatic ) THEN |
IF ( nonHydrostatic ) THEN |
641 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
642 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_CALL('CALC_GW', myThid ) |
|
& CALL DEBUG_CALL('CALC_GW', myThid ) |
|
643 |
#endif |
#endif |
644 |
CALL TIMER_START('CALC_GW [DYNAMICS]',myThid) |
CALL TIMER_START('CALC_GW [DYNAMICS]',myThid) |
645 |
CALL CALC_GW( |
CALL CALC_GW( |
689 |
#endif /* ALLOW_DIAGNOSTICS */ |
#endif /* ALLOW_DIAGNOSTICS */ |
690 |
|
|
691 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
692 |
If ( debugLevel .GE. debLevB ) THEN |
IF ( debugLevel .GE. debLevB ) THEN |
693 |
CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid) |
CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid) |
694 |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
695 |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
719 |
#endif |
#endif |
720 |
|
|
721 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
722 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_LEAVE( 'DYNAMICS', myThid ) |
|
& CALL DEBUG_LEAVE( 'DYNAMICS', myThid ) |
|
723 |
#endif |
#endif |
724 |
|
|
725 |
RETURN |
RETURN |