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

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

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

revision 1.4 by jmc, Tue Oct 9 00:02:50 2007 UTC revision 1.5 by heimbach, Wed Jun 17 15:12:53 2009 UTC
# Line 126  cnew) Line 126  cnew)
126              do i = imin,imax              do i = imin,imax
127                if (maskW(i,j,k,bi,bj) .eq. 0.) then                if (maskW(i,j,k,bi,bj) .eq. 0.) then
128                  scatxmask(i,j,bi,bj) = 0. _d 0                  scatxmask(i,j,bi,bj) = 0. _d 0
               else if (_hFacC(i,j,13,bi,bj) .eq. 0.) then  
                 scatxmask(i,j,bi,bj) = 0. _d 0  
129                else                else
130                  scatxmask(i,j,bi,bj) = 1. _d 0                  scatxmask(i,j,bi,bj) = 1. _d 0
131                endif                endif
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22