/[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.157 by jmc, Tue May 24 20:25:33 2011 UTC revision 1.158 by jmc, Wed Jun 8 01:21:14 2011 UTC
# Line 682  Cml) Line 682  Cml)
682  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
683    
684  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
685        IF ( debugLevel .GE. debLevB ) THEN        IF ( debugLevel .GE. debLevD ) THEN
686         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)
687         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid)
688         CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid)
# Line 706  Cml) Line 706  Cml)
706  C- jmc: For safety checking only: This Exchange here should not change  C- jmc: For safety checking only: This Exchange here should not change
707  C       the solution. If solution changes, it means something is wrong,  C       the solution. If solution changes, it means something is wrong,
708  C       but it does not mean that it is less wrong with this exchange.  C       but it does not mean that it is less wrong with this exchange.
709        IF ( debugLevel .GT. debLevB ) THEN        IF ( debugLevel .GE. debLevE ) THEN
710         CALL EXCH_UV_XYZ_RL(gU,gV,.TRUE.,myThid)         CALL EXCH_UV_XYZ_RL(gU,gV,.TRUE.,myThid)
711        ENDIF        ENDIF
712  #endif  #endif
Legend:
Removed from v.1.157  
changed lines
  Added in v.1.158
  ViewVC Help
Powered by ViewVC 1.1.22