17 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
18 |
#include "PARAMS.h" |
#include "PARAMS.h" |
19 |
#include "GRID.h" |
#include "GRID.h" |
20 |
|
#include "DYNVARS.h" |
21 |
#include "CG2D.h" |
#include "CG2D.h" |
22 |
|
|
23 |
C === Routine arguments === |
C === Routine arguments === |
185 |
DO I=1,sNx |
DO I=1,sNx |
186 |
cg2d_x(I,J,bi,bj) = 0. _d 0 |
cg2d_x(I,J,bi,bj) = 0. _d 0 |
187 |
cg2d_b(I,J,bi,bj) = 0. _d 0 |
cg2d_b(I,J,bi,bj) = 0. _d 0 |
188 |
|
#ifdef ALLOW_CD |
189 |
|
cg2d_xNM1(I,J,bi,bj) = 0. _d 0 |
190 |
|
#endif |
191 |
ENDDO |
ENDDO |
192 |
ENDDO |
ENDDO |
193 |
ENDDO |
ENDDO |
195 |
C-- Update overlap regions |
C-- Update overlap regions |
196 |
_EXCH_XY_R8(cg2d_x, myThid) |
_EXCH_XY_R8(cg2d_x, myThid) |
197 |
_EXCH_XY_R8(cg2d_b, myThid) |
_EXCH_XY_R8(cg2d_b, myThid) |
198 |
|
#ifdef ALLOW_CD |
199 |
|
_EXCH_XY_R8(cg2d_xNM1, myThid) |
200 |
|
#endif |
201 |
ENDIF |
ENDIF |
202 |
|
|
203 |
RETURN |
RETURN |