/[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.2 by cnh, Fri Apr 24 02:05:41 1998 UTC revision 1.6 by cnh, Thu Jun 25 20:43:23 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 221  C     other threads. Line 223  C     other threads.
223        _EXCH_XYZ_R4(rHFacS    , myThid )        _EXCH_XYZ_R4(rHFacS    , myThid )
224        _EXCH_XYZ_R4(maskW    , myThid )        _EXCH_XYZ_R4(maskW    , myThid )
225        _EXCH_XYZ_R4(maskS    , myThid )        _EXCH_XYZ_R4(maskS    , myThid )
226          _EXCH_XY_R4 (zA       , myThid )
227    
228          DO bj = myByLo(myThid), myByHi(myThid)
229           DO bi = myBxLo(myThid), myBxHi(myThid)
230            DO J=1,sNy
231             DO I=1,sNx
232              tanPhiAtU(I,J,bi,bj) = 0. _d 0
233              tanPhiAtV(I,J,bi,bj) = 0. _d 0
234             ENDDO
235            ENDDO
236           ENDDO
237          ENDDO
238          _EXCH_XY_R4 (tanPhiAtU , myThid )
239          _EXCH_XY_R4 (tanPhiAtV , myThid )
240    
241  C  C
242        RETURN        RETURN
243        END        END
   
 C     $Id$  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22