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

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

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

revision 1.22 by jmc, Mon Oct 1 13:36:05 2007 UTC revision 1.23 by jmc, Tue Apr 28 18:15:33 2009 UTC
# Line 241  c             Short wave radiative flux. Line 241  c             Short wave radiative flux.
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
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22