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

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

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

revision 1.8 by heimbach, Tue Apr 10 22:35:25 2001 UTC revision 1.9 by heimbach, Mon May 14 21:33:30 2001 UTC
# Line 168  C     _EXCH_XYZ_R8( cg3d_r, myThid ) Line 168  C     _EXCH_XYZ_R8( cg3d_r, myThid )
168         exchWidthY = 1         exchWidthY = 1
169         myNz       = Nr         myNz       = Nr
170         CALL EXCH_RL( cg3d_r,         CALL EXCH_RL( cg3d_r,
171       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, sNx, sNy, myNz,
172       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
173       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
174  C     _EXCH_XYZ_R8( cg3d_s, myThid )  C     _EXCH_XYZ_R8( cg3d_s, myThid )
# Line 180  C     _EXCH_XYZ_R8( cg3d_s, myThid ) Line 180  C     _EXCH_XYZ_R8( cg3d_s, myThid )
180         exchWidthY = 1         exchWidthY = 1
181         myNz       = Nr         myNz       = Nr
182         CALL EXCH_RL( cg3d_s,         CALL EXCH_RL( cg3d_s,
183       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, sNx, sNy, myNz,
184       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
185       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )       I            FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
186        _GLOBAL_SUM_R8( sumRHS, myThid )        _GLOBAL_SUM_R8( sumRHS, myThid )
# Line 438  C      _EXCH_XYZ_R8(cg3d_r, myThid ) Line 438  C      _EXCH_XYZ_R8(cg3d_r, myThid )
438         exchWidthY = 1         exchWidthY = 1
439         myNz       = Nr         myNz       = Nr
440         CALL EXCH_RL( cg3d_r,         CALL EXCH_RL( cg3d_r,
441       I             OLw, OLe, OLs, OLn, myNz,       I             OLw, OLe, OLs, OLn, sNx, sNy, myNz,
442       I             exchWidthX, exchWidthY,       I             exchWidthX, exchWidthY,
443       I             FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )       I             FORWARD_SIMULATION, EXCH_IGNORE_CORNERS, myThid )
444    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22