/[MITgcm]/MITgcm/pkg/seaice/seaice_exch_uv.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_exch_uv.F

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

revision 1.1 by dimitri, Sun Dec 14 04:56:18 2003 UTC revision 1.2 by dimitri, Mon Dec 27 20:34:11 2004 UTC
# Line 23  C     myThid - Thread number for this in Line 23  C     myThid - Thread number for this in
23        INTEGER myThid        INTEGER myThid
24  CEndofinterface  CEndofinterface
25    
 #ifdef ALLOW_SEAICE  
   
26  C     == Local variables ==  C     == Local variables ==
27        INTEGER i,j,k,bi,bj        INTEGER i,j,k,bi,bj
28        _RL tempU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL tempU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 55  C--   Update overlap regions Line 53  C--   Update overlap regions
53           ENDDO           ENDDO
54        ENDDO        ENDDO
55    
 #endif /* ALLOW_SEAICE */  
   
56        RETURN        RETURN
57        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22