/[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.2 by edhill, Sat Dec 18 19:18:08 2004 UTC revision 1.3 by edhill, Sat Dec 18 19:42:39 2004 UTC
# Line 112  C     !LOCAL VARIABLES: Line 112  C     !LOCAL VARIABLES:
112        integer nids, cv_did(1)        integer nids, cv_did(1)
113        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
114        integer cv_start(1), cv_count(1)        integer cv_start(1), cv_count(1)
115        _RS rtmp(sNx + sNy + Nr)        _RS rtmp(sNx + 2*OLx + sNy + 2*OLy + Nr)
116    
117  C     Functions  C     Functions
118        integer IFNBLNK, ILNBLNK        integer IFNBLNK, ILNBLNK
# Line 143  C     Check all the coordinate variables Line 143  C     Check all the coordinate variables
143          ENDDO          ENDDO
144          doit = 1          doit = 1
145    
146          ELSEIF (cvname(nnf:nnl) .EQ. 'Xwh') THEN
147    
148            cv_start(1) = 1
149            cv_count(1) = sNx + 2*OLx
150            DO i = cv_start(1),cv_count(1)
151              rtmp(i) = xC(i,1,bi,bj)
152            ENDDO
153            doit = 1
154    
155        ELSEIF (cvname(nnf:nnl) .EQ. 'Y') THEN        ELSEIF (cvname(nnf:nnl) .EQ. 'Y') THEN
156    
157          cv_start(1) = 1          cv_start(1) = 1
# Line 161  C     Check all the coordinate variables Line 170  C     Check all the coordinate variables
170          ENDDO          ENDDO
171          doit = 1          doit = 1
172    
173          ELSEIF (cvname(nnf:nnl) .EQ. 'Ywh') THEN
174    
175            cv_start(1) = 1
176            cv_count(1) = sNy + 2*OLy
177            DO i = cv_start(1),cv_count(1)
178              rtmp(i) = yC(1,i-OLy,bi,bj)
179            ENDDO
180            doit = 1
181    
182        ELSEIF (cvname(nnf:nnl) .EQ. 'Z') THEN        ELSEIF (cvname(nnf:nnl) .EQ. 'Z') THEN
183    
184          cv_start(1) = 1          cv_start(1) = 1
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22