/[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.4 by gforget, Tue Feb 5 14:51:09 2013 UTC revision 1.5 by gforget, Mon Jun 9 17:47:57 2014 UTC
# Line 130  c     == end of interface == Line 130  c     == end of interface ==
130                   sla_mask(i,j,bi,bj) = 0. _d 0                   sla_mask(i,j,bi,bj) = 0. _d 0
131                endif                endif
132    
 cph(  
133  #ifndef ALLOW_SHALLOW_ALTIMETRY  #ifndef ALLOW_SHALLOW_ALTIMETRY
134                if ( R_low(i,j,bi,bj) .GT. -200. ) then                if ( R_low(i,j,bi,bj) .GT. -200. ) then
135                  sla_mask(i,j,bi,bj) = 0. _d 0                  sla_mask(i,j,bi,bj) = 0. _d 0
136                endif                endif
137  #endif  #endif
138  cph)  #ifndef ALLOW_HIGHLAT_ALTIMETRY
139                  if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
140                    sla_mask(i,j,bi,bj) = 0. _d 0
141                  endif
142    #endif
143    
144                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)
145                sla_obs(i,j,bi,bj)  = sla_mask(i,j,bi,bj)*factor*                sla_obs(i,j,bi,bj)  = sla_mask(i,j,bi,bj)*factor*
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22