Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
revision 1.2.6.7 by heimbach, Mon Mar 3 17:27:31 2003 UTC | revision 1.2.6.8 by heimbach, Fri Mar 7 03:33:24 2003 UTC | |
---|---|---|
# | Line 592 c Salt flux from Precipitati | Line 592 c Salt flux from Precipitati |
592 | c Update the tile edges. | c Update the tile edges. |
593 | _EXCH_XY_R8(hflux, mythid) | _EXCH_XY_R8(hflux, mythid) |
594 | _EXCH_XY_R8(sflux, mythid) | _EXCH_XY_R8(sflux, mythid) |
595 | _EXCH_XY_R8(ustress, mythid) | c _EXCH_XY_R8(ustress, mythid) |
596 | _EXCH_XY_R8(vstress, mythid) | c _EXCH_XY_R8(vstress, mythid) |
597 | CALL EXCH_UV_XY_RL(ustress, vstress, .TRUE., myThid) | |
598 | ||
599 | #ifdef SHORTWAVE_HEATING | #ifdef SHORTWAVE_HEATING |
600 | _EXCH_XY_R8(swflux, mythid) | _EXCH_XY_R8(swflux, mythid) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |