/[MITgcm]/MITgcm/pkg/gridalt/gridalt_update.F
ViewVC logotype

Diff of /MITgcm/pkg/gridalt/gridalt_update.F

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

revision 1.1 by molod, Thu Jan 29 14:23:09 2004 UTC revision 1.2 by molod, Mon Feb 23 20:33:59 2004 UTC
# Line 39  c Line 39  c
39  c  c
40          do L = 1,Nrphys          do L = 1,Nrphys
41           do j = j1,j2           do j = j1,j2
42           do i = i1,i2+1           do i = i1,i2
43            dpphys(i,j,L,bi,bj) = dpphys0(i,j,L,bi,bj) *            dpphys(i,j,L,bi,bj) = dpphys0(i,j,L,bi,bj) *
44       .                                   rstarfacC(i,j,bi,bj)       .                     rstarfacC(i,j,bi,bj)
45           enddo           enddo
46           enddo           enddo
47          enddo          enddo
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22