/[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.4 by cnh, Mon May 25 18:01:32 1998 UTC revision 1.5 by cnh, Mon Jun 8 21:43:01 1998 UTC
# Line 75  C     This operation is only performed a Line 75  C     This operation is only performed a
75  C     complex configurations it is usually OK to pass iG, jG to a custom  C     complex configurations it is usually OK to pass iG, jG to a custom
76  C     function and have it return xG and yG.  C     function and have it return xG and yG.
77  C     Set up my local grid first  C     Set up my local grid first
78          xC0 = 0. _d 0
79          yC0 = 0. _d 0
80        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
81         jG = myYGlobalLo + (bj-1)*sNy         jG = myYGlobalLo + (bj-1)*sNy
82         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
# Line 223  C     other threads. Line 225  C     other threads.
225        _EXCH_XYZ_R4(maskS    , myThid )        _EXCH_XYZ_R4(maskS    , myThid )
226        _EXCH_XY_R4 (zA       , myThid )        _EXCH_XY_R4 (zA       , myThid )
227    
228    CcnhDebugStarts
229          tanPhiAtU = 0. _d 0
230          tanPhiAtV = 0. _d 0
231          _EXCH_XY_R4 (tanPhiAtU , myThid )
232          _EXCH_XY_R4 (tanPhiAtV , myThid )
233    CcnhDebugEnds
234    
235  C  C
236        RETURN        RETURN
237        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22