--- MITgcm/pkg/admtlm/admtlm_dsvd2model.F	2007/02/01 02:01:25	1.4
+++ MITgcm/pkg/admtlm/admtlm_dsvd2model.F	2007/04/20 18:46:11	1.5
@@ -1,5 +1,5 @@
 C
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/admtlm/admtlm_dsvd2model.F,v 1.4 2007/02/01 02:01:25 heimbach Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/admtlm/admtlm_dsvd2model.F,v 1.5 2007/04/20 18:46:11 heimbach Exp $
 C $Name:  $
 
 #include "PACKAGES_CONFIG.h"
@@ -556,19 +556,19 @@
 #ifdef ALLOW_UVEL0_CONTROL
           ivartype = 27
           write(weighttype(1:80),'(80a)') ' '
-          write(weighttype(1:80),'(a)') "wuvel"
+          write(weighttype(1:80),'(a)') "wuvvel"
           call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,
      &         fname_uvel(ictrlgrad), "maskCtrlW",
-     &         weighttype, wunit, nwetwglobal, mythid)
+     &         weighttype, wuvvel, nwetwglobal, mythid)
 #endif
 
 #ifdef ALLOW_VVEL0_CONTROL
           ivartype = 28
           write(weighttype(1:80),'(80a)') ' '
-          write(weighttype(1:80),'(a)') "wvvel"
+          write(weighttype(1:80),'(a)') "wuvvel"
           call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,
      &         fname_vvel(ictrlgrad), "maskCtrlS",
-     &         weighttype, wunit, nwetsglobal, mythid)
+     &         weighttype, wuvvel, nwetsglobal, mythid)
 #endif
 
 #ifdef ALLOW_ETAN0_CONTROL