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 |
264 |
CALL CALC_EP_FORCING(myThid) |
CALL CALC_EP_FORCING(myThid) |
265 |
#endif |
#endif |
266 |
|
|
267 |
|
#ifdef ALLOW_AUTODIFF_MONITOR_DIAG |
268 |
|
CALL DUMMY_IN_DYNAMICS( mytime, myiter, myThid ) |
269 |
|
#endif |
270 |
|
|
271 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
272 |
C-- HPF directive to help TAMC |
C-- HPF directive to help TAMC |
273 |
CHPF$ INDEPENDENT |
CHPF$ INDEPENDENT |
643 |
C-- Step forward W field in N-H algorithm |
C-- Step forward W field in N-H algorithm |
644 |
IF ( nonHydrostatic ) THEN |
IF ( nonHydrostatic ) THEN |
645 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
646 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_CALL('CALC_GW', myThid ) |
|
& CALL DEBUG_CALL('CALC_GW', myThid ) |
|
647 |
#endif |
#endif |
648 |
CALL TIMER_START('CALC_GW [DYNAMICS]',myThid) |
CALL TIMER_START('CALC_GW [DYNAMICS]',myThid) |
649 |
CALL CALC_GW( |
CALL CALC_GW( |
663 |
ENDDO |
ENDDO |
664 |
|
|
665 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
666 |
c IF (useOBCS) THEN |
IF (useOBCS) THEN |
667 |
c CALL OBCS_PRESCRIBE_EXCHANGES(myThid) |
CALL OBCS_EXCHANGES( myThid ) |
668 |
c ENDIF |
ENDIF |
669 |
#endif |
#endif |
670 |
|
|
671 |
Cml( |
Cml( |
693 |
#endif /* ALLOW_DIAGNOSTICS */ |
#endif /* ALLOW_DIAGNOSTICS */ |
694 |
|
|
695 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
696 |
If ( debugLevel .GE. debLevB ) THEN |
IF ( debugLevel .GE. debLevB ) THEN |
697 |
CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid) |
CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid) |
698 |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
699 |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
723 |
#endif |
#endif |
724 |
|
|
725 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
726 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_LEAVE( 'DYNAMICS', myThid ) |
|
& CALL DEBUG_LEAVE( 'DYNAMICS', myThid ) |
|
727 |
#endif |
#endif |
728 |
|
|
729 |
RETURN |
RETURN |