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

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

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

revision 1.27 by jmc, Fri Sep 24 16:52:44 2004 UTC revision 1.28 by jmc, Mon Sep 27 14:45:09 2004 UTC
# Line 441  C--   Divergence of fluxes Line 441  C--   Divergence of fluxes
441    
442  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
443        IF ( debugLevel .GE. debLevB        IF ( debugLevel .GE. debLevB
444         &   .AND. tracerIdentity.EQ.GAD_TEMPERATURE
445       &   .AND. k.EQ.2 .AND. myIter.EQ.1+nIter0       &   .AND. k.EQ.2 .AND. myIter.EQ.1+nIter0
446       &   .AND. nPx.EQ.1 .AND. nPy.EQ.1       &   .AND. nPx.EQ.1 .AND. nPy.EQ.1
447       &   .AND. useCubedSphereExchange ) THEN       &   .AND. useCubedSphereExchange ) THEN
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22