3 |
|
|
4 |
#include "PACKAGES_CONFIG.h" |
#include "PACKAGES_CONFIG.h" |
5 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
6 |
|
#undef DYNAMICS_GUGV_EXCH_CHECK |
7 |
|
|
8 |
CBOP |
CBOP |
9 |
C !ROUTINE: DYNAMICS |
C !ROUTINE: DYNAMICS |
550 |
ENDIF |
ENDIF |
551 |
#endif |
#endif |
552 |
|
|
553 |
|
#ifdef DYNAMICS_GUGV_EXCH_CHECK |
554 |
|
C- jmc: For safety checking only: This Exchange here should not change |
555 |
|
C the solution. If solution changes, it means something is wrong, |
556 |
|
C but it does not mean that it is less wrong with this exchange. |
557 |
|
IF ( debugLevel .GT. debLevB ) THEN |
558 |
|
CALL EXCH_UV_XYZ_RL(gU,gV,.TRUE.,myThid) |
559 |
|
ENDIF |
560 |
|
#endif |
561 |
|
|
562 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
563 |
IF ( debugLevel .GE. debLevB ) |
IF ( debugLevel .GE. debLevB ) |
564 |
& CALL DEBUG_LEAVE( 'DYNAMICS', myThid ) |
& CALL DEBUG_LEAVE( 'DYNAMICS', myThid ) |