Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by heimbach, Tue Nov 12 20:34:41 2002 UTC | revision 1.3 by cheisey, Tue Dec 17 19:47:41 2002 UTC | |
---|---|---|
# | Line 229 c Update the tile edges. | Line 229 c Update the tile edges. |
229 | ||
230 | _EXCH_XY_R4( qnet, mythid ) | _EXCH_XY_R4( qnet, mythid ) |
231 | _EXCH_XY_R4( empmr, mythid ) | _EXCH_XY_R4( empmr, mythid ) |
232 | _EXCH_XY_R4( fu, mythid ) | c _EXCH_XY_R4( fu, mythid ) |
233 | _EXCH_XY_R4( fv, mythid ) | c _EXCH_XY_R4( fv, mythid ) |
234 | CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) | |
235 | #ifdef ALLOW_KPP | #ifdef ALLOW_KPP |
236 | _EXCH_XY_R4( qsw, mythid ) | _EXCH_XY_R4( qsw, mythid ) |
237 | #endif | #endif |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |