/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_pack_yz.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_pack_yz.F

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

revision 1.8 by heimbach, Tue Nov 16 05:42:12 2004 UTC revision 1.9 by heimbach, Fri Oct 14 19:26:22 2005 UTC
# Line 145  cgg   differently. Probably introduce ne Line 145  cgg   differently. Probably introduce ne
145                    do j = jmin,jmax                    do j = jmin,jmax
146                       do ip = 1,nPx                       do ip = 1,nPx
147                          do bi = itlo,ithi                          do bi = itlo,ithi
148                             weightfldyz(bi,ip,j,bj,jp,k,iobcs) = wbaro  cph                           weightfldyz(bi,ip,j,bj,jp,k,iobcs) = wbaro
149                          enddo                          enddo
150                       enddo                       enddo
151                    enddo                    enddo
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22