/[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.6 by edhill, Fri Mar 10 16:09:31 2006 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
# Line 163  C     Check all the coordinate variables Line 187  C     Check all the coordinate variables
187          CALL MNC_FILE_REDEF(fname, myThid)          CALL MNC_FILE_REDEF(fname, myThid)
188          err = NF_DEF_VAR(fid, cvname, NF_DOUBLE,          err = NF_DEF_VAR(fid, cvname, NF_DOUBLE,
189       &       nids, cv_did, vid)       &       nids, cv_did, vid)
190            i = ILNBLNK( fname )
191          write(msgbuf,'(5a)') 'defining coordinate variable ''',          write(msgbuf,'(5a)') 'defining coordinate variable ''',
192       &       cvname(nnf:nnl), ''' in file ''', fname, ''''       &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
193          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)
194          CALL MNC_FILE_ENDDEF(fname, myThid)          CALL MNC_FILE_ENDDEF(fname, myThid)
195          err = NF_PUT_VARA_DOUBLE(fid, vid,          err = NF_PUT_VARA_DOUBLE(fid, vid,
196       &       cv_start, cv_count, rtmp)       &       cv_start, cv_count, rtmp)
197          write(msgbuf,'(5a)') 'writing coordinate variable ''',          write(msgbuf,'(5a)') 'writing coordinate variable ''',
198       &       cvname(nnf:nnl), ''' in file ''', fname, ''''       &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
199          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)          CALL MNC_HANDLE_ERR(err, msgbuf, myThid)
200                    
201        ENDIF        ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22