/[MITgcm]/MITgcm/model/src/forward_step.F
ViewVC logotype

Diff of /MITgcm/model/src/forward_step.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.42 by cheisey, Mon Dec 2 13:11:09 2002 UTC revision 1.43 by cheisey, Fri Dec 6 20:10:58 2002 UTC
# Line 142  c calculate qnet and empmr (and wind str Line 142  c calculate qnet and empmr (and wind str
142  c     Update the tile edges.  c     Update the tile edges.
143         _EXCH_XY_R8(Qnet,   mythid)         _EXCH_XY_R8(Qnet,   mythid)
144         _EXCH_XY_R8(EmPmR,   mythid)         _EXCH_XY_R8(EmPmR,   mythid)
145         _EXCH_XY_R8(fu     , mythid)         CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid)
146         _EXCH_XY_R8(fv     , mythid)  C       _EXCH_XY_R8(fu     , mythid)
147    C       _EXCH_XY_R8(fv     , mythid)
148  cswdblk -- end add ---  cswdblk -- end add ---
149  #else  #else
150  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE  #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22