/[MITgcm]/MITgcm/pkg/mom_common/mom_calc_visc.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_calc_visc.F

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

revision 1.34 by heimbach, Mon Apr 21 15:17:33 2008 UTC revision 1.35 by jmc, Tue Apr 22 22:50:11 2008 UTC
# Line 136  C     == Local variables == Line 136  C     == Local variables ==
136        _RL viscA4_DSmg(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL viscA4_DSmg(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
137        LOGICAL calcLeith, calcSmag        LOGICAL calcLeith, calcSmag
138    
 cph(  
       print *, 'ph-test a ', mythid, k  
       print *, 'ph-test b ', myBxLo(myThid)  
 cph)  
139  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
140            act1 = bi - myBxLo(myThid)            act1 = bi - myBxLo(myThid)
141            max1 = myBxHi(myThid) - myBxLo(myThid) + 1            max1 = myBxHi(myThid) - myBxLo(myThid) + 1

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.22