/[MITgcm]/MITgcm/pkg/ecco/cost_sla_read_yd.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_sla_read_yd.F

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

revision 1.3 by jmc, Fri Aug 10 19:45:26 2012 UTC revision 1.4 by gforget, Tue Feb 5 14:51:09 2013 UTC
# Line 131  c     == end of interface == Line 131  c     == end of interface ==
131                endif                endif
132    
133  cph(  cph(
134    #ifndef ALLOW_SHALLOW_ALTIMETRY
135                if ( R_low(i,j,bi,bj) .GT. -200. ) then                if ( R_low(i,j,bi,bj) .GT. -200. ) then
136                  sla_mask(i,j,bi,bj) = 0. _d 0                  sla_mask(i,j,bi,bj) = 0. _d 0
137                endif                endif
138    #endif
139  cph)  cph)
140    
141                sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)                sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22