/[MITgcm]/MITgcm/model/src/ini_cylinder_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_cylinder_grid.F

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

revision 1.3 by jmc, Fri Nov 4 01:19:24 2005 UTC revision 1.4 by jmc, Wed Aug 30 17:12:51 2006 UTC
# Line 109  C       Back-step to the outer grid-line Line 109  C       Back-step to the outer grid-line
109           xG0 = xG0 - delX( 1+mod(Olx*Nx-1+iG-i,Nx) )           xG0 = xG0 - delX( 1+mod(Olx*Nx-1+iG-i,Nx) )
110          ENDDO          ENDDO
111  C       Find the Y-coordinate of the outer grid-line of the "real" tile  C       Find the Y-coordinate of the outer grid-line of the "real" tile
112          yG0 = 0          yG0 = phiMin
113          DO j=1, jG-1          DO j=1, jG-1
114           yG0 = yG0 + delY(j)           yG0 = yG0 + delY(j)
115          ENDDO          ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22