/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_advection.F

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

revision 1.65 by jmc, Fri May 20 21:08:56 2011 UTC revision 1.66 by jmc, Mon Jun 6 15:44:00 2011 UTC
# Line 652  C-    horizontal advection done; store i Line 652  C-    horizontal advection done; store i
652  #endif  #endif
653    
654  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
655        IF ( debugLevel .GE. debLevB        IF ( debugLevel .GE. debLevC
656       &   .AND. tracerIdentity.EQ.GAD_TEMPERATURE       &   .AND. tracerIdentity.EQ.GAD_TEMPERATURE
657       &   .AND. k.LE.3 .AND. myIter.EQ.1+nIter0       &   .AND. k.LE.3 .AND. myIter.EQ.1+nIter0
658       &   .AND. nPx.EQ.1 .AND. nPy.EQ.1       &   .AND. nPx.EQ.1 .AND. nPy.EQ.1
Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66
  ViewVC Help
Powered by ViewVC 1.1.22