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

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

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

revision 1.5 by heimbach, Mon Mar 28 23:49:49 2005 UTC revision 1.6 by heimbach, Tue Mar 29 00:03:32 2005 UTC
# Line 191  c--               The array ctdtobs cont Line 191  c--               The array ctdtobs cont
191       &                   (tbar(i,j,k,bi,bj)-tmpobs(i,j))       &                   (tbar(i,j,k,bi,bj)-tmpobs(i,j))
192                      if ( wtheta2(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )                      if ( wtheta2(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
193       &                   num_xbt(bi,bj) = num_xbt(bi,bj) + 1. _d 0       &                   num_xbt(bi,bj) = num_xbt(bi,bj) + 1. _d 0
194                      endif
195                  enddo                  enddo
196                enddo                enddo
197  c--         End of loop over layers.  c--         End of loop over layers.
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22