/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_cvars.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_cvars.F

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

revision 1.7 by mlosch, Fri Feb 1 11:05:14 2008 UTC revision 1.8 by mlosch, Tue Feb 5 13:38:45 2008 UTC
# Line 73  C     Check all the coordinate variables Line 73  C     Check all the coordinate variables
73           rtmp(i) = xtmin + i           rtmp(i) = xtmin + i
74          ENDDO          ENDDO
75  #else  #else
76          IF ( usingCurvilinearGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
77           DO i = cv_start(1),cv_count(1)           DO i = cv_start(1),cv_count(1)
78            rtmp(i) = xtmin + i            rtmp(i) = xtmin + i
79           ENDDO           ENDDO
# Line 93  C     Check all the coordinate variables Line 93  C     Check all the coordinate variables
93           rtmp(i) = xtmin + i           rtmp(i) = xtmin + i
94          ENDDO          ENDDO
95  #else  #else
96          IF ( usingCurvilinearGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
97           DO i = cv_start(1),cv_count(1)           DO i = cv_start(1),cv_count(1)
98            rtmp(i) = xtmin + i            rtmp(i) = xtmin + i
99           ENDDO           ENDDO
# Line 113  C     Check all the coordinate variables Line 113  C     Check all the coordinate variables
113           rtmp(i) = xtmin + i           rtmp(i) = xtmin + i
114          ENDDO          ENDDO
115  #else  #else
116          IF ( usingCurvilinearGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
117           DO i = cv_start(1),cv_count(1)           DO i = cv_start(1),cv_count(1)
118            rtmp(i) = xtmin - OLx + i            rtmp(i) = xtmin - OLx + i
119           ENDDO           ENDDO
# Line 133  C     Check all the coordinate variables Line 133  C     Check all the coordinate variables
133           rtmp(i) = ytmin + i           rtmp(i) = ytmin + i
134          ENDDO          ENDDO
135  #else  #else
136          IF ( usingCurvilinearGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
137           DO i = cv_start(1),cv_count(1)           DO i = cv_start(1),cv_count(1)
138            rtmp(i) = ytmin + i            rtmp(i) = ytmin + i
139           ENDDO           ENDDO
# Line 153  C     Check all the coordinate variables Line 153  C     Check all the coordinate variables
153           rtmp(i) = ytmin + i           rtmp(i) = ytmin + i
154          ENDDO          ENDDO
155  #else  #else
156          IF ( usingCurvilinearGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
157           DO i = cv_start(1),cv_count(1)           DO i = cv_start(1),cv_count(1)
158            rtmp(i) = ytmin + i            rtmp(i) = ytmin + i
159           ENDDO           ENDDO
# Line 173  C     Check all the coordinate variables Line 173  C     Check all the coordinate variables
173           rtmp(i) = ytmin + i           rtmp(i) = ytmin + i
174          ENDDO          ENDDO
175  #else  #else
176          IF ( usingCurvilinearGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
177           DO i = cv_start(1),cv_count(1)           DO i = cv_start(1),cv_count(1)
178            rtmp(i) = ytmin - OLy + i            rtmp(i) = ytmin - OLy + i
179           ENDDO           ENDDO
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22