Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by edhill, Tue Oct 28 22:58:01 2003 UTC | revision 1.3 by jmc, Tue Apr 28 18:06:15 2009 UTC | |
---|---|---|
# | Line 54 C Read an initial state | Line 54 C Read an initial state |
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 ALLOW_CD_CODE | #ifdef ALLOW_CD_CODE |
60 | C-- By default, initialize etaNm1 with etaN : | C-- By default, initialize etaNm1 with etaN : |
# | Line 68 C-- By default, initialize etaNm1 with | Line 68 C-- By default, initialize etaNm1 with |
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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |