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

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

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

revision 1.31 by heimbach, Tue Apr 10 22:35:25 2001 UTC revision 1.32 by heimbach, Mon May 14 21:33:29 2001 UTC
# Line 192  C     _EXCH_XY_R8( cg2d_r, myThid ) Line 192  C     _EXCH_XY_R8( cg2d_r, myThid )
192         exchWidthY = 1         exchWidthY = 1
193         myNz       = 1         myNz       = 1
194         CALL EXCH_RL( cg2d_r,         CALL EXCH_RL( cg2d_r,
195       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, sNx, sNy, myNz,
196       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
197       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
198  #endif  #endif
# Line 208  C     _EXCH_XY_R8( cg2d_s, myThid ) Line 208  C     _EXCH_XY_R8( cg2d_s, myThid )
208         exchWidthY = 1         exchWidthY = 1
209         myNz       = 1         myNz       = 1
210         CALL EXCH_RL( cg2d_s,         CALL EXCH_RL( cg2d_s,
211       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, sNx, sNy, myNz,
212       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
213       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
214  #endif  #endif
# Line 295  C      _EXCH_XY_R8( cg2d_s, myThid ) Line 295  C      _EXCH_XY_R8( cg2d_s, myThid )
295         exchWidthY = 1         exchWidthY = 1
296         myNz       = 1         myNz       = 1
297         CALL EXCH_RL( cg2d_s,         CALL EXCH_RL( cg2d_s,
298       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, sNx, sNy, myNz,
299       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
300       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
301  #endif  #endif
# Line 364  C      _EXCH_XY_R8(cg2d_r, myThid ) Line 364  C      _EXCH_XY_R8(cg2d_r, myThid )
364         exchWidthY = 1         exchWidthY = 1
365         myNz       = 1         myNz       = 1
366         CALL EXCH_RL( cg2d_r,         CALL EXCH_RL( cg2d_r,
367       I             OLw, OLe, OLs, OLn, myNz,       I             OLw, OLe, OLs, OLn, sNx, sNy, myNz,
368       I             exchWidthX, exchWidthY,       I             exchWidthX, exchWidthY,
369       I             FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )       I             FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
370  #endif  #endif
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22