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

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

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

revision 1.3 by dimitri, Thu Dec 5 08:43:02 2002 UTC revision 1.4 by dimitri, Sat Dec 28 10:11:11 2002 UTC
# Line 28  CEndOfInterface Line 28  CEndOfInterface
28  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
29    
30  C     === Local variables ===  C     === Local variables ===
31  C     i,j,k,bi,bj - Loop counters  C     i,j,bi,bj - Loop counters
32    
33        INTEGER i, j, k, bi, bj        INTEGER i, j, bi, bj
34        _RL DELTXX1, DELTYY1, DELTXX, DELTYY        _RL DELTXX1, DELTYY1, DELTXX, DELTYY
35        _RL HEFF1  (1-OLx:sNx+OLx, 1-OLy:sNy+OLy)        _RL HEFF1  (1-OLx:sNx+OLx, 1-OLy:sNy+OLy)
36    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22