/[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.1 by dgoldberg, Tue Sep 18 17:04:40 2012 UTC revision 1.2 by heimbach, Thu Sep 20 02:04:45 2012 UTC
# Line 40  C     LOCAL VARIABLES Line 40  C     LOCAL VARIABLES
40         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
41          DO j=1,sNy          DO j=1,sNy
42           DO i=1,sNx           DO i=1,sNx
43    cph(
44              streamice_taubx (i,j,bi,bj) = 0.
45              streamice_tauby (i,j,bi,bj) = 0.
46    cph)
47            IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN            IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
48        
49             streamice_taubx (i,j,bi,bj) =             streamice_taubx (i,j,bi,bj) =
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22