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

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

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

revision 1.11 by heimbach, Thu Nov 6 22:13:00 2003 UTC revision 1.12 by dimitri, Mon Dec 27 20:34:11 2004 UTC
# Line 36  C     myThid - Thread no. that called th Line 36  C     myThid - Thread no. that called th
36        _RL A22        _RL A22
37        INTEGER myThid        INTEGER myThid
38  CEndOfInterface  CEndOfInterface
   
 #ifdef ALLOW_SEAICE  
39    
40  C     === Local variables ===  C     === Local variables ===
41  C     i,j,bi,bj - Loop counters  C     i,j,bi,bj - Loop counters
# Line 181  CADJ &                           key = i Line 179  CADJ &                           key = i
179         ENDDO         ENDDO
180        ENDDO        ENDDO
181    
 #endif /* ALLOW_SEAICE */  
   
182        RETURN        RETURN
183        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22