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/20 15:45:13	1.3
+++ MITgcm_contrib/dgoldberg/streamice/streamice_taub.F	2012/09/25 03:03:21	1.4
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/dgoldberg/streamice/streamice_taub.F,v 1.3 2012/09/20 15:45:13 dgoldberg Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/dgoldberg/streamice/streamice_taub.F,v 1.4 2012/09/25 03:03:21 dgoldberg Exp $
 C $Name:  $
 
 #include "STREAMICE_OPTIONS.h"
@@ -33,8 +33,9 @@
 
 
 C     LOCAL VARIABLES
-      INTEGER i, j, bi, bj, k, l, umid, vmid
+      INTEGER i, j, bi, bj, k, l
       _RL ux, uy, vx, vy, exx, eyy, exy, second_inv, unorm
+      _RL umid, vmid
 
       DO bj=myByLo(myThid),myByHi(myThid)
        DO bi=myBxLo(myThid),myBxHi(myThid)