--- MITgcm_contrib/dgoldberg/streamice/streamice_taub.F 2012/09/20 15:45:13 1.3 +++ MITgcm_contrib/dgoldberg/streamice/streamice_taub.F 2012/12/10 02:34:45 1.5 @@ -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.5 2012/12/10 02:34:45 dgoldberg Exp $ C $Name: $ #include "STREAMICE_OPTIONS.h" @@ -30,11 +30,13 @@ ! _RL taudx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) #ifdef ALLOW_STREAMICE +#ifdef STREAMICE_HYBRID_STRESS 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) @@ -80,5 +82,6 @@ #endif +#endif RETURN END