241 |
|
|
242 |
c Update the tile edges. |
c Update the tile edges. |
243 |
|
|
244 |
_EXCH_XY_R4( qnet, mythid ) |
_EXCH_XY_RS( qnet, mythid ) |
245 |
_EXCH_XY_R4( empmr, mythid ) |
_EXCH_XY_RS( empmr, mythid ) |
246 |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
247 |
#ifdef SHORTWAVE_HEATING |
#ifdef SHORTWAVE_HEATING |
248 |
_EXCH_XY_R4( qsw, mythid ) |
_EXCH_XY_RS( qsw, mythid ) |
249 |
#endif |
#endif |
250 |
#ifdef ALLOW_CLIMSST_RELAXATION |
#ifdef ALLOW_CLIMSST_RELAXATION |
251 |
_EXCH_XY_R4( sst, mythid ) |
_EXCH_XY_RS( sst, mythid ) |
252 |
#endif |
#endif |
253 |
#ifdef ALLOW_CLIMSSS_RELAXATION |
#ifdef ALLOW_CLIMSSS_RELAXATION |
254 |
_EXCH_XY_R4( sss, mythid ) |
_EXCH_XY_RS( sss, mythid ) |
255 |
#endif |
#endif |
256 |
#ifdef ATMOSPHERIC_LOADING |
#ifdef ATMOSPHERIC_LOADING |
257 |
_EXCH_XY_R4( pload, mythid ) |
_EXCH_XY_RS( pload, mythid ) |
258 |
#endif |
#endif |
259 |
|
|
260 |
RETURN |
RETURN |