/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.124 by jmc, Sun Sep 11 20:52:09 2005 UTC revision 1.125 by jmc, Fri Sep 16 21:40:58 2005 UTC
# Line 3  C $Name$ Line 3  C $Name$
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
# Line 549  Cml) Line 550  Cml)
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 )
Legend:
Removed from v.1.124  
changed lines
  Added in v.1.125
  ViewVC Help
Powered by ViewVC 1.1.22