/[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.8 by heimbach, Fri May 12 02:17:03 2006 UTC revision 1.9 by heimbach, Sun Nov 19 23:17:17 2006 UTC
# Line 165  c--   components of the given control va Line 165  c--   components of the given control va
165        ncvarcomp     = ncvarcomp*ncvarrecs(grdchkvarindex)        ncvarcomp     = ncvarcomp*ncvarrecs(grdchkvarindex)
166        maxncvarcomps = maxncvarcomps*ncvarrecs(grdchkvarindex)        maxncvarcomps = maxncvarcomps*ncvarrecs(grdchkvarindex)
167    
       iwetsum(0)    = 0  
168        do bj = jtlo,jthi        do bj = jtlo,jthi
169           do bi = itlo,ithi           do bi = itlo,ithi
170                iwetsum(bi,bj,0)    = 0
171              do k = 1,ncvarnrmax(grdchkvarindex)              do k = 1,ncvarnrmax(grdchkvarindex)
172                 iwetsum(k) = iwetsum(k-1) + nwettile(bi,bj,k,1)                 iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) +
173         &              nwettile(bi,bj,k,1)
174              enddo              enddo
175           enddo           enddo
176        enddo        enddo
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22