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

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

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

revision 1.4 by heimbach, Mon Mar 28 19:40:59 2005 UTC revision 1.5 by heimbach, Mon Mar 28 23:49:49 2005 UTC
# Line 184  c--                  The array ctdtobs c Line 184  c--                  The array ctdtobs c
184       &                             (wtmp(i,j)*www(i,j))*       &                             (wtmp(i,j)*www(i,j))*
185       &                             (tmpbar(i,j)-tmpobs(i,j))*       &                             (tmpbar(i,j)-tmpobs(i,j))*
186       &                             (tmpbar(i,j)-tmpobs(i,j))       &                             (tmpbar(i,j)-tmpobs(i,j))
187                         if ( wtmp(i,j)*www(i,j) .ne. 0. )
188         &                    num_ctdt(bi,bj) = num_ctdt(bi,bj) + 1. _d 0
189                    endif                    endif
190                  enddo                  enddo
191                enddo                enddo
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22