104 |
_EXCH_XY_R8( cg2d_b, myThid ) |
_EXCH_XY_R8( cg2d_b, myThid ) |
105 |
_EXCH_XY_R8( cg2d_x, myThid ) |
_EXCH_XY_R8( cg2d_x, myThid ) |
106 |
CcnhDebugStarts |
CcnhDebugStarts |
107 |
C CALL PLOT_FIELD_XYR8( cg2d_b, 'CG2D.1 CG2D_B' , 1, myThid ) |
C CALL PLOT_FIELD_XYRL( cg2d_b, 'CG2D.1 CG2D_B' , 1, myThid ) |
108 |
CcnhDebugEnds |
CcnhDebugEnds |
109 |
|
|
110 |
C-- Initial residual calculation |
C-- Initial residual calculation |
286 |
_END_MASTER( ) |
_END_MASTER( ) |
287 |
|
|
288 |
CcnhDebugStarts |
CcnhDebugStarts |
289 |
C CALL PLOT_FIELD_XYR8( cg2d_x, 'CALC_MOM_RHS CG2D_X' , 1, myThid ) |
C CALL PLOT_FIELD_XYRL( cg2d_x, 'CALC_MOM_RHS CG2D_X' , 1, myThid ) |
290 |
C err = 0. _d 0 |
C err = 0. _d 0 |
291 |
C DO bj=myByLo(myThid),myByHi(myThid) |
C DO bj=myByLo(myThid),myByHi(myThid) |
292 |
C DO bi=myBxLo(myThid),myBxHi(myThid) |
C DO bi=myBxLo(myThid),myBxHi(myThid) |