/[MITgcm]/MITgcm/pkg/exf/exf_interp.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_interp.F

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

revision 1.24 by jmc, Wed Apr 7 20:52:30 2010 UTC revision 1.25 by jmc, Tue Jun 7 22:17:45 2011 UTC
# Line 190  C     as is already done above in order Line 190  C     as is already done above in order
190    
191  C check validity of input/output coordinates  C check validity of input/output coordinates
192  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
193          if ( debugLevel .ge. debLevB ) then          if ( debugLevel.GE.debLevC ) then
194           do j=1,sny           do j=1,sny
195            do i=1,snx            do i=1,snx
196             if ( xG(i,j,bi,bj) .lt. x_in(0)         .or.             if ( xG(i,j,bi,bj) .lt. x_in(0)         .or.

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.22