/[MITgcm]/MITgcm/pkg/exf/exf_getffields.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_getffields.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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)

Legend:
Removed from v.1.2.6.7  
changed lines
  Added in v.1.2.6.8

  ViewVC Help
Powered by ViewVC 1.1.22