/[MITgcm]/MITgcm/pkg/exch2/w2_set_cs6_facets.F
ViewVC logotype

Diff of /MITgcm/pkg/exch2/w2_set_cs6_facets.F

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

revision 1.2 by jmc, Tue May 26 23:08:25 2009 UTC revision 1.3 by jmc, Fri Apr 23 20:21:06 2010 UTC
# Line 20  C     and derive single dimension from " Line 20  C     and derive single dimension from "
20  C     !USES:  C     !USES:
21        IMPLICIT NONE        IMPLICIT NONE
22    
23  C      Tile toplogy settings data structures  C      Tile topology settings data structures
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "W2_EXCH2_SIZE.h"  #include "W2_EXCH2_SIZE.h"
# Line 34  C               (Note: not relevant sinc Line 34  C               (Note: not relevant sinc
34    
35  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
36  C     === Local variables ===  C     === Local variables ===
37  C     msgBuf     :: Informational/error meesage buffer  C     msgBuf     :: Informational/error message buffer
38        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
39        CHARACTER*1 edge(4)        CHARACTER*1 edge(4)
40        INTEGER i, j, ii, jj, lo, ll        INTEGER i, j, ii, jj, lo, ll
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22