/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_taub.F
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by dgoldberg, Thu Sep 20 15:45:13 2012 UTC revision 1.5 by dgoldberg, Mon Dec 10 02:34:45 2012 UTC
# Line 30  C     !INPUT/OUTPUT ARGUMENTS Line 30  C     !INPUT/OUTPUT ARGUMENTS
30  !       _RL taudx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  !       _RL taudx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
31    
32  #ifdef ALLOW_STREAMICE  #ifdef ALLOW_STREAMICE
33    #ifdef STREAMICE_HYBRID_STRESS
34    
35    
36  C     LOCAL VARIABLES  C     LOCAL VARIABLES
37        INTEGER i, j, bi, bj, k, l, umid, vmid        INTEGER i, j, bi, bj, k, l
38        _RL ux, uy, vx, vy, exx, eyy, exy, second_inv, unorm        _RL ux, uy, vx, vy, exx, eyy, exy, second_inv, unorm
39          _RL umid, vmid
40    
41        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
42         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 80  cph) Line 82  cph)
82    
83    
84  #endif  #endif
85    #endif
86        RETURN        RETURN
87        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22