/[MITgcm]/MITgcm/model/src/ini_cartesian_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_cartesian_grid.F

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

revision 1.12 by adcroft, Wed Dec 9 16:11:52 1998 UTC revision 1.13 by adcroft, Mon Mar 27 22:25:44 2000 UTC
# Line 48  CEndOfInterface Line 48  CEndOfInterface
48    
49  C     == Local variables ==  C     == Local variables ==
50  C     xG, yG - Global coordinate location.  C     xG, yG - Global coordinate location.
 C     zG  
51  C     xBase  - South-west corner location for process.  C     xBase  - South-west corner location for process.
52  C     yBase  C     yBase
 C     zUpper - Work arrays for upper and lower  
 C     zLower   cell-face heights.  
 C     phi    - Temporary scalar  
53  C     xBase  - Temporaries for lower corner coordinate  C     xBase  - Temporaries for lower corner coordinate
54  C     yBase  C     yBase
55  C     iG, jG - Global coordinate index. Usually used to hold  C     iG, jG - Global coordinate index. Usually used to hold
# Line 62  C     bi,bj  - Loop counters Line 58  C     bi,bj  - Loop counters
58  C     zUpper - Temporary arrays holding z coordinates of  C     zUpper - Temporary arrays holding z coordinates of
59  C     zLower   upper and lower faces.  C     zLower   upper and lower faces.
60  C     I,J,K  C     I,J,K
61        _RL    xG, yG, zG        _RL    xG, yG
       _RL    phi  
       _RL    zUpper(Nr), zLower(Nr)  
62        _RL    xBase, yBase        _RL    xBase, yBase
63        INTEGER iG, jG        INTEGER iG, jG
64        INTEGER bi, bj        INTEGER bi, bj
65        INTEGER  I,  J, K        INTEGER  I,  J
66    
67  C--   Simple example of inialisation on cartesian grid  C--   Simple example of inialisation on cartesian grid
68  C--   First set coordinates of cell centers  C--   First set coordinates of cell centers
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22