/[MITgcm]/MITgcm/pkg/grdchk/grdchk_loc.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_loc.F

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

revision 1.2 by heimbach, Fri Jul 13 14:50:46 2001 UTC revision 1.3 by heimbach, Thu May 30 22:47:26 2002 UTC
# Line 126  c--   Start to loop over records. Line 126  c--   Start to loop over records.
126                  do i = iwrk, snx                  do i = iwrk, snx
127                   if (ierr .ne. 0) then                   if (ierr .ne. 0) then
128                    if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then                    if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then
129                       if ( _hFacC(i,j,k,bi,bj) .ne. 0.) then                       if ( maskC(i,j,k,bi,bj) .gt. 0.) then
130                          icomptest = icomptest + 1                          icomptest = icomptest + 1
131                       endif                       endif
132                    else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then                    else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22