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

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

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

revision 1.3 by heimbach, Thu May 30 22:47:26 2002 UTC revision 1.4 by heimbach, Sat Jul 13 02:55:58 2002 UTC
# Line 88  c--   control variable on the current ti Line 88  c--   control variable on the current ti
88                 enddo                 enddo
89              enddo              enddo
90           enddo           enddo
91          else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then
92             do bj = jtlo,jthi
93                do bi = itlo,ithi
94                   do k = 1,ncvarnrmax(grdchkvarindex)
95                      nwettile(bi,bj,k) = nwetvtile(bi,bj,k)
96                   enddo
97                enddo
98             enddo
99        else        else
100  ce        --> wrong grid specification for the control variable.  ce        --> wrong grid specification for the control variable.
101        endif        endif
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22