/[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.4 by edhill, Mon Dec 20 17:10:27 2004 UTC revision 1.5 by edhill, Wed Feb 23 05:17:36 2005 UTC
# Line 152  C     Check all the coordinate variables Line 152  C     Check all the coordinate variables
152            rtmp(i) = rF(i)            rtmp(i) = rF(i)
153          ENDDO          ENDDO
154    
155          ELSEIF (cvname(nnf:nnl) .EQ. 'Zu') THEN
156    
157            cv_start(1) = 1
158            cv_count(1) = Nr
159            DO i = cv_start(1),cv_count(1)
160              rtmp(i) = rF(i + 1)
161            ENDDO
162    
163          ELSEIF (cvname(nnf:nnl) .EQ. 'Zl') THEN
164    
165            cv_start(1) = 1
166            cv_count(1) = Nr
167            DO i = cv_start(1),cv_count(1)
168              rtmp(i) = rF(i)
169            ENDDO
170    
171          ELSEIF (cvname(nnf:nnl) .EQ. 'Zm1') THEN
172    
173            cv_start(1) = 1
174            cv_count(1) = Nr - 1
175            DO i = cv_start(1),cv_count(1)
176              rtmp(i) = rF(i + 1)
177            ENDDO
178    
179        ELSE        ELSE
180    
181          doit = 0          doit = 0
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22