--- MITgcm/pkg/ecco/cost_drift.F	2003/11/06 22:10:07	1.1
+++ MITgcm/pkg/ecco/cost_drift.F	2003/12/03 23:08:40	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ecco/Attic/cost_drift.F,v 1.1 2003/11/06 22:10:07 heimbach Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ecco/Attic/cost_drift.F,v 1.2 2003/12/03 23:08:40 heimbach Exp $
 
 #include "COST_CPPOPTIONS.h"
 
@@ -234,12 +234,12 @@
               do i = imin,imax
                   if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
                      fctiles = fctiles +
-     &                  (wsalt(k,bi,bj)*cosphi(i,j,bi,bj)*100.0*
+     &                  (wsalt(k,bi,bj)*cosphi(i,j,bi,bj)*2.5*
      &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)*
      &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf))
      &                  
                      fctilet = fctilet +
-     &                  (wtheta(k,bi,bj)*cosphi(i,j,bi,bj)*100.0*
+     &                  (wtheta(k,bi,bj)*cosphi(i,j,bi,bj)*2.5*
      &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)*
      &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))
                   endif