/[MITgcm]/MITgcm/pkg/layers/layers_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/layers/layers_init_fixed.F

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

revision 1.1 by rpa, Wed Sep 16 21:25:47 2009 UTC revision 1.2 by jmc, Fri Sep 18 16:13:33 2009 UTC
# Line 118  C       This means there was a problem Line 118  C       This means there was a problem
118          END IF          END IF
119    
120  C       See which grid box the point lies in  C       See which grid box the point lies in
121          IF (ZZc(kk) < Zf(MapIndex(kk)+1)) THEN          IF ( ZZc(kk).LT.Zf(MapIndex(kk)+1) ) THEN
122            CellIndex(kk) = MapIndex(kk)            CellIndex(kk) = MapIndex(kk)
123          ELSE          ELSE
124            CellIndex(kk) = MapIndex(kk)+1            CellIndex(kk) = MapIndex(kk)+1
# Line 141  C       See which grid box the point lie Line 141  C       See which grid box the point lie
141    
142        RETURN        RETURN
143        END        END
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22