--- MITgcm/pkg/mnc/mnc_cw_cvars.F	2004/12/20 17:10:27	1.4
+++ MITgcm/pkg/mnc/mnc_cw_cvars.F	2006/03/10 16:09:31	1.6
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mnc/mnc_cw_cvars.F,v 1.4 2004/12/20 17:10:27 edhill Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mnc/mnc_cw_cvars.F,v 1.6 2006/03/10 16:09:31 edhill Exp $
 C $Name:  $
       
 #include "MNC_OPTIONS.h"
@@ -152,6 +152,30 @@
           rtmp(i) = rF(i)
         ENDDO
 
+      ELSEIF (cvname(nnf:nnl) .EQ. 'Zu') THEN
+
+        cv_start(1) = 1
+        cv_count(1) = Nr
+        DO i = cv_start(1),cv_count(1)
+          rtmp(i) = rF(i + 1)
+        ENDDO
+
+      ELSEIF (cvname(nnf:nnl) .EQ. 'Zl') THEN
+
+        cv_start(1) = 1
+        cv_count(1) = Nr
+        DO i = cv_start(1),cv_count(1)
+          rtmp(i) = rF(i)
+        ENDDO
+
+      ELSEIF (cvname(nnf:nnl) .EQ. 'Zm1') THEN
+
+        cv_start(1) = 1
+        cv_count(1) = Nr - 1
+        DO i = cv_start(1),cv_count(1)
+          rtmp(i) = rF(i + 1)
+        ENDDO
+
       ELSE
 
         doit = 0
@@ -163,14 +187,15 @@
         CALL MNC_FILE_REDEF(fname, myThid)
         err = NF_DEF_VAR(fid, cvname, NF_DOUBLE, 
      &       nids, cv_did, vid)
+        i = ILNBLNK( fname )
         write(msgbuf,'(5a)') 'defining coordinate variable ''', 
-     &       cvname(nnf:nnl), ''' in file ''', fname, ''''
+     &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
         CALL MNC_HANDLE_ERR(err, msgbuf, myThid)
         CALL MNC_FILE_ENDDEF(fname, myThid)
         err = NF_PUT_VARA_DOUBLE(fid, vid, 
      &       cv_start, cv_count, rtmp)
         write(msgbuf,'(5a)') 'writing coordinate variable ''', 
-     &       cvname(nnf:nnl), ''' in file ''', fname, ''''
+     &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
         CALL MNC_HANDLE_ERR(err, msgbuf, myThid)
         
       ENDIF