Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_taub.F

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm_contrib/dgoldberg/streamice/streamice_taub.F	2012/09/18 17:04:40	1.1
+++ MITgcm_contrib/dgoldberg/streamice/streamice_taub.F	2012/09/20 02:04:45	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/dgoldberg/streamice/streamice_taub.F,v 1.1 2012/09/18 17:04:40 dgoldberg Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/dgoldberg/streamice/streamice_taub.F,v 1.2 2012/09/20 02:04:45 heimbach Exp $
 C $Name:  $
 
 #include "STREAMICE_OPTIONS.h"
@@ -40,6 +40,10 @@
        DO bi=myBxLo(myThid),myBxHi(myThid)
         DO j=1,sNy
          DO i=1,sNx
+cph(
+          streamice_taubx (i,j,bi,bj) = 0.
+          streamice_tauby (i,j,bi,bj) = 0.
+cph)
           IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
   
            streamice_taubx (i,j,bi,bj) =