--- MITgcm/pkg/ctrl/ctrl_set_unpack_xyz.F	2006/04/27 12:50:39	1.15
+++ MITgcm/pkg/ctrl/ctrl_set_unpack_xyz.F	2006/05/27 17:07:21	1.16
@@ -184,8 +184,7 @@
          do k = 1, Nr
          irectrue = (irec-1)*nr + k
             if ( doZscaleUnpack ) then
-cph               delZnorm = SQRT(delR(1)/delR(k))
-               delZnorm = delR(1)/delR(k)
+               delZnorm = (delR(1)/delR(k))**delZexp
             else
                delZnorm = 1. _d 0
             endif