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

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

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

revision 1.1 by heimbach, Thu Mar 29 15:59:21 2012 UTC revision 1.2 by dgoldberg, Tue Sep 4 21:11:44 2012 UTC
# Line 31  C     === Global variables === Line 31  C     === Global variables ===
31        INTEGER i, j, bi, bj, ki, kj        INTEGER i, j, bi, bj, ki, kj
32        INTEGER maskFlag        INTEGER maskFlag
33    
34          _EXCH_XY_RL( H_streamice, myThid )
35          _EXCH_XY_RL( area_shelf_streamice, myThid )
36          _EXCH_XY_RL( STREAMICE_hmask, myThid )
37    
38        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
39         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
40          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22