/[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.5 by cnh, Mon Jun 8 21:43:01 1998 UTC revision 1.6 by cnh, Thu Jun 25 20:43:23 1998 UTC
# Line 225  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        DO bj = myByLo(myThid), myByHi(myThid)
229        tanPhiAtU = 0. _d 0         DO bi = myBxLo(myThid), myBxHi(myThid)
230        tanPhiAtV = 0. _d 0          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 )        _EXCH_XY_R4 (tanPhiAtU , myThid )
239        _EXCH_XY_R4 (tanPhiAtV , myThid )        _EXCH_XY_R4 (tanPhiAtV , myThid )
 CcnhDebugEnds  
240    
241  C  C
242        RETURN        RETURN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22