54 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |
55 |
ENDIF |
ENDIF |
56 |
C |
C |
57 |
_EXCH_XY_R8(etaN, myThid) |
_EXCH_XY_RL(etaN, myThid) |
58 |
|
|
59 |
#ifdef INCLUDE_CD_CODE |
#ifdef ALLOW_CD_CODE |
60 |
C-- By default, initialize etaNm1 with etaN : |
C-- By default, initialize etaNm1 with etaN : |
61 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
62 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
68 |
ENDDO |
ENDDO |
69 |
ENDDO |
ENDDO |
70 |
|
|
71 |
C _EXCH_XY_R8(etaNm1, myThid) |
C _EXCH_XY_RL(etaNm1, myThid) |
72 |
#endif |
#endif |
73 |
|
|
74 |
RETURN |
RETURN |